bonjour,
pourrais-je avoir en détails ligne par ligne la signification de ce code pour que je le comprene bien ?
merci
Private Sub ComboBox1_Change()
Dim Cell As Range
Dim Resultat As String
Resultat = ''
TextBox1 = ''
For Each Cell In Range('C13:C19')
If Cell = ComboBox1 Then _
Resultat = Resultat & Cell.Offset(0, 1) & vbTab & Cell.Offset(0, 2) & vbCrLf
Next Cell
TextBox1 = Resultat
End Sub