Adapter une macro Merci pour votre aide

[megansport]

Bonjour
Je voudrais adapter cette macro, mais j'ai des feuilles nommer avec des noms distinct au lieu de feuille.
J'ai compris qu'il fallait selectionner worksheets mais je ne sais pas
Pouvez vous m'aidez s'il vous plait à l'adapter:

Sub copierplage()
Sheets("feuil1").Range("N1:N5000").Copy
Sheets("feuil1").Range("I1:I5000").PasteSpecial
Application.CutCopyMode = False
End Sub

 

[Pierrot93]

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
@+

 

[megansport]

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

 

[Pierrot93]

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 :

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

 

[megansport]

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😀

 

[Pierrot93]

Re : Adapter une macro Merci pour votre aide

Re,

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

'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...