Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

recherche intuitive infructueuse

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion erics83
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
E

erics83

XLDnaute Impliqué
Bonjour,

Grace aux tutos de JB, j'ai "repris" un code qui permet de faire une recherche intuitive : dans mon cas, un textbox12 où j'écris le nom, une listbox (rechercheactions) qui se met à jour en fonction des lettres que je tape, une "Liste" qui comprend les éléments déjà enregistrés.

Mais.....(et je pense que c'est tout simple, mais malgré plusieurs essais, pas trouvé.....)

comment faire disparaitre (Me.Rechercheactions.Visible = false) si les lettres que je tape ne sont pas dans ma "Liste".......et donc que je crée une nouvelle action...?

En clair, quand je tape dans Textbox12 un nom et que la recherche est infructueuse, comment faire pour "retenir" le nom tapé et enlever la listbox Rechercheactions......

Code: 
Me.Rechercheactions.Clear
   Me.Rechercheactions.Visible = True


   For i = LBound(Liste) To UBound(Liste)

     If UCase(Liste(i)) Like "*" & UCase(Me.TextBox12) & "*" Then
   
        On Error Resume Next
        Me.Rechercheactions.AddItem Liste(i)
        On Error GoTo 0
             
     End If
       
   Next i

Merci pour votre aide,
 
Dernière édition:
Trier par date Trier par votes
Bonjour JB,

Effectivement, c'est plus pratique avec un fichier test.....excusez moi....

Donc mon "problème" est lorsque je tape "Action 10" (par exemple, ou "Eric"), comme il n'est pas dans ma "Liste", je souhaiterai que la listbox Rechercheactions disparaisse.....

Merci pour votre aide,
Eric
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Code: 
Dim a()
Sub UserForm_Initialize()
  Set f = Sheets("feuil1")
  b = Application.Transpose(f.Range("L2:L" & [L65000].End(xlUp).Row))
  Set d = CreateObject("scripting.dictionary")
  For Each c In b:   d(c) = "":  Next c   ' élimination des doublons
  a = d.keys
  Me.ListBox1.List = a
End Sub

Private Sub Textbox1_Change()
  choix = Filter(a, Me.TextBox1.Text, True, vbTextCompare)
  If UBound(choix) > -1 Then
    Me.ListBox1.List = choix
    Me.ListBox1.Visible = True
  Else
    Me.ListBox1.Visible = False
  End If
End Sub

Boisgontier
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 Aide pour recherche intuitive
2
Réponses
16
Affichages
927
jeff1494
M
  • Question Question
XL 2010 Colorie certaines lettres en bleu dans la ListBox 1
Réponses
1
Affichages
423
job75
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
852
Dranreb
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
243
KRUG WOO
K
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
574
NONO14
N
  • Question Question
XL 2019 Détecter les valeurs suivant les tableaux sélectionnés et, si elles sont non-existantes, les copier
2 3
Réponses
33
Affichages
1 K
Amigo
S
  • Question Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
1 K
Sghaier Chafaa
S
R
  • Question Question
XL 2016 vbscript dans vba ejecter les lecteurs amovibles
Réponses
3
Affichages
551
Ron2cuir
R
EXCEL :: VBA :: PIVOTTABLE :: PIVOTCACHE :: Nettoyer le cache des TCD
Réponses
0
Affichages
138
oguruma
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
254
JJ69
J
C
  • Résolu(e)
XL 2021 Aide pour affichage colonne listbox après une recherche par textbox
Réponses
10
Affichages
606
Claudinedu13
C
O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
849
ChTi160
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
548
tactic6
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
706
Mody200
M
T
  • Question Question
XL 2021 message si une valeur n'existe pas
Réponses
6
Affichages
744
target
T
  • Résolu(e)
XL 2019 Organiser les données dans listbox
Réponses
2
Affichages
898
Messan
  • Question Question
Microsoft 365 VBA export Excel vers Word : Bnq congé 0
Réponses
5
Affichages
727
Phil69970
D
  • Question Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
798
crocrocro
C
C
  • Question Question
Autres Enregistrer un code barre dans la cellule avant le titre qui est déja enregistré
Réponses
11
Affichages
769
Chatron
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…