macro Fermé

Question

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

ThauTheme · Answer

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

Macro

1 réponse

Discussions similaires