Discussion :

[bosk1000]

bonjour a tous
sur un fichier avec 15 feuille
j'en ai 12 qui porte comme nom janvier, février, etc jusqu'à décembre

je veux vider une partie de chacune de ces feuilles
j'ai fait ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Sheets("janvier").Select
Range("a3", [d3].End(xlDown)).Value = ""

donc la je réussis sur janvier, mais pour éviter de copier ce code 11 fois de plus en changeant janvier, comment puis je créer une boucle ?

[Pierre Fauconnier]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
  Dim Feuille As Worksheet
 
  For Each Feuille In ThisWorkbook.Worksheets
    Select Case Feuille.Name
      Case "Janvier", "Février", "Mars", "Avril","Mai","Juin", ... (à compléter)
        Feuille.Range("a3", [d3].End(xlDown)).Value = ""
    End Select
  Next Feuille

[Didier Gonard]

Bonjour,

tes 15 feuilles sont ordonnées d'une certaine façon leur position à un instant T est représentée par un index => worksheets(1) est la première, mais ce n'est lié qu'à la position, si tu la mets en dernier elle aura toujours le même nom, mais son index devient le 15.

Donc à un instant figé si tes feuilles sont en premier tu peux faire du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For I = 1 to 12
 
worksheets(I) .........
 
nextr I

Sinon tu peux passer par les noms en utilisant un Array, voir l'aide vba à "Sheets, collection d'objets" et à Array.

Utilisez Sheets(tableau) pour spécifier plusieurs feuilles. L'exemple suivant montre comment déplacer les feuilles Sheet4 et Sheet5 au début du classeur.

Sheets(Array("Sheet4", "Sheet5")).Move before:=Sheets(1)

donc tu construit un Array dont les 12 éléments sont les noms de tes feuilles et après avec une boucle tu parcours les 12 indices de ton Array.

cordialement,

Didier

[bosk1000]

merci a vous deux
cela fonctionne très bien