XL 2010 Utilisation variable dans code

zebulon1 · 2 Mars 2024

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 · 2 Mars 2024

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 · 2 Mars 2024

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

zebulon1 · 2 Mars 2024

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

Re bonjour,

Un IMMENCE MERCI Sylvanu c'est parfait.

sylvanu · 2 Mars 2024

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 :

VB:

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

patricktoulon · 2 Mars 2024

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é

XL 2010 Utilisation variable dans code

zebulon1

XLDnaute Nouveau

Pièces jointes

zebulon1

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

InputBox, fonction - Support Microsoft

zebulon1

XLDnaute Nouveau

InputBox, fonction - Support Microsoft

sylvanu

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires