Macro

Fermé

jack6673 Messages postés 1 Date d'inscription vendredi 27 mars 2020 Statut Membre Dernière intervention 27 mars 2020 - 27 mars 2020 à 19:53
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 27 mars 2020 à 21:14

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

A voir également:

Macro
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Macro souris ✓ - Forum Windows

1 réponse

Réponse 1 / 1

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
27 mars 2020 à 21:14

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

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Copie automatique tableau Excel sans macro

recup couleur de cellule sans macro

Lien de téléchargement de nbLettre.xla

tri automatque sur excel sans créer de macro

Discussions similaires

Newsletters