K
kawa
Guest
Bonjour le forum,
j'ai besoin de copier le contenue de certaines cellules. Pour cela j'ai un bouton en B1 qui recopie le contenue de A1, en B2 qui recopie A2, etc...sur environ 80 lignes, et cela sur 3 feuilles différentes.
Cela me fait donc 240 macros de ce type :
Sub CopyA1()
Range('A1').Select
ActiveSheet.OLEObjects('Objet 149').Verb
Selection.Copy
End Sub
Est il possible de créer une seule macro 'universelle' qui copierait le contenue de la cellule placée à sa gauche et ce qq soit sa place dans le classeur ?
Cela allégerait mon fichier et serait plus élégant.
Merci
j'ai besoin de copier le contenue de certaines cellules. Pour cela j'ai un bouton en B1 qui recopie le contenue de A1, en B2 qui recopie A2, etc...sur environ 80 lignes, et cela sur 3 feuilles différentes.
Cela me fait donc 240 macros de ce type :
Sub CopyA1()
Range('A1').Select
ActiveSheet.OLEObjects('Objet 149').Verb
Selection.Copy
End Sub
Est il possible de créer une seule macro 'universelle' qui copierait le contenue de la cellule placée à sa gauche et ce qq soit sa place dans le classeur ?
Cela allégerait mon fichier et serait plus élégant.
Merci