Dans un userform, j'ai des labels qui re=E7oivent des nombres et je souhait=
erai leur donner un format.
Pour le moment j'ai:
Me.Controls("Label" & i + 15) =3D Format(Cells(i + 7, 7).Value, "##0,00")
Mes nombres restent d=E9sesp=E9ramment sans format.=20
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonjour,
Essaye en remplacent la virgule par un point dans la définition du format remplacer "##0,00") par "##0.00")
-- Salutations JJ
"JP" a écrit dans le message de news:
Bonjour,
Dans un userform, j'ai des labels qui reçoivent des nombres et je souhaiterai leur donner un format. Pour le moment j'ai: Me.Controls("Label" & i + 15) = Format(Cells(i + 7, 7).Value, "##0,00")
Mes nombres restent désespéramment sans format.
Une idée, merci
JP
Bonjour,
Essaye en remplacent la virgule par un point dans la définition du format
remplacer
"##0,00")
par
"##0.00")
--
Salutations
JJ
"JP" <jthillard@gmail.com> a écrit dans le message de news:
50688e00-245f-4060-8e9c-76db0708e4f9@googlegroups.com...
Bonjour,
Dans un userform, j'ai des labels qui reçoivent des nombres et je souhaiterai leur donner un format.
Pour le moment j'ai:
Me.Controls("Label" & i + 15) = Format(Cells(i + 7, 7).Value, "##0,00")
Essaye en remplacent la virgule par un point dans la définition du format remplacer "##0,00") par "##0.00")
-- Salutations JJ
"JP" a écrit dans le message de news:
Bonjour,
Dans un userform, j'ai des labels qui reçoivent des nombres et je souhaiterai leur donner un format. Pour le moment j'ai: Me.Controls("Label" & i + 15) = Format(Cells(i + 7, 7).Value, "##0,00")
Mes nombres restent désespéramment sans format.
Une idée, merci
JP
MichD
Bonjour,
Avec la virgule comme séparateur décimale, ceci fonctionne très bien!
Re, Une précision encore car j'ai des labels qui se superposent et les nombre s ne s'alignent pas.
Exemple de ce que j'ai: -1203,00 104,00 6549,23
C'est pas beau!
Merci d'avance
JP
MichD
Dans ton formulaire, utilise la propriété "TextAlign" = 3 - FmTextAlignRight
tous les nombres vont s'afficher à droite dans le contrôle "étiquette".
Si tu veux que les nombres ne soient pas à l'extrémité droite du "Label" tu peux ajouter des espaces dans le format du label. Tu peux ajouter le nombre d'espaces que tu désires.
Voici un exemple : Me.Label1.Caption = Format(Range("a1").Value, "# ##0.00"" ") & vbCrLf & _ Format(Range("a2").Value, "# ##0.00"" ")
Si tu ajoutes des espaces, tu ne dois pas oublier de les enlever si tu effectues des opérations avec ces nombres ou si tu les copies vers des cellules de la feuille de calcul.
N.B. Si les cellules sont au format "Standard" ou "Nombre", je ne vois pas pourquoi tu dois faire une substitution de la virgule pour le point...
MichD --------------------------------------------------------------- "JP" a écrit dans le message de groupe de discussion :
Re, Une précision encore car j'ai des labels qui se superposent et les nombres ne s'alignent pas.
Exemple de ce que j'ai: -1203,00 104,00 6549,23
C'est pas beau!
Merci d'avance
JP
Dans ton formulaire, utilise la propriété "TextAlign" = 3 - FmTextAlignRight
tous les nombres vont s'afficher à droite dans le contrôle "étiquette".
Si tu veux que les nombres ne soient pas à l'extrémité droite du "Label"
tu peux ajouter des espaces dans le format du label. Tu peux ajouter
le nombre d'espaces que tu désires.
Voici un exemple :
Me.Label1.Caption = Format(Range("a1").Value, "# ##0.00"" ") & vbCrLf & _
Format(Range("a2").Value, "# ##0.00"" ")
Si tu ajoutes des espaces, tu ne dois pas oublier de les enlever si
tu effectues des opérations avec ces nombres ou si tu les copies
vers des cellules de la feuille de calcul.
N.B. Si les cellules sont au format "Standard" ou "Nombre", je ne vois pas
pourquoi tu dois faire une substitution de la virgule pour le point...
MichD
---------------------------------------------------------------
"JP" a écrit dans le message de groupe de discussion :
c73769e3-baa8-4b2d-8596-0765d0db10a8@googlegroups.com...
Re,
Une précision encore car j'ai des labels qui se superposent et les nombres
ne s'alignent pas.
Dans ton formulaire, utilise la propriété "TextAlign" = 3 - FmTextAlignRight
tous les nombres vont s'afficher à droite dans le contrôle "étiquette".
Si tu veux que les nombres ne soient pas à l'extrémité droite du "Label" tu peux ajouter des espaces dans le format du label. Tu peux ajouter le nombre d'espaces que tu désires.
Voici un exemple : Me.Label1.Caption = Format(Range("a1").Value, "# ##0.00"" ") & vbCrLf & _ Format(Range("a2").Value, "# ##0.00"" ")
Si tu ajoutes des espaces, tu ne dois pas oublier de les enlever si tu effectues des opérations avec ces nombres ou si tu les copies vers des cellules de la feuille de calcul.
N.B. Si les cellules sont au format "Standard" ou "Nombre", je ne vois pas pourquoi tu dois faire une substitution de la virgule pour le point...
MichD --------------------------------------------------------------- "JP" a écrit dans le message de groupe de discussion :
Re, Une précision encore car j'ai des labels qui se superposent et les nombres ne s'alignent pas.
Exemple de ce que j'ai: -1203,00 104,00 6549,23
C'est pas beau!
Merci d'avance
JP
JP
La solution "TextAlign" = 3 - FmTextAlignRight me convient très bien, p arfaitement bien meme!
Merci
JP
La solution "TextAlign" = 3 - FmTextAlignRight me convient très bien, p arfaitement bien meme!