Bonjour,
Je vais revenir sur un thème plusieurs fois ouvert dans ce forum, mais je n'y arrive pas.
Je voudrais copier toutes les cellules D7 de tous mes onglets et les coller à la suite avec un numéro incrémenté sur une nouvelle feuille.
J'arrive à copier coller sur une même feuille mais pas sur plusieurs.
Voici mon code :
Je voudrais également compter le nombre d'onglet de mon classeur Excel pour ma boucle.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Sub Copie_nom_theme() Dim i As Integer 'Copie du nom du thème For i = 1 To 30 Step 6 Sheets(Data&i).Select Range("D7").Select Selection.Copy 'Colle du nom du thème Sheets("Liste_theme").Select Range("A1").Select ActiveSheet.Paste Next End Sub
Est ce que quelqu'un aurait une idée?
Merci
Partager