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

[Meosus]

Bonjour a tous,

Je suis a la recherche des lignes qui me permettent de remplir un tableau de sortie du matériel de ma boite.
Je souhaiterai que ma ligne s'incère après la dernière ligne rempli mais uniquement si toute les cases du formulaire sont remplis. (Dans le fichier joint cela correspond a la sortie matériel) qui prend les référence dans la feuille "Données" et les saisie dans la feuille "Affectations".

Aujourd’hui le problème que j'ai est que je n'arrive pas a incrémenter la macro pour qu'elle implante la ligne après la dernière et que le ligne se remplissent que si toute les cases soit remplit.

en espérant avoir été clair, (ce qui n'est pas facile quand on a sont idée dans la tête ^^)

En attente d'une réponse!

Merci d'avance

 

[CHALET53]

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+

 

[Meosus]

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!!