bonsoir Mielpops
1ère aide,la suite au prochain numéro(lol)
trève de plaisanteries,demain la suite
sub listbox1_change()
TextBox1.Value =listbox1.Column(0, listbox1.ListIndex)
TextBox2.Value = listbox1.Column(1, listbox1.ListIndex)
TextBox3.Value = listbox1.Column(2, listbox1.ListIndex)
end sub
écrire sur lafeuille
If listbox1.ListIndex <> -1 Then
Sheets('Feuil1').Cells(1, 4).Value = listbox1.Column(0, listbox1.ListIndex)
Sheets('Feuil1').Cells(1, 5) = listbox1.Column(1, listbox1.ListIndex)
Sheets('Feuil1').Cells(1, 6) = listbox1.Column(1, listbox1.ListIndex)
End If
Sheets('Feuil1').Cells(1, 4).Value = TextBox1.Value
Sheets('Feuil1').Cells(1, 5) = TextBox2.Value
Sheets('Feuil1').Cells(1, 6) =TextBox3.Value
à bientôt