Selectionner un onglet en connaissant que les premieres mettre

[Sophie11]

Bonjour,

Je voudrais ouvrir un onglet sans connaitre le nom exact de mon onglet (je connais que le début)
Par exemple imaginons que mon onglet s'appelle "Sophie" mais moi je sais juste qu'il s'appelle "Soph"
C'est possible de faire :
Sheets("Soph*").Select

Merci d'avance 🙂🙂

 

[Pierrot93]

Re : Selectionner un onglet en connaissant que les premieres mettre

Bonsoir Sophie,

peut être ainsi, en bouclant sur tous les onglets :

Option Explicit
Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Name Like "Soph*" Then
        ws.Activate
        Exit For
    End If
Next ws
End Sub

bonne soirée
@+

Edition : attention code sensible à la casse...

 

[ROGER2327]

Re : Selectionner un onglet en connaissant que les premieres mettre

Bonsoir à tous

Pour rendre le code de Pierrot93 insensible à la casse :

[COLOR="DarkSlateGray"][B]Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
    If UCase(ws.Name) Like UCase("Soph*") Then
        ws.Activate
        Exit For
    End If
Next ws
End Sub[/B][/COLOR]

ROGER2327
#3598

Samedi 14 Merdre 137 (Saint Sphincter, profès, SQ)
12 Prairial An CCXVIII
2010-W22-1T22:50:20Z

 

[Pierrot93]

Re : Selectionner un onglet en connaissant que les premieres mettre

Bonjour Sophie, Roger

une autre solution pour ignorer la casse :

Option Explicit
[B][COLOR="Blue"]Option Compare Text[/COLOR][/B]
Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Name Like "Soph*" Then
        ws.Activate
        Exit For
    End If
Next ws
End Sub

bonne journée
@+