Bonjour,
Je suis débutant dans le domaine de Vba.
Je dois créer un logiciel permettant de trouver la signification de trigrammes (exemple).
Mon problème :
Je possède a peu près 650 trigrammes dans une colonne et dans l'autre colonne sa définition sur une feuille excel rangés par ordre alphabétique. J'ai créé 1 userform dans laquelle en inscrivant mon trigramme ou 1 lettre de celui-ci ou 2 lettres il m'affiche sa définition dans une listbox. Cepedant je reste bloqué car pour l'instant il faut que je tape en entier mon trigramme ou la 1ere lettre.
exemple :
AAA
ABC
AVD
VDH
Dans ma textbox1 j'inscris A, je veux voir AAA, ABC, AVD.
Si j'inscrit V, je veux voir AVD, VDH
Voici mon code jusqu'à maintenant :
Private Sub TextBox1_Change()
Dim derligne As Variant
Dim compt As Variant
compt = 0
TextBox1.Value = UCase(TextBox1.Value)
ListBox1.Clear
ListBox3.Clear
derligne = Range("A3").End(xlDown).Row
For n = 3 To derligne
If TextBox1.Value = Range("A" & n) Then
ListBox1.AddItem (Range("A" & n) & " - " & Range("B" & n))
ListBox3.AddItem (Range("A" & n).Row)
compt = compt + 1
End If
Next n
If ListBox3.ListIndex = -1 Then
compt = 0
Else: ListBox3.ListIndex = 0
End If
End Sub
Voila merci d'avance.
Je suis débutant dans le domaine de Vba.
Je dois créer un logiciel permettant de trouver la signification de trigrammes (exemple).
Mon problème :
Je possède a peu près 650 trigrammes dans une colonne et dans l'autre colonne sa définition sur une feuille excel rangés par ordre alphabétique. J'ai créé 1 userform dans laquelle en inscrivant mon trigramme ou 1 lettre de celui-ci ou 2 lettres il m'affiche sa définition dans une listbox. Cepedant je reste bloqué car pour l'instant il faut que je tape en entier mon trigramme ou la 1ere lettre.
exemple :
AAA
ABC
AVD
VDH
Dans ma textbox1 j'inscris A, je veux voir AAA, ABC, AVD.
Si j'inscrit V, je veux voir AVD, VDH
Voici mon code jusqu'à maintenant :
Private Sub TextBox1_Change()
Dim derligne As Variant
Dim compt As Variant
compt = 0
TextBox1.Value = UCase(TextBox1.Value)
ListBox1.Clear
ListBox3.Clear
derligne = Range("A3").End(xlDown).Row
For n = 3 To derligne
If TextBox1.Value = Range("A" & n) Then
ListBox1.AddItem (Range("A" & n) & " - " & Range("B" & n))
ListBox3.AddItem (Range("A" & n).Row)
compt = compt + 1
End If
Next n
If ListBox3.ListIndex = -1 Then
compt = 0
Else: ListBox3.ListIndex = 0
End If
End Sub
Voila merci d'avance.
