bonjour,

Je met deux codes que j'ai fait mais qui me pose des problèmes.



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
Sub listing()
    nb_feuil = Sheets.Count
    For onglet = 2 To nb_feuil - 2
        Sheets("Feuil" & onglet).Select
        Sheets("Feuil" & onglet).Range("A1:C100").Select
        Selection.Copy
        Sheets("Feuil6").Select
        Sheets("Feuil6").Range("a1").Select
        For I = 1 To 100
                If Cells(I, 1) <> "" Then
                    Sheets("Feuil6").Cells(I + 1, 1).Select
                Else
                    ActiveSheet.Paste
                End If
        Next I
    Next onglet
End Sub
Celui ci ne fonctionne pas comme je le souhaiterai car il ne passe jamais à l'onglet suivant. Je souhaiterai que lorsque que le texte a été collé une fois, il passe à l''onglet suivant.


Second 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
Sub listing2()
    nb_feuil = Sheets.Count
    For onglet = 2 To nb_feuil - 2
        Sheets("Feuil" & onglet).Select
        Sheets("Feuil" & onglet).Range("A1:C100").Select
        Selection.Copy
        Sheets("Feuil6").Select
        Sheets("Feuil6").Range("a1").Select
        For I = 1 To 100          
                If Cells(I, 1) <> "" Then
                    Sheets("Feuil6").Cells(I + 1, 1).Select
                    Next I                  
                Else
                    ActiveSheet.Paste              
                    Next onglet
                End If
End Sub

Celui la ne s'execute pas car il me dis qu'il n'y de boucle for pour I.



Si vous pouvez me dire pourquoi il y a ces problèmes et m'aider à trouver des solutions ce serais cool.