XL 2010 Utilisation variable dans code

sylvanu à dit:

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

VB:

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

Cliquez pour agrandir...