Salut Luc,
non plutôt bonsoir Luc,
Première chose, il faut sortir de la procédure si l'un des TextBox n'est pas satisfaisant :
If Sheet1.TextBox1.Value = "" Then
MsgBox "Please enter the first name of the candidate."
Sheet1.TextBox1.Activate
Exit Sub
End If
'(idem pour TextBox2 et TextBox4)
'Si l'on arrive ici, c'est que les tests ont été franchis avec succès, donc :
' Oublier ceci :
' Go to Sheet2
' Sheets("Sheet2").Select
' Range("A1").Select
'
' Reporter sur la feuille 2 la saisie :
Dim Ligne as Long
' Trouver la première ligne disponible de la Feuil2 :
Ligne = Feuil2.Range("A65536").End(xlUp).Row + 1
' Pour y reporter les données :
Feuil2.Range("A" & Cstr(Ligne)) = TextBox1
Feuil2.Range("B" & Cstr(Ligne)) = TextBox2
Feuil2.Range("C" & Cstr(Ligne)) = TextBox4
' Enfin, vider les TextBoxs :
TextBox1 = ""
TextBox2 = ""
TextBox4 = ""
TextBox1.Activate
Tu devras bien sûr adapter la procédure en fonction des correspondances entre les colonnes de la Feuille 2 et les TextBoxs, mais ça devrait le faire.
A+
Horatio