Selection de page

[Shinichi]

Bonjour...

Je reviens a l'assaut, mais je voudrais savoir si quelqu'un sait comment selectionner des pages d'un même classeur commençant par la même chaine de caractère.

Exemple:
Mon classeur a des pages nommées toto1, toto2, toto3 et bob1, bob2, bob3
Je voudrais selectionner automatiquement avec une macro toutes les pages toto. Le problème c'est que je ne peux pas prévoir à l'avance combien il y en aura au total...

Merci pour votre aide

Bruno

 

[EricS]

Bonjour,

tu peux t'inspirer de cela en remerciant Zon

Sub macro3()
Dim Zone(), I&
For Each feuille In Sheets
If Left(feuille.Name, 4) = "toto" Then

ReDim Preserve Zone(I)
Zone(I) = feuille.Name
I = I + 1
End If
Next feuille
If I = 0 Then MsgBox "pas de feuille correspondant"
If I > 0 Then Sheets(Zone).Select

End Sub

A+
Eric

 

[Shinichi]

Meri beaucoup tu m'as été d'une aide précieuse...