La TextBox n'affiche aucune valeur = 0 ou valeur négative
Résolu
Gustav
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
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
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
-
Bonjour,
Ben, ca marche…… -
-
Re,
Ah bon!!!!!!!!
-
-
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 -
-
