Selectionner un onglet en connaissant que les premieres mettre

Sophie11 · 31 Mai 2010

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 · 31 Mai 2010

Re : Selectionner un onglet en connaissant que les premieres mettre

Bonsoir Sophie,

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

Code:

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 · 1 Juin 2010

Re : Selectionner un onglet en connaissant que les premieres mettre

Bonsoir à tous

Pour rendre le code de Pierrot93 insensible à la casse :

Code:

[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 · 1 Juin 2010

Re : Selectionner un onglet en connaissant que les premieres mettre

Bonjour Sophie, Roger

une autre solution pour ignorer la casse :

Code:

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
@+

Selectionner un onglet en connaissant que les premieres mettre

Sophie11

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Selectionner un onglet en connaissant que les premieres mettre

Sophie11

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency