La TextBox n'affiche aucune valeur = 0 ou valeur négative
Résolu
Gustav
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 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
A voir également:
- La TextBox n'affiche aucune valeur = 0 ou valeur négative
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
- Valeur ascii - Guide
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. ✓ - Forum Excel
- Valeur relative et absolue - Forum Programmation
- Liste de valeur excel - Guide
4 réponses
Re,
Ai rien change. Pour la ligne format, juste mis ce qui est normal, pas d'incidence sur le resultat
A defaut mettez votre fichier a dispo
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
