Macro
jack6673
Messages postés
1
Statut
Membre
-
ThauTheme Messages postés 1564 Statut Membre -
ThauTheme Messages postés 1564 Statut Membre -
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
A voir également:
- Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
1 réponse
Bonsoir Jack, bonsoir le forum,
Je n'ai pas bien compris pourquoi tu transposais... Essaie comme ça :
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
