Discussion :

[visto94]

Bonjour!

J'ai besoin de parcourir un certain nombre de feuille de mon classeur, il contient au total 30 feuilles.
Les feuilles que j'ai besoin de parcourir sont de la 6ième a la 22ième place y comprit.

J'ai bien un code mais il parcourt toute les feuilles ce qui n'est pas le résultat que je souhaite:

Code :

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

1
2
3
4
5
6
7
8
  Dim WS_Count As Integer
         Dim I As Integer
 
         WS_Count = ActiveWorkbook.Worksheets.Count
         For I = 1 To WS_Count
         MsgBox ActiveWorkbook.Worksheets(I).Name
 
         Next I

Merci d'avance, Julien.

[zyhack]

Bonjour

Code :

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

1
2
3
4
5
Dim I As Integer
 
For I = 6 To 22
    MsgBox ActiveWorkbook.Worksheets(I).Name
Next I

[visto94]

Merci, mais je ne pense pas que cela va fonctionner dans mon cas car dans ton code je n'obtiens que les noms des feuilles.

Or je voudrais , pour la plage de feuille que je t'ai dit, exécuter un code pour chaque feuille de ma plage.

As-tu une idée?

[zyhack]

Merci, mais je ne pense pas que cela va fonctionner dans mon cas car dans ton code je n'obtiens que les noms des feuilles.

Or je voudrais , pour la plage de feuille que je t'ai dit, exécuter un code pour chaque feuille de ma plage.

l'affichage du nom des feuilles n'est qu'un exemple voyont pour montrer qu'a ce moment là tu peux effectuer un code sur cette feuille en utilisant la référence worksheets(I)

Code :

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

1
2
3
4
5
6
7
8
9
Dim I As Integer
 
For I = 6 To 22
 
    'Ton code en travaillant sur la feuille Worksheets(I)
    'pour mettre TOTO dans toutes les cellules A1
    'des feuilles 6 à 22
    Worksheets(I).Range("A1") = TOTO
Next I

ok

[visto94]

Merci!