Validation donnée VBA

[Ouin-Ouin]

Bonjour à tous,
Pourquoi la commande ne fonctionne pas? En faite les données ne vont pas dans la feuil3 dans les cellules respectives
Merci de votre aide et excellente journée
Ouin-Ouin

Private Sub CommandButton1_Click()
Dim Ligne As Long
If TextBox1 = "" Then Exit Sub
Ligne = Feuil3.Range("A65536").End(xlUp).Row + 1
Feuil3.Range("A" & CStr(Ligne)) = TextBox1
Feuil3.Range("B" & CStr(Ligne)) = TextBox2
Feuil3.Range("C" & CStr(Ligne)) = TextBox3
Feuil3.Range("D" & CStr(Ligne)) = TextBox4
Feuil3.Range("E" & CStr(Ligne)) = TextBox5
Feuil3.Range("F" & CStr(Ligne)) = TextBox6
Feuil3.Range("G" & CStr(Ligne)) = TextBox7
Feuil3.Range("H" & CStr(Ligne)) = TextBox8
Feuil3.Range("I" & CStr(Ligne)) = TextBox9

End Sub

Private Sub CommandButton4_Click()
Unload Me
End Sub

Private Sub UserForm_Click()

End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = UCase(TextBox1.Text)
End Sub

Private Sub UserForm_Initialize()
TextBox2.MaxLength = 8
End Sub

 

[Ouin-Ouin]

Bonsoir à tous Bonsoir Horatio,

Merci beaucoup de ton aide Horatio Cette fois on y est et la première partie de mon application est bonne OUF je crois déséspérer avec Messieurs Excel et VBA
Reste le plus dur à faire les calculs de cumul on va voir comment s'y prendre
A+
Ouin-Ouin

 

[Ouin-Ouin]

Bonsoir le Forum,
Je désire parfaire mon USF qui fonctionne bien ouf...

Je voudrai qu'il ne soit pas possible de valider l'usf si un TextBox n'et pas rempli Un petit message apparâit pour rendre attentif l'utilisateur

Le commandbutton devrait en plus de valider l'action de l'USF me permettre de saisir un deuxième puis un troisième... enregistrement à la suite

Merci et bonne soirée
Ouin-Ouin