Implantation de donnée d'un formulaire en fin de feuille

Re : Implantation de donnée d'un formulaire en fin de feuille

Bonjour

remplace ton code par :

Private Sub CommandButton2_Click()

If Me.Controls("TextBox1") = "" Then
MsgBox "la désignation n'est pas remplie"
End If

If Me.Controls("TextBox2") = "" Then
MsgBox "l'affectation n'est pas remplie"
TextBox2.SetFocus
Exit Sub
End If


If Me.Controls("TextBox3") = "" Then
MsgBox "l'attribution n'est pas remplie"
TextBox3.SetFocus
Exit Sub
End If


Stop
Sheets("Affectation").Activate
derligne = Sheets("Affectation").Range("A65535").End(xlUp).Row + 1
Range("A" & derligne).Value = DateTime.Now
Range("B" & derligne).Value = ComboBox2.Value
Range("C" & derligne).Value = ComboBox1.Value
Range("D" & derligne).Value = TextBox1.Value
Range("E" & derligne).Value = TextBox2.Value
Range("F" & derligne).Value = TextBox3.Value


Unload UserForm1

End Sub

a+

Re : Implantation de donnée d'un formulaire en fin de feuille

Merci beaucoup, sa marche impeccable, j'ai juste supprimer le "stop" car il bloque la macro et se met en défaut et l'espace entre Ro w!

En tout cas Merci!!