chercher vba nom onglet

[jamespatagueul]

Bonjour,
je souhaite rechercher une feuille dans un classeur excel à l'aide de VBA.

Les feuilles sont nommées : "x - y" , ... sur N feuilles

Cependant, j'ai besoin de chercher la feuille, sans me soucier de x ou y.

voici la code fonctionnel actuel :

Sub cherche()

Dim sh As Worksheet
Dim Name As String
Name = Feuil1.Range("$F$2")

For Each sh In Worksheets
If sh.Name = Feuil1.Range("$F$2").Value Then
MsgBox "L'onglet" & " " & Name & " " & "existe." & Chr(13) & "Vous allez être redirigé vers cet onglet."
Feuil1.Range("$F$2").Value = ""
Sheets(Name).Activate
Exit For
End If
Next sh
End Sub

les onglets sont créer automatiquement apres renseignement dans feuil1 col A et B

Merci d'avance pour vos réponses

 

[Pierrot93]

Re : chercher vba nom onglet

Bonjour,

petite remarque au passage, "name" étant un mot réservé vba, déconseillé de l'utiliser comme nom de variable ou d'objet...

bonne journée
@+

 

[jamespatagueul]

Re : chercher vba nom onglet

Bonjour Pierrot93,
je suis autodidacte et ne maitrise pas toutes les subtilitées.
Merci pour les précisions pour lesquelles je vais creuser.

Pour rechercher un d'onglet dont le nom est composée, en tapant une partie du nom de l'onglet,
est ce possible ?
Merci

 

[Pierrot93]

Re : chercher vba nom onglet

Bonjour,

Pour rechercher un d'onglet dont le nom est composée, en tapant une partie du nom de l'onglet,
est ce possible ?

essaye avec l'opérateur "like" et le caractère "*"

If sh.Name Like "Toto*"

bonne journée
@+

 

[jamespatagueul]

Re : chercher vba nom onglet

Merci Pierrot93

"toto" est une variable (nom - prenom) cela peut il fonctionner ?

merci

 

[Pierrot93]

Re : chercher vba nom onglet

Re,

"toto" est une variable (nom - prenom) cela peut il fonctionner ?

en l'état du code, non ce n'est pas une variable, si cela était le cas il n'y aurait pas de guillemets.... teste un nom d'onglet commencant par "toto"

 

[jamespatagueul]

Re : chercher vba nom onglet

re,
il trouve l'onglet,
mais , je ne suis pas diriger dessus et pour les autres nom (mini 80 onglet)
comment effectuer la recherche. ??

compliqué
merci

 

[Pierrot93]

Re : chercher vba nom onglet

Re,

bah... montre le dernier code utilisé.....

 

[AntoineM]

Re : chercher vba nom onglet

Bonjour james, Pierrot, le forum,

Tu devrais joindre ton fichier en pièce-jointe histoire qu'on puisse tester nos idées

Dans l'attente de te lire,

Bonne journée

 

[jamespatagueul]

Re : chercher vba nom onglet

c'est le même que dans le premier poste.
Merci

 

[Pierrot93]

Re : chercher vba nom onglet

Re,

tu n'as pas utilisé l'opérateur "like" alors...

 

[jamespatagueul]

Re : chercher vba nom onglet

re,

ci-joint un fichier exemple
du coup j'ai d'autre erreur .

 

[Pierrot93]

Re : chercher vba nom onglet

Re,

modifie comme suit :

 Sub cherche()
 
 Dim sh As Worksheet 'déclaration de la variable sh en tant que feuille
 Dim n As String
 
 n= Feuil1.Range("$F$2")

 For Each sh In Worksheets 'pour chaque élément (chaque onglet) sh de la collection feuilles du classeur
    If sh.name Like "toto*" Then '= Feuil1.Range("$F$2").Value Then 'si le nom de la feuille ="xxx" alors
       
       MsgBox "L'onglet" & " " & n & " " & "existe." & Chr(13) & "Vous allez être redirigé vers cet onglet." 'afficher le message "L'onglet existe."
     '  Feuil1.Range("$F$2").Value = ""
     
       sh.Select
       Exit For 'quitter la boucle
    End If 'fin des instructions de la condition
 Next sh 'passage au traitement de l'élément suivant de la boucle
 End Sub

 

[jamespatagueul]

Re : chercher vba nom onglet

magnifique, comment inclure la recherche selon les variable nom ou prenom feuil bdd.

 

[Pierrot93]

Re : chercher vba nom onglet

Re,

magnifique, comment inclure la recherche selon les variable nom ou prenom feuil bdd.

pas tout compris... A noter que tu peux également mettre le caractère "joker" avant et ou après la chaine de caractères recherchée...