Petit probleme de macro

post prod · 21 Janvier 2009

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 · 21 Janvier 2009

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 · 21 Janvier 2009

Re : Petit probleme de macro

merci roro 69 je regarde ca tout de suite

Petit probleme de macro

post prod

XLDnaute Occasionnel

roro69

XLDnaute Impliqué

post prod

XLDnaute Occasionnel

Discussions similaires

Petit probleme de macro

post prod

XLDnaute Occasionnel

roro69

XLDnaute Impliqué

post prod

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency