Petit probleme de macro

[post prod]

Bonjour a tous ,apres du travail est beaucoup d'aide du forum
j'ai fait une feuille de calcul pour de la compta
mais il me reste un petit soucie sur la box
si je ne remplie pas toute les cases il me donne une erreur
ci joint un bout de fichier
merci d'avance pour votre aide

 

[roro69]

Re : Petit probleme de macro

Bonjour ;si tu n'est pas obligé de remplir tout les cases alors voici le code à mettre pour le bouton valider:

With Sheets("JANV")
derlign = .Range("A65000").End(xlUp).Row + 1
If TextBox1 = "" Then MsgBox "Au moins la date": Exit Sub
On Error Resume Next

.Range("A" & derlign) = CDate(Me.TextBox1)
.Range("B" & derlign) = CCur(Me.TextBox5)
.Range("C" & derlign) = ComboBox3
.Range("D" & derlign) = CCur(Me.TextBox2)
.Range("F" & derlign) = CCur(Me.ComboBox2)
.Range("H" & derlign) = CCur(Me.TextBox3)
.Range("I" & derlign) = CCur(Me.TextBox4)
.Range("J" & derlign) = ComboBox1
.Range("L" & derlign) = CCur(Me.TextBox6)
.Range("M" & derlign) = CCur(Me.TextBox7)
.Range("N" & derlign) = ComboBox4
.Range("P" & derlign) = CCur(Me.TextBox8)
.Range("Q" & derlign) = CCur(Me.TextBox9)
End With

Il faut quand même la date je supposes car tu par de la ligne "A"
A++

 

[post prod]

Re : Petit probleme de macro

merci roro 69 je regarde ca tout de suite