Excel erreur dans cellule ou textBox (#Valeur)

bonjour le forum, j'ai un gros problème avec mes formules depuis hier que je cherche et que je ne trouve pas la solution. J'ai créer un UserForm1 avec textBox4 = débit et textBox3 = crédit, jusqu'a la ça va. Mais quand j'enregistre mes données sur ma feuille janvier les cellule ou il y a mes formules me marque #Valeur. De l'aide SVP. merci.

Ci-joint mon fichier.

https://www.excel-pratique.com/~files/doc/Compteessai.xls

Bonjour

Edit: Après nouveau contrôle

La cellule J5 du début de la colonne J est au format TEXTE, l'audit de Formule indiquant "" au lieu de 0.

Pour remédier à ce problème ,sélectionne J6 et fait une recopie incrémentée jusqu'en J5.

Note: ceci est valable pour les autres feuilles aussi.

Cordialement

Amadéus a écrit :

Bonjour

Edit: Après nouveau contrôle

La cellule J5 du début de la colonne J est au format TEXTE, l'audit de Formule indiquant "" au lieu de 0.

Pour remédier à ce problème ,sélectionne J6 et fait une recopie incrémentée jusqu'en J5.

Note: ceci est valable pour les autres feuilles aussi.

Cordialement

merci pour ta réponse mais!

Cela ne fonctionne pas, je pense que cela peut venir de mes textBoxs. A l'aide

Bonjour

Sélectionnes successivement J5, I7 et J7 et appuie sur la touche effacement.

et, dis moi le résultat

Cordialement

Amadéus a écrit :

Bonjour

Sélectionnes successivement J5, I7 et J7 et appuie sur la touche effacement.

et, dis moi le résultat

Cordialement

Il n'y a rien qui se passe.

Re Bonjour

Comprends pas...

https://www.excel-pratique.com/~files/doc/Anomalie.xls

Cordialement

Amadéus a écrit :

Re Bonjour

Comprends pas...

https://www.excel-pratique.com/~files/doc/Anomalie.xls

Cordialement

Bon j'ai repris le fichier que j'ai télécharger sur le site, tu n'as pas tort quand ont effacent

les 3 cellules comme tu le dit précèdament. Mais lorsque je valider mes données via mon formulaire le message #Valeur apparait dans les cellules. Alors !!!!!

Bonsoir,

dans ton code "Enregistrer", essaie ainsi :

'Met en place les données dans les cellules de la feuille de calcul'
Private Sub CommandButton1_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) = ComboBox2
.Cells(DerLig, 3) = ComboBox3
.Cells(DerLig, 4) = TextBox1
.Cells(DerLig, 5) = ComboBox4
.Cells(DerLig, 6) = ComboBox5
.Cells(DerLig, 7) = TextBox2
For i = 3 To 4
    If Me.Controls("TextBox" & i) <> "" Then
        .Cells(DerLig, 6 + i) = CDbl(Me.Controls("TextBox" & i))
    End If
Next i
End With
Unload Me
End Sub

Bonsoir

Félix, comme je suis nul en VBA, je teste, je reteste et j'essaie de comprendre.

Avec ton code, je n'ai pas plus de résultat.

Je pense quant à moi que:

1) il faut sélectionner J5, I7 et J7 et effacer le contenu sur chaque feuille mois avant tout.

2) il faut appliquer ton code en remplaçant dans

Cells(DerLig, 6 + i) = CDbl(Me.Controls("TextBox" & i)) 

CDbl par CCur

Cordialement

Re,

comme tu l'as dit juste avant, il a des erreurs sur les 3 1ères lignes....

pour mon code, j'ai rectifié en interne, ces erreurs....

Ensuite, entre CCur et CCbl, juste une dimension de différence.....

Mais le principal, c'est qu'il rectifie les premières cellules occasionnant les erreurs......

Ensuite, il y a bien plus simple, pour le même résultat, mais faut qu'il travaille un peu...

Bonne soirée