Bonsoir,
juste une petite modification sur le code du clic sur la ListBox afin de "supporter" le déplacement éventuel de ce tableau sur la feuille :
Private Sub ListBox1_Click()
Dim position As Long
With [Tableau1]
position = .Find(ListBox1, LookIn:=xlValues, lookat:=xlWhole).Row - .Row + 1
TextBox1 = .Item(position, 1)
TextBox2 = .Item(position, 2)
TextBox3 = .Item(position, 3)
End With
End Sub
En fait on prend le numéro de ligne de la feuille Excel où se trouve la valeur cherchée :
.Find(ListBox1, LookIn:=xlValues, lookat:=xlWhole).Row
puis on en soustrait le numéro de la ligne de feuille Excel où se trouve l'entête du tableau, et on ajoute 1 afin de "tomber" sur la première ligne de données.
@ bientôt
LouReeD