Autour de la recherche intuitive

[J-c]

Bonjour à tous

A partir de l'exemple joint qui utilise la recherche intuitive,(Merci JB) pouvez vous me dir,comment modiffier le code pour récuperer la valeur de la colonne "G" Feuil2dans le textBox6
Je ne souhaite récupérer que les colonnes "C,D,G"
Le code actuel est le suivant, cela fontionne,si l' on choisi une ligne directement dans la listBox1.
Mais si l' on commence par réduir la liste au moyen de la recherche intuitive,la valeur de la colonne "G" ,n'est pas celle de la ligne selectionné

Private Sub ListBox1_Click()
Dim i As Integer
Lig = ListBox1.ListIndex
For i = 2 To 3
Me.Controls("textbox" & i) = Me.ListBox1.Column(i - 1)
Next i
TextBox6.Value = Sheets("Feuil2").Range("B3").Cells(Lig + 1, 6).Value
End Sub

Merci pour votre aide
Cdlt J-C

 

[JORDAN]

Re : Autour de la recherche intuitive

Bonjour J-c

En mettant ceci peut être :

TextBox6.Value = Me.ListBox1.Column(5)

Bonne journée

 

[J-c]

Re : Autour de la recherche intuitive

Bonsoir à tous

Oui c' est parfait !!

Merci Jordan
Cdlt J-C