Bonjour,
S'il quelqu'un pouvait m'aider car j'ai un gros souci.
En fait j'ai créer un fichier Excel a partir d'une table provenant d'Acces. J'aimerais pouvoir refaire de la mise en page de ce fichier mais avec une macro contenu dans Acces ou remplacer les macro pars les commandes de controles copier coller faire des lignes déplacer etc...
voici ma macro dans Excel
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 08/02/2007 par
' Replace les cases
'
If Range("B17").Value = 0 Then
Exit Sub
End If
Range("A2:J2").Select
Selection.Copy
Range("A23").Select
ActiveSheet.Paste
Range("A6:J6").Select
Application.CutCopyMode = False
Selection.Copy
Range("A24").Select
ActiveSheet.Paste
Range("A10:J10").Select
Application.CutCopyMode = False
Selection.Copy
Range("A25").Select
ActiveSheet.Paste
Range("A14:J14").Select
Application.CutCopyMode = False
Selection.Copy
Range("A26").Select
ActiveSheet.Paste
Range("A18:J18").Select
Application.CutCopyMode = False
Selection.Copy
Range("A27").Select
ActiveSheet.Paste
Range("A2").Select
Application.CutCopyMode = False
Selection.Cut
Range("A3").Select
ActiveSheet.Paste
Range("A6").Select
Selection.Cut
Range("A7").Select
ActiveSheet.Paste
Range("A10").Select
Selection.Cut
Range("A11").Select
ActiveSheet.Paste
Range("A14").Select
Selection.Cut
Range("A15").Select
ActiveSheet.Paste
Range("A18").Select
Selection.Cut
Range("A19").Select
ActiveSheet.Paste
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Rows("5:5").Select
Selection.Delete Shift:=xlUp
Rows("8:8").Select
Selection.Delete Shift:=xlUp
Rows("11:11").Select
Selection.Delete Shift:=xlUp
Rows("14:14").Select
Selection.Delete Shift:=xlUp
Range("C4:J4").Select
Selection.ClearContents
Range("C7:J7").Select
Selection.ClearContents
Range("C10:J10").Select
Selection.ClearContents
Range("C13:J13").Select
Selection.ClearContents
Range("C16:J16").Select
Selection.ClearContents
Range("C2:J4").Select
Range("C4").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C2:J4").Select
Range("D4").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C2:J4").Select
Range("E4").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C2:J4").Select
Range("F4").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C2:J4").Select
Range("G4").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C2:J4").Select
Range("H4").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C2:J4").Select
Range("I4").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C2:J4").Select
Range("J4").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C5:J7").Select
Range("C7").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C5:J7").Select
Range("D7").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C5:J7").Select
Range("E7").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C5:J7").Select
Range("F7").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C5:J7").Select
Range("G7").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C5:J7").Select
Range("H7").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C5:J7").Select
Range("I7").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C5:J7").Select
Range("J7").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C8:J10").Select
Range("C10").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C8:J10").Select
Range("D10").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C8:J10").Select
Range("E10").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C8:J10").Select
Range("F10").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C8:J10").Select
Range("G10").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C8:J10").Select
Range("H10").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C8:J10").Select
Range("I10").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C8:J10").Select
Range("J10").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C11:J13").Select
Range("C13").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C11:J13").Select
Range("D13").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C11:J13").Select
Range("E13").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C11:J13").Select
Range("F13").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C11:J13").Select
Range("G13").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C11:J13").Select
Range("H13").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C11:J13").Select
Range("I13").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C11:J13").Select
Range("J13").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C14:J16").Select
Range("C16").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C14:J16").Select
Range("D16").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C14:J16").Select
Range("E16").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C14:J16").Select
Range("F16").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C14:J16").Select
Range("G16").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C14:J16").Select
Range("H16").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C14:J16").Select
Range("I16").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C14:J16").Select
Range("J16").Activate
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("C14:J16").Select
End Sub
j'aimerais le faire fonctionner dans acces pour un fichier Excel externe.
Si quelqu'un peut m'aider je lui serait très reconnaissant
Merci d'avance Configuration: Windows XP
Internet Explorer 6.0
