Macro
jack6673
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention -
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
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- 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