bonjour dhany
merci pour la reponse
je viens d jouter le module 1 avec le code et cela fonctionne
je viens d essayer d ajouter un nom
mais lorsque je clique sur le bouton ajouter
j ai une erreur a cet endroit
Cells(ligne, 3) = TextBox2.Value
dans cette partie du code
Private Sub CommandButton1_Click()
'double click bouton ajouter
If ComboBox1.Value = "" Then
MsgBox "Veuillez renseigner le champs 'Nom/Prénom' "
Else
Dim ligne As Integer
If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then
Worksheets("Feuil1").Select
ligne = Sheets("Feuil1").Range("A456541").End(xlUp).Row + 1
Cells(ligne, 1) = TextBox1.Value
Cells(ligne, 2) = ComboBox1.Value
Cells(ligne, 3) = TextBox2.Value
Cells(ligne, 4) = TextBox3.Value
Cells(ligne, 5) = TextBox4.Value
Cells(ligne, 6) = TextBox5.Value
Cells(ligne, 7) = TextBox6.Value
Unload UserForm1
UserForm1.Show
Else
End If
End If
End Sub