Liste intuitive , choix multiple

[herve62]

Bonsoir
Des "spécialistes" VBA m'avaient aidés a compléter le bouton 'Autre' j'aurais aimé savoir s'il était possible
d'avoir un choix supplémentaire qui permettrait d'afficher plusieurs N° sans retaper
Dans le fichier exemple :
Je commence à taper CA , j'ai la liste des Cars xxxx , je clique sur 1 j'ai les infos
Le PLus : je clique sur un autre les nouvelles infos s'affichent

J'ai commencer à chercher , mais je ne pense pas que l'on puisse mettre 2 contrôles de Listbox ??
car à mon avis il faut traiter Clic et Change
Mais peut être autre méthode ?

PS : on accède à Excel en fermant l'usf via la X

 

[jp14]

Bonsoir
Si j'ai bien compris le problème

En rajoutant un "flag" on évite la réentrance dans une procédure

Dim Flag As Boolean

On positionne le flag

Private Sub ListBox1_Click()
j = ListBox1.Value
Flag = True
'MsgBox j ' 
Set cell = Sheets("liste").Range("A:C").Find(j)
TextBox1 = j ' MODIF > AJOUTE
TextBox2 = Format(cell.Offset(0, 1), "0# ## ## ## ##")
TextBox3 = cell.Offset(0, 2)
Flag = False
End Sub

Private Sub textBox1_Change()
If Flag = True Then Exit Sub
  Set d1 = CreateObject("Scripting.Dictionary")
  If Me.TextBox1 = "" Then
     tmp = ""
  Else
      tmp = Me.TextBox1 & "*"
      TextBox2 = ""
      TextBox3 = ""
  End If
'  tmp = Me.TextBox1 & "*"
  For Each c In a
   If c Like tmp Then d1(c) = ""
  Next c
  Me.ListBox1.List = d1.keys
End Sub

A tester

JP14

 

[herve62]

Bonjour
Merci à vous , Nicole ton appli marche bien mais je voulais rester dans mon format car ce Pg est en service
donc comme juste avec 3 lignes de + par JP j'ai exactement ce qu'il faut j'ai fait la correction très rapidement
Néanmoins Je garde ta méthode , une de + dans le grenier!