Bonjour
voici mon code je souhaite insérer 2 dtpicker a la fin.
Private Sub ComboBox1_Change() 'Nouveau
'End Sub
'Correspond au programme du bouton Rechercher
'Private Sub CommandButton1_Click()
If ComboBox1.ListIndex = -1 Then Exit Sub
Dim no_ligne As Integer
no_ligne = ComboBox1.ListIndex + 2
ComboBox1.Value = Cells(no_ligne, 2).Value
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
TextBox5.Value = Cells(no_ligne, 5).Value
TextBox6.Value = Cells(no_ligne, 6).Value
TextBox7.Value = Cells(no_ligne, 7).Value
TextBox8.Value = Cells(no_ligne, 8).Value
TextBox9.Value = Cells(no_ligne, 9).Value
TextBox10.Value = Cells(no_ligne, 10).Value
TextBox11.Value = Cells(no_ligne, 11).Value
TextBox12.Value = Cells(no_ligne, 12).Value
TextBox13.Value = Cells(no_ligne, 13).Value
TextBox14.Value = Cells(no_ligne, 14).Value
DTPicker1
DTPicker2
End Sub
Merci