La TextBox n'affiche aucune valeur = 0 ou valeur négative

Résolu/Fermé

Gustav - 11 janv. 2019 à 02:49
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 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

A voir également:

La TextBox n'affiche aucune valeur = 0 ou valeur négative
Valeur ascii - Guide
Liste de valeur excel - Guide
#Valeur excel - Guide
Void(0) ✓ - Forum Réseaux sociaux

4 réponses

Réponse 1 / 4

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
11 janv. 2019 à 08:38

Bonjour,

Ben, ca marche……

Réponse 2 / 4

Gustav
11 janv. 2019 à 08:42

Oui mais l'affiche en € n'apparait pas!

Réponse 3 / 4

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
11 janv. 2019 à 08:48

Re,

Ah bon!!!!!!!!

Gustav
11 janv. 2019 à 09:17

Peux-tu apporter des précisions concernant ta formule?
Merci

Réponse 4 / 4

Gustav
11 janv. 2019 à 09:02

Désolé mais je suis dessus depuis toute la nuit!

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
Modifié le 11 janv. 2019 à 11:53

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 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
11 janv. 2019 à 16:12

Re,

plus court:

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

Discussions similaires

Cellules en surbrillance selon une TextBox

Excel VBA : Récupérer la valeur d'une cellule

Que veut-dire valeur numérique

Excel:récupérer le contenu d'une cellule en fonction d'une autre

additionner nombres dans cellules avec texte