La TextBox n'affiche aucune valeur = 0 ou valeur négative [Résolu/Fermé]

Signaler
-
Messages postés
15217
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 mai 2020
-
Bonjour à tous et merci pour votre précieuse réponse. Voilà mon problème:
J'ai dans un UserForm la formule suivante :
Private Sub UserForm_Initialize()
TextBox1 = Sheets("Fevrier").Select
TextBox1.Value = Format(Range("Q6").Value, "0.00" & " €")
TextBox1 = Replace(TextBox1.Value, ".", ",")
End Sub
Je m'explique :
Dans la cellule Q6 d'une feuille excel (nommée Fevrier), j'ai la valeur 44.
Dans la TextBox1 correspondante, je retrouve cette valeur 44.
Si dans la cellule Q6, j'ai 0 ou une valeur négative, Textbox1 est blanc, je n'ai rien.
Que faudrait-il rajouter comme ligne(s) à cette formule ci-dessus ou modifier pour avoir en TextBox1 n'importe quelle valeur positive ou négative (par exemple -38)
J'espère avoir été clair et merci à vous de me répondre.
Bonne journée
Gustav

4 réponses

Messages postés
15217
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 mai 2020
1 280
Bonjour,

Ben, ca marche……
Oui mais l'affiche en € n'apparait pas!
Messages postés
15217
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 mai 2020
1 280
Re,

Ah bon!!!!!!!!

Peux-tu apporter des précisions concernant ta formule?
Merci
Désolé mais je suis dessus depuis toute la nuit!
Messages postés
15217
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 mai 2020
1 280
Re,

Ai rien change. Pour la ligne format, juste mis ce qui est normal, pas d'incidence sur le resultat

Private Sub UserForm_Initialize()
    TextBox1 = Sheets("Fevrier").Select
    TextBox1.Value = Format(Range("Q6").Value, "0.00€")
    TextBox1 = Replace(TextBox1.Value, ".", ",")
End Sub

A defaut mettez votre fichier a dispo
Messages postés
15217
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
13 mai 2020
1 280
Re,

plus court:

Private Sub UserForm_Initialize()
    TextBox1 = Replace(Format(Sheets("Fevrier").Range("Q6").Value, "0.00€"), ".", ",")
End Sub