Créer un outil de recherche d'onglet en vba
Résolu/Fermé
anesr
Messages postés
22
Date d'inscription
mercredi 26 février 2014
Statut
Membre
Dernière intervention
10 novembre 2016
-
26 févr. 2014 à 23:21
anesr Messages postés 22 Date d'inscription mercredi 26 février 2014 Statut Membre Dernière intervention 10 novembre 2016 - 8 mars 2014 à 16:34
anesr Messages postés 22 Date d'inscription mercredi 26 février 2014 Statut Membre Dernière intervention 10 novembre 2016 - 8 mars 2014 à 16:34
A voir également:
- Créer un outil de recherche d'onglet en vba
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Créer un groupe whatsapp - Guide
- Créer un compte instagram - Guide
- Créer un organigramme - Guide
6 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
27 févr. 2014 à 00:02
27 févr. 2014 à 00:02
Tu peux choisir dans une liste existant déjà :
Clic droit sur les boutons de déplacement parmi les onglets (en bas à gauche des noms d'onglets)
Clic droit sur les boutons de déplacement parmi les onglets (en bas à gauche des noms d'onglets)
lynyrd1960
Messages postés
207
Date d'inscription
jeudi 26 janvier 2012
Statut
Membre
Dernière intervention
30 juin 2023
244
27 févr. 2014 à 00:03
27 févr. 2014 à 00:03
Bonjour tout le monde
Ou par VBA
A+
https://www.cjoint.com/?DBBab1ObUIl
Ou par VBA
A+
https://www.cjoint.com/?DBBab1ObUIl
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
Modifié par eriiic le 27/02/2014 à 00:54
Modifié par eriiic le 27/02/2014 à 00:54
Bonsoir à tous,
avec un formulaire.
Saisir une partie du nom dans la Textbox, la liste des feuilles comprenant ces caractères se crée.
Si la Textbox est vide, toutes les feuilles sont listées
Un double-clic sur un nom de feuille l'active.
https://www.cjoint.com/c/DBBa0JUXTIS
Fait rapidement vue l'heure, il y a peut-être des trucs à améliorer. On verra ça demain.
eric
PS: c'est un formulaire non modal. On peut le laisser ouvert et travailler sur les feuilles.
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu lorsque c'est le cas (en haut vers votre titre).
Merci
avec un formulaire.
Saisir une partie du nom dans la Textbox, la liste des feuilles comprenant ces caractères se crée.
Si la Textbox est vide, toutes les feuilles sont listées
Un double-clic sur un nom de feuille l'active.
https://www.cjoint.com/c/DBBa0JUXTIS
Fait rapidement vue l'heure, il y a peut-être des trucs à améliorer. On verra ça demain.
eric
PS: c'est un formulaire non modal. On peut le laisser ouvert et travailler sur les feuilles.
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu lorsque c'est le cas (en haut vers votre titre).
Merci
anesr
Messages postés
22
Date d'inscription
mercredi 26 février 2014
Statut
Membre
Dernière intervention
10 novembre 2016
27 févr. 2014 à 17:55
27 févr. 2014 à 17:55
merci pour vos réponses ça m'a bcp aidé et dsl pour mon manque de connaissance sur excel -_-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
anesr
Messages postés
22
Date d'inscription
mercredi 26 février 2014
Statut
Membre
Dernière intervention
10 novembre 2016
Modifié par anesr le 6/03/2014 à 16:23
Modifié par anesr le 6/03/2014 à 16:23
eriiic,
je reviens vers toi parce que dans la liste des onglet disponibles je voudrait en cacher certaint mais je sais pas comment modifier le code pour cela .
Pourrai tu me donner un coup' de pouce stp
Merci
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Cible As Integer
On Error Resume Next
With ListBox1
If .ListIndex < 0 Then Exit Sub
Cible = .ListIndex
Worksheets(.Text).Activate
End With
End Sub
--------------------------------------------------------------------------------------------------------
Private Sub TextBox2_Change()
Dim Sh As Worksheet
ListBox1.Clear
For Each Sh In Worksheets
If TextBox2 = "" Then
ListBox1.AddItem Sh.Name
Else
If InStr(LCase(Sh.Name), LCase(TextBox2)) > 0 Then
ListBox1.AddItem Sh.Name
End If
End If
Next Sh
End Sub
-------------------------------------------------------------------------------------------------------
Private Sub UserForm_Initialize()
Dim Sh As Worksheet
ListBox1.Clear
For Each Sh In Worksheets
ListBox1.AddItem Sh.Name
Next Sh
ListBox1.SetFocus
End Sub
je reviens vers toi parce que dans la liste des onglet disponibles je voudrait en cacher certaint mais je sais pas comment modifier le code pour cela .
Pourrai tu me donner un coup' de pouce stp
Merci
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Cible As Integer
On Error Resume Next
With ListBox1
If .ListIndex < 0 Then Exit Sub
Cible = .ListIndex
Worksheets(.Text).Activate
End With
End Sub
--------------------------------------------------------------------------------------------------------
Private Sub TextBox2_Change()
Dim Sh As Worksheet
ListBox1.Clear
For Each Sh In Worksheets
If TextBox2 = "" Then
ListBox1.AddItem Sh.Name
Else
If InStr(LCase(Sh.Name), LCase(TextBox2)) > 0 Then
ListBox1.AddItem Sh.Name
End If
End If
Next Sh
End Sub
-------------------------------------------------------------------------------------------------------
Private Sub UserForm_Initialize()
Dim Sh As Worksheet
ListBox1.Clear
For Each Sh In Worksheets
ListBox1.AddItem Sh.Name
Next Sh
ListBox1.SetFocus
End Sub
eriiic
Messages postés
24570
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 avril 2024
7 213
6 mars 2014 à 18:36
6 mars 2014 à 18:36
Pas bonjour non plus,
Pour ne pas à avoir à modifier la macro à chaque changement, j'ai ajouté une feuille 'Paramétrage' pour lister ces feuilles à ne pas lister.
Ajout code un peu partout, et dans Worksheet_Deactivate() de la feuille 'Paramétrage'.
A tester et faire un retour : https://www.cjoint.com/?DCgsIoHaP4S
eric
Pour ne pas à avoir à modifier la macro à chaque changement, j'ai ajouté une feuille 'Paramétrage' pour lister ces feuilles à ne pas lister.
Ajout code un peu partout, et dans Worksheet_Deactivate() de la feuille 'Paramétrage'.
A tester et faire un retour : https://www.cjoint.com/?DCgsIoHaP4S
eric
anesr
Messages postés
22
Date d'inscription
mercredi 26 février 2014
Statut
Membre
Dernière intervention
10 novembre 2016
8 mars 2014 à 16:34
8 mars 2014 à 16:34
Bonjour eriiic
merci beaucoup , j'ai repris ton fichier et je l'ai adapté à mon travail et ça marche nickel...
Merci infiniment.
merci beaucoup , j'ai repris ton fichier et je l'ai adapté à mon travail et ça marche nickel...
Merci infiniment.
