Adapter une macro Merci pour votre aide

Pierrot93

XLDnaute Barbatruc

• 6 Juillet 2011

• #2

Re : Adapter une macro Merci pour votre aide

Bonjour à tous

cc🙂, ce n'est pas l'index que tu montres, mais le "CodeName" de la feuille, soit son composant VBA, le numéro d'index est représenté par le numéro d'ordre dans la collection des objets concernés... exemple Sheets(2), représente la 2ème feuille du classeur...



bonne journée
@+

 

Vote positif 0 Vote négatif

M

megansport

Guest

• 6 Juillet 2011

• #3

Re : Adapter une macro Merci pour votre aide

Bonjour au forum
Qu'est ce que dois faire? remplacer "feuil1" par "codename" ou par le nom de la feuille par exemple "Alfa" mais j'ai plusieurs feuilles?

Merci pour vos lumiéres

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Juillet 2011

• #4

Re : Adapter une macro Merci pour votre aide

Re,

le "codename" étant moins souvent modifié, tu peux l'utiliser ainsi, et ce pour une macro se trouvant dans le même classeur :

Code:

Feuil1.Range("N1:N5000").Copy

 

Vote positif 0 Vote négatif

M

megansport

Guest

• 6 Juillet 2011

• #5

Re : Adapter une macro Merci pour votre aide

Slt à tous

J'abandonne ,voici mon fichier, j'ai essayer de long en large mais rien à y faire, toujours une erreur.

Je coule à l'aide😀

 

Pièces jointes

• copiercoller.xlsm

  17.2 KB · Affichages: 81
• copiercoller.xlsm

  17.2 KB · Affichages: 94

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Juillet 2011

• #6

Re : Adapter une macro Merci pour votre aide

Re,

A partir de ton fichier, pour copier les cellules, 3 possibilités :

Code:

'en utilisant le nom de la feuille (visible sur l'onglet)
Sheets("ALFA").Range("N1:N5000").Copy
'ou bien en utilisant le "codename" de lobjet vba (visible dans le projet vba)
Feuil1.Range("N1:N5000").Copy
'en utilisant l'index de la feuille (1ère feuille du classeur)
Sheets(1).Range("N1:N5000").Copy

en l'état ces 3 lignes de code auront le même effet...

 

Vote positif 0 Vote négatif