Hello
Hello
@job75
pour remplir tes champs, il faut préciser dans quelle feuille aller chercher les infos;. sinon par défaut il prend la feuille active.. ici "Formulaire"
Private Sub CommandButton3_Click()
Dim no_ligne As Integer
no_ligne = ComboBox2.ListIndex + 2
With Sheets("Suivi DI") 'attention au nom de ta feuille, il y a deux espaces..
TextBox1.Value = .Cells(no_ligne, 1).Value
TextBox2.Value = .Cells(no_ligne, 2).Value
TextBox3.Value = .Cells(no_ligne, 3).Value
TextBox4.Value = .Cells(no_ligne, 4).Value
ComboBox1.Value = .Cells(no_ligne, 5).Value
TextBox4.Value = .Cells(no_ligne, 6).Value
End With
End Sub