Affichage dans textbox celon cellule format décimal (négatif ou positif)

[wrap food]

Bonjour

Je suis bloqué une le format d'un textbox qui fait référence à une cellule .

J'ai un usf dans lequel j'ai plusieurs textbox qui vont inscrire la saisie dans des cellules .

j'effectue sur la feuille avec ces données des opérations .

le résultats de ces opérations est dans la cellule "j35"

j'ai réussis à mettre ce résulta dans un textbox,"caisse_1_Ecart " mais ci le résultat de la cellule est avec des décimales le résulat qui s'affiche dans le textbox ne correspond pas au résultat de la celule .

Voila le code que j'ai mis ( sachant qu'il recalcule a chaque saisie dans le textbox"CAISSE_1_ESPECE_0_01"

Private Sub CAISSE_1_ESPECE_0_01_Change()
Range("b20").Value = CAISSE_1_ESPECE_0_01.Value
caisse_1_Ecart = IIf(Range("j35") = 0, "", Range("j35"))
End Sub

Pourriez vous l'aider à solutionner nom problème .

Par avance MERCI

 

[Bebere]

Re : Affichage dans textbox celon cellule format décimal (négatif ou positif)

bonjour wrap food

Private Sub CAISSE_1_ESPECE_0_01_Change()
Range("b20").Value = CDBL(CAISSE_1_ESPECE_0_01.Value)'ajout cdbl
caisse_1_Ecart = IIf(Range("j35") = 0, "", Range("j35"))
End Sub

si besoin

'teste si numeric et remplace . par ,

Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
     Case Asc(",")
         
     Case Asc(".")
        KeyAscii = Asc(",") 'Remplace . par virgule
     Case Else
      If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
      End Select
 End Sub

'colore le texte en rouge si d3 négatif
If Range("D3") < 0 Then Me.TextBox1.ForeColor = &HFF& 'rouge

 

[wrap food]

Re : Affichage dans textbox celon cellule format décimal (négatif ou positif)

Bonjour et merci de passer du temps sur mon problème.

Mais c'est sur la deuxième partie du code que j'ai un problème

"caisse_1_Ecart = IIf(Range("j35") = 0, "", Range("j35"))"
je récurais bien le chiffre qui est dans la cellule J35 mais c'est le format qui ne va pas.

Dans la cellule j'ai -0.41 et dans le textbox j'ai le chiffre -0.409999999 qui apparait.

Comment pourrais je faire pour avoir un format à 2 décimal dans le textbox " caisse_1_Ecart "

Par avance merci de votre aide

 

[Bebere]

Re : Affichage dans textbox celon cellule format décimal (négatif ou positif)

bonjour wrap food
comme suit
"caisse_1_Ecart = IIf(Range("j35") = 0, "", format(Range("j35"),"0.00"))"

 

[wrap food]

Re : Affichage dans textbox celon cellule format décimal (négatif ou positif)

Un grand merci