Discussion :

[Titeuf4243]

Bonjour,

Je souhaites crée une macro qui pourrait me permettre de sélectionner une par une les feuilles de mon classeur.

Ex :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub parcours()
 
dim x
dim nom_feuille
 
for x=1 to 3
nom_feuille= ??
sheets(nom_feuille).select
next
 
end sub

Je connais le codage pour supprimer ce problème en faisant appel à une cellule dans une feuille et la fonction INDIRECT, mais je voudrais pouvoir le faire uniquement en codage VBA

Merci d'avance à ceux ou celles qui pourront m'éclairer sur ce sujet, car je cherche depuis longtemps la solution à ce problème, mais sans succès

[gFZT82]

Bonsoir,

Essaie avec ce code

Code :

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

1
2
3
4
5
6
7
Sub parcours()
Dim x As Byte
    For x = 1 To Worksheets.Count
        Worksheets(x).Select
        MsgBox "Nom de la feuille n° " & x & " : " & Worksheets(x).Name
    Next
End Sub

Cordialement.

[Titeuf4243]

Merci, cela me convient déjà bien comme réponse, en ce basant sur le numéro de la feuille, c'est déjà un progrès. Mais il peut m'arriver de ne vouloir que parcours les feuilles qui ne commencent que par le nom : "Feuil" & x
à ce moment là la macro ne fonctionne que si j'ai correctement créé mes feuilles dans le bon ordre

[gFZT82]

Re,

Le code que je t’ai proposé permet surtout de sélectionner toutes les feuilles du classeur et ce, quel que soit leur nom. Tu évites ainsi le risque d’erreur sur le nom de la feuille.
Si tu souhaites sélectionner des feuilles en particulier tu peux effectuer un test

Code :

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

1
2
3
4
5
6
7
8
9
Sub parcours()
Dim x As Byte
    For x = 1 To Worksheets.Count
        If Left(Worksheets(x).Name, 5) = "Feuil" Then
            Worksheets(x).Select
            MsgBox "Nom de la feuille n° " & x & " : " & Worksheets(x).Name
        End If
    Next
End Sub

Si tu souhaites sélectionner des feuilles « Feuil(x) » suivant leur ordre, tu peux coder

Code :

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

1
2
3
4
5
6
7
8
9
Sub parcours()
Dim x As Byte
Dim nom_feuille As String
    For x = 1 To 3
        nom_feuille = "Feuil" & x
        Worksheets(nom_feuille).Select
        MsgBox "Feuille sélectionnée : " & Worksheets(nom_feuille).Name
    Next
End Sub

Mais attention car si la feuille n’existe pas, le code va générer une erreur.

Cordialement.

[Titeuf4243]

Merci beaucoup gFZT82,

Avec ça je vais enfin pouvoir finaliser certaines des mes macros et avoir des classeurs plus propres, sans formules qui alourdissent les fichiers