Macro
bonjour,
je souhaite savoir comment je peux realiser une macro qui me permettent de recopier une base de donnée( tableau identite) sur plusieurs feuille d'un même classeur.
ceci afin de changer les données enregistrées sur une ligne ou plusieurs lignes.
Sub MAJ()
'
' MAJ Macro
'
'
Range("C5:G5").Select
Selection.Copy
Sheets("Feuil2").Select
Range("B4").Select
Sheets(Array("Feuil2", "Feuil3")).Select
Sheets("Feuil2").Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets(Array("Feuil2", "Feuil3")).Select
Sheets("Feuil2").Activate
End Sub
merci
je souhaite savoir comment je peux realiser une macro qui me permettent de recopier une base de donnée( tableau identite) sur plusieurs feuille d'un même classeur.
ceci afin de changer les données enregistrées sur une ligne ou plusieurs lignes.
Sub MAJ()
'
' MAJ Macro
'
'
Range("C5:G5").Select
Selection.Copy
Sheets("Feuil2").Select
Range("B4").Select
Sheets(Array("Feuil2", "Feuil3")).Select
Sheets("Feuil2").Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets(Array("Feuil2", "Feuil3")).Select
Sheets("Feuil2").Activate
End Sub
merci
1 réponse
-
Bonsoir Jack, bonsoir le forum,
Je n'ai pas bien compris pourquoi tu transposais... Essaie comme ça :Sub MAJ() Dim O As Worksheet Sheets("Feuil1").Range("C5:G5").Copy For Each O In Sheets(Array("Feuil2", "Feuil3")) O.Range("B4").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True Next O Application.CutCopyMode = False End Sub
