Affichage texte dans TEXTBOX d'une USERFORM
Bonjour,
J'ai actuellement un USERFORM dans laquelle j'affiche grâce à plusieurs TEXTBOX une division (4/30, 28/31, 5/16...)
Mais cela pose problème lorsque la division peut être assimilée à une date.
J'ai le cas de figure ou 2/3 me revoit la valeur de la date 44257.
Voici le code que j'utilise, j'ai fait plusieurs essais en changeant la fin de la formule mais je n'arrive pas à obtenir ce que je recherche.
TextBox25.Value = Format(Sheets("Calculs").Range("A1"), "0")Voici ce que contient la cellule A1, changer le format de la cellule ne résout pas non plus mon problème.
=B1&"/"&C1Je vous remercie par avance pour votre aide.
Cordialement.
Bonjour,
A tout hasard, votre formule en A1:
=TEXTE(B1;"0")&"/"&TEXTE(C1;"0")et la textbox:
TextBox25.Value = Sheets("Calculs").Range("A1")Cdlt
Bonjour et merci pour ton aide :-)
=TEXTE(B1;"0")&"/"&TEXTE(C1;"0")N'a pas d'impact, mais il fallait essayer ;-)
Par contre le fait d'oublier cette histoire de format pour l'affichage de la valeur dans la TEXTBOX fonctionne parfaitement
TextBox25.Value = Sheets("Calculs").Range("A1")Encore merci et bon week-end.
Bonjour,
1- et certainement le plus important : VBA étant très permissif, il convient de préciser qu'elle propriété, de votre objet, vous souhaitez utiliser.
Ici, l'objet étant Range, vous avez le choix d'utiliser les propriétés suivantes :
> Value,
> Text,
> (Value2)
Exemple avec votre code :
TextBox25.Value = Sheets("Calculs").Range("A1").TextJe vous laisse vous renseigner sur la différence entre Value et Text... L'aide Microsoft en ligne est très claire.
2- Format(xxx, "0") va chercher à retourner un nombre (ben oui "0" quoi...).
Pour formater un texte en ... texte, il convient d'utiliser "@" :
Format(Sheets("Calculs").Range("A1"), "@")C'est idem que dans le formatage d'une cellule...
Voilà, n'hésitez pas...
A++
Merci pour ces précisions supplémentaires :-)