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
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
Pièces jointes
Dernière édition: