Discussion :

[damien29]

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 :

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

Je voudrais également compter le nombre d'onglet de mon classeur Excel pour ma boucle.

Est ce que quelqu'un aurait une idée?

Merci

[Theze]

Bonjour,

Teste ceci et dis moi si c'est ce que tu veux :

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
19
20
21
22
 
Sub Copie_nom_theme()
 
    Dim I As Integer
    Dim J As Integer
 
   'Copie du nom du thème
    For I = 1 To Worksheets.Count Step 6
 
        'incrémente pour le collage
        J = J + 1
 
        'une erreur est générée si le nom d'une feuille ne correspond pas
        On Error Resume Next
 
        'copie les valeurs des cellules D7 de chaque feuilles parcourue
        'et colle en colonne A en incrémentant
        Sheets("Data" & I).[D7].Copy Sheets("Liste_theme").Range("A" & J)
 
    Next I
 
End Sub

Hervé.

[damien29]

Je te remercie ça répond totalement à ma question.