Bonjour à toutes et à tous !
Nouvelle sur le forum, vous pouvez m'appeler Kaera !
Mon problème est le suivant :
J'ai un certain nombre de feuilles nommées numériquement (1, 2, 3 ,4...).
Chaque feuille paire contient des infos que je veux copier et coller sur la feuille impaire qui la précède.
Concrètement, en mots, ça donne par exemple :
Sélectionner feuille 2
Copier "A1:D5"
Sélectionne feuille 1
Coller sur "A1:D5"
Sélectionner feuille 4
Copier "A1:D5"
Sélectionne feuille 3
Coller sur "A1:D5"
Etc.
Voici mon code :
NB : j'ai écrit deux fois "ActiveSheet.Next.Select" sinon ça va tourner en boucle sur les deux premières feuilles !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sub test() Dim sh As Worksheet For Each sh In ThisWorkbook.Worksheets If sh.Name Mod 2 = 0 Then sh.Range("A25:D26").Copy ActiveSheet.Previous.Select Selection.Range("A25:D26").Paste ActiveSheet.Next.Select ActiveSheet.Next.Select End If Next sh
Erreur "incompatibilité de type" sur l'utilisation du sh.Name Mod 2 ...
Auriez-vous des solutions ?
Je ne parviens pas à définir sh.Name comme variable
Un grand merci d'avance.
Partager