Titre du sujet : Re: message erreur #Valeur
par JCGL le 08/02/2009 18:36:47
Bonjour à tous,
Bienvenue à notre ami Manchot ,
Peux-tu essayer avec :
Private Sub CmdEnregistrer_Click() 'bouton enregistrer'
Dim i As Byte, Nom As String
Dim DerLig As Long
Nom = ComboBox1
With Sheets(Nom)
DerLig = .Range("A65536").End(xlUp).Row + 1
.Cells(DerLig, 1) = ComboBox6 'Date du jour colonne A
.Cells(DerLig, 3) = ComboBox2 'Titre colonne C
.Cells(DerLig, 4) = TextBox2 'N� ch�que colonne D
.Cells(DerLig, 5) = ComboBox3 'Destinataire colonne E
.Cells(DerLig, 6) = ComboBox4 'Cat�gorie colonne F
.Cells(DerLig, 7) = TextBox6 'Sous cat�gorie colonne G
.Cells(DerLig, 8) = Format(TextBox3, "0.00") 'D�bit colonne H
.Cells(DerLig, 9) = Format(TextBox4, "0.00") 'Cr�dit colonne I
End With
End Sub
Chez moi cela fonctionne : il te faudra remplacer le . par une , dans le format soit "0,00"
A+ à tous
|
Didier FOURGEOT