toutes les feuilles sauf une

[Laurent]

bonjour,
j'ai creer une boucle qui me recupere des données de toutes les feuilles du classeur de la 3eme à la derniere,
a partir de la 3eme car j'ai fait démarrer ma boucle à 3 mais j'aimerais aussi ne pas prendre en compte une autre feuille (cachée) dans ma recupération est ce possible ?

For I = 1 To Sheets.Count 'boucle pour recuperer les données
If Not Sheets(I).Name = "Stats" Then ' adapter le nom de la feuille
j = j + 1
Sheets("Stats").Cells(j, 1) = Sheets(I).Cells(1, 1)' adapter le nom de la
feuille
Sheets("Stats").Cells(j, 2) = Sheets(I).Cells(1, 2)' adapter le nom de la
feuille
End If
Next I

Application.ScreenUpdating = True
End Sub


merci

 

[Robert]

Saut Laurent, salut le forum,

Est-ce que ta macro modifiée te conviendrait ? Remplace le x par le numéro de la feuille cachée que tu veux sauter.

Sub test()
j = 2
For I = 3 To Sheets.Count
j = j + 1
If I = x Then 'à adapter
j = j - 1
GoTo suite
End If
Sheets("Stats").Cells(j, 1) = Sheets(I).Cells(1, 1)
Sheets("Stats").Cells(j, 2) = Sheets(I).Cells(1, 2)
suite:
Next I

Application.ScreenUpdating = True
End Sub

À plus,

Robert