chercher et activer une feuille d'un calsseur

[sony]

Bonjour forum,
Dans un classeur excel je veux chercher une feuille et l'activer si elle existe.
Merci à tous.

 

[sony]

en vba bien sûr

 

[Lord Nelson]

Salut Sony,

Si comme moi tu es fan des boucles For Each, ton code pourrait ressembler à ceci :

Private Sub CommandButton1_Click()
Dim WS As Worksheet
Dim F As String, OK As Boolean
'Demander le nom de feuille à activer :
F = InputBox("Feuille à chercher")
If F <> "" Then
'Parcourir toutes les feuilles du classeur :
For Each WS In Worksheets
'Tester le nom de chaque feuille (ici en lettres minuscules)
If LCase(WS.Name) = LCase(F) Then
OK = True
WS.Activate
Exit For
End If
Next
If OK = False Then
MsgBox "Désolé, pas de feuille " & F
End If
End If
End Sub

A+
LN