Menu

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

- - Dernière réponse : f894009
Messages postés
13917
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
20 janvier 2019
- 11 janv. 2019 à 16:12
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
Afficher la suite 

Votre réponse

4 réponses

Messages postés
13917
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
20 janvier 2019
1287
0
Merci
Bonjour,

Ben, ca marche……
Commenter la réponse de f894009
0
Merci
Oui mais l'affiche en € n'apparait pas!
Commenter la réponse de Gustav
Messages postés
13917
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
20 janvier 2019
1287
0
Merci
Re,

Ah bon!!!!!!!!

Peux-tu apporter des précisions concernant ta formule?
Merci
Commenter la réponse de f894009
0
Merci
Désolé mais je suis dessus depuis toute la nuit!
f894009
Messages postés
13917
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
20 janvier 2019
1287 -
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
f894009
Messages postés
13917
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
20 janvier 2019
1287 -
Re,

plus court:

Private Sub UserForm_Initialize()
    TextBox1 = Replace(Format(Sheets("Fevrier").Range("Q6").Value, "0.00€"), ".", ",")
End Sub
Commenter la réponse de Gustav