XL 2010 Utilisation variable dans code

[zebulon1]

Bonjour à tous,

Ci-dessous un code me permettant de rechercher un nom d'onglet dans tous les classeurs ouverts.

J'aimerais via une boite de dialogue saisir le nom de mon choix ( 5000 dans l'exemple ci-dessous)

Sub Test()

Dim Classeur As Workbook

Dim Feuille As Worksheet

For Each Classeur In Workbooks

For Each Feuille In Classeur.Worksheets

If Feuille.Name Like "5000" Then

Classeur.Activate

Feuille.Activate

Exit For

End If

Next Feuille, Classeur

End Sub


D'avance Merci

 

[zebulon1]

J'ai oublié de me présenter, voilà, je suis un papy de presque 80 ans qui arrache le peu de cheveux qui me reste en bricolant le vba c'est pourquoi je demande votre indulgence et votre patience.

 

[sylvanu]

Bonjour Zebulon, et bienvenu sur XLD,
Peut être avec ceci :

Sub Test()
 Dim Classeur As Workbook, Feuille As Worksheet, Chaine As String
    Chaine = InputBox("Entrez la chaine désirée :")
    If Chaine = "" Then Exit Sub
     For Each Classeur In Workbooks
         For Each Feuille In Classeur.Worksheets
          If Feuille.Name Like Chaine Then
             Classeur.Activate
            Feuille.Activate
            Exit For
         End If
     Next Feuille, Classeur
 End Sub

InputBox, fonction - Support Microsoft

support.microsoft.com

 

[zebulon1]

Bonjour Zebulon, et bienvenu sur XLD,
Peut être avec ceci :

Sub Test()
 Dim Classeur As Workbook, Feuille As Worksheet, Chaine As String
    Chaine = InputBox("Entrez la chaine désirée :")
    If Chaine = "" Then Exit Sub
     For Each Classeur In Workbooks
         For Each Feuille In Classeur.Worksheets
          If Feuille.Name Like Chaine Then
             Classeur.Activate
            Feuille.Activate
            Exit For
         End If
     Next Feuille, Classeur
 End Sub

InputBox, fonction - Support Microsoft

support.microsoft.com

Re bonjour,

Un IMMENCE MERCI Sylvanu c'est parfait.

 

[sylvanu]

Re,
Par contre cela signifie que vous entrez le nom exact de l'onglet recherché.
Si vous n'aviez en tête qu'une partie du nom alors préférez ceci :

If Feuille.Name Like "*" & Chaine & "*" Then

 

[patricktoulon]

re
bonsoir
non parfait ça ne l'ai pas
dans le sens ou tu utilise une fonction de la mauvaise manière
et là je parle de la fonction like
pour chercher "5000" on utilisera pas like mais =
maintenant si le nom recherché est "blablabla5000trucbidule"
alors on utilisera like
If Feuille.Name Like "*" & Chaine &"*" Then

edit @sylvanu on s'est croisé