Discussion :

[Invité]

Bonjour,

J'ai besoins d'aide. Je viens de mettre en place une petite application pour ma soeur. L'Objectif est la gestion des clients.
le fichier comporte 2 formulaires ( userform1 et userform2).

Dans la combobox1 de l'userform2, je souhaiterai que lorsqu'on saisie une lettre, la combobox liste tous les item commençant par la lettre choisie.

Par exemple, si je saisie M, la combobox affiche uniquement tous les noms commençant par " M".

J'ai déjà saisie ce code dans l’événement change de la combobox, afin d'afficher dans les textbox 4 et 5 les données liées au choix de la combobox. les textbox 2 et 7 me permettent de sasir de nouvelles valeurs .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub ComboBox1_Change()
Dim Lign As Long
'évite l'erreur de la méthode find si la combobox est vide.
If ComboBox1 = "" Then Exit Sub
With Sheets(ComboBox1.Value) 'A ADAPTER mettre ici le nom de la feuille ou vous cherchez vos valeurs
Me.TextBox4 = Sheets(ComboBox1.Value).Range("E200")
Me.TextBox5 = Sheets(ComboBox1.Value).Range("F200")
End With
With Sheets(ComboBox1.Value).Range("A1:F1000000")
ListBox1.RowSource = Range(.Cells, .End(xlDown)(1, 6)).Address(External:=True)
End With
End Sub.

Merci d'avance.

[mjpmjp]

bonjour,
voila ce que j'ai retenu
tu saisis un texte qui doit être recherché dans les lignes d'une liste
ces lignes doivent être écrite dans ?? une ou plusieurs textbox

voila ce qu'il me semble le plus pratique
j'ai une liste originale que je garde et où j’écris des nouvelles entrées
j'ai une textbox ou je saisis le texte de ma recherche
j'ai une liste résultat qui reçoit le résultat de la recherche dans la liste originale

le mécanisme
l’éventement de la textbox de recherche d’éclanche l'opération de recherche : M -> recherche M...Me -> nouvelle recherche Me...
la recherche est une boucle sur la liste originale avec par exemple "instr" ou "left(DataLigneListe,len(textbox.text))"
si une correspondance est trouvée alors ListRésultat add ListOrigine (voir la véritable syntaxe)

+++ on peut également envisager une deuxième liste de résultat :ListTemp qui serait utilisée dans le cas ou len(textbox.text) >1 +++
+++ pour boucler sur cette ListTemp et non sur la ListOriginale (gain de temps) +++

@+JP