Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Format de nombre - MsgBox

Format de nombre - MsgBox

7 réponses
Avatar
Jo-Julie
Bonjour à tous,

J'utilise ceci pour un message box à l'ouverture de mon fichier

_____________________________
Next
P$ = "Bonjour," & vbNewLine & vbNewLine
With Sheets("Coûts")
P = P & "Nous sommes le " & Date & vbNewLine & vbNewLine
P = P & "Vous ouvrez le Projet No " & .Range("D2") & vbNewLine & vbNewLine
P = P & "Votre projet à débuté le " & .Range("K5").Text & vbNewLine &
vbNewLine
End With
P = P & "Vos Dépenses totales à ce jour s'élèvent à $" & Sheets("Rev. Vs
Dép.").Range("C18") & " " & vbNewLine & vbNewLine
P = P & "Vos Revenus totaux à ce jour se chiffrent à $" & Sheets("Rev. Vs
Dép.").Range("E18") & " " & vbNewLine & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("I20") & "% de
profits sur votre projet. " & vbNewLine & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("I49") & "%
d'avancement de votre projet. " & vbNewLine & vbNewLine
MsgBox P, vbInformation, "Bienvenue"
__________

Je cherche une faocn que la valeur de certaine cellule s'affiche en
pourcentage... Car comme c'est en ce moment cela à ffiche dans mon MsgBox
"0.5" ou "1" plutôt que "50" et "100"...

J'abuse encore... idem pour le format monétaire...

Merci de votre générosité de temps et de connaissance

Julie
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
MichDenis
Bonjour Julie,

Admettons qu'en A1 , tu as 6.25% et que tu veuilles faire apparaître ce contenu dans un msgbox,

MsgBox Format(Range("A1"), "0.00%")


Salutations!



"Jo-Julie" a écrit dans le message de news:

Bonjour à tous,

J'utilise ceci pour un message box à l'ouverture de mon fichier

_____________________________
Next
P$ = "Bonjour," & vbNewLine & vbNewLine
With Sheets("Coûts")
P = P & "Nous sommes le " & Date & vbNewLine & vbNewLine
P = P & "Vous ouvrez le Projet No " & .Range("D2") & vbNewLine & vbNewLine
P = P & "Votre projet à débuté le " & .Range("K5").Text & vbNewLine &
vbNewLine
End With
P = P & "Vos Dépenses totales à ce jour s'élèvent à $" & Sheets("Rev. Vs
Dép.").Range("C18") & " " & vbNewLine & vbNewLine
P = P & "Vos Revenus totaux à ce jour se chiffrent à $" & Sheets("Rev. Vs
Dép.").Range("E18") & " " & vbNewLine & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("I20") & "% de
profits sur votre projet. " & vbNewLine & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("I49") & "%
d'avancement de votre projet. " & vbNewLine & vbNewLine
MsgBox P, vbInformation, "Bienvenue"
__________

Je cherche une faocn que la valeur de certaine cellule s'affiche en
pourcentage... Car comme c'est en ce moment cela à ffiche dans mon MsgBox
"0.5" ou "1" plutôt que "50" et "100"...

J'abuse encore... idem pour le format monétaire...

Merci de votre générosité de temps et de connaissance

Julie
Avatar
Jero
Bonjour,
Voir du côté de Format
ex : MsgBox Format([A1], "00.00 %")
Jero
"Jo-Julie" a écrit dans le message de
news:
Bonjour à tous,

J'utilise ceci pour un message box à l'ouverture de mon fichier

_____________________________
Next
P$ = "Bonjour," & vbNewLine & vbNewLine
With Sheets("Coûts")
P = P & "Nous sommes le " & Date & vbNewLine & vbNewLine
P = P & "Vous ouvrez le Projet No " & .Range("D2") & vbNewLine & vbNewLine
P = P & "Votre projet à débuté le " & .Range("K5").Text & vbNewLine &
vbNewLine
End With
P = P & "Vos Dépenses totales à ce jour s'élèvent à $" & Sheets("Rev. Vs
Dép.").Range("C18") & " " & vbNewLine & vbNewLine
P = P & "Vos Revenus totaux à ce jour se chiffrent à $" & Sheets("Rev. Vs
Dép.").Range("E18") & " " & vbNewLine & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("I20") & "% de
profits sur votre projet. " & vbNewLine & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("I49") & "%
d'avancement de votre projet. " & vbNewLine & vbNewLine
MsgBox P, vbInformation, "Bienvenue"
__________

Je cherche une faocn que la valeur de certaine cellule s'affiche en
pourcentage... Car comme c'est en ce moment cela à ffiche dans mon MsgBox
"0.5" ou "1" plutôt que "50" et "100"...

J'abuse encore... idem pour le format monétaire...

Merci de votre générosité de temps et de connaissance

Julie


Avatar
Jo-Julie
Bonjour MichDenis

Merci beaucoup pour ta disponibilité

POurais-je encore abuser en te demandant plus de précision sur l'exemple que
tu me donne : MsgBox Format(Range("A1"), "0.00%")

Ou doisje insérer cette phrase dans ma syntaxe

merci encore!

Julie


Bonjour Julie,

Admettons qu'en A1 , tu as 6.25% et que tu veuilles faire apparaître ce contenu dans un msgbox,

MsgBox Format(Range("A1"), "0.00%")


Salutations!



"Jo-Julie" a écrit dans le message de news:

Bonjour à tous,

J'utilise ceci pour un message box à l'ouverture de mon fichier

_____________________________
Next
P$ = "Bonjour," & vbNewLine & vbNewLine
With Sheets("Coûts")
P = P & "Nous sommes le " & Date & vbNewLine & vbNewLine
P = P & "Vous ouvrez le Projet No " & .Range("D2") & vbNewLine & vbNewLine
P = P & "Votre projet à débuté le " & .Range("K5").Text & vbNewLine &
vbNewLine
End With
P = P & "Vos Dépenses totales à ce jour s'élèvent à $" & Sheets("Rev. Vs
Dép.").Range("C18") & " " & vbNewLine & vbNewLine
P = P & "Vos Revenus totaux à ce jour se chiffrent à $" & Sheets("Rev. Vs
Dép.").Range("E18") & " " & vbNewLine & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("I20") & "% de
profits sur votre projet. " & vbNewLine & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("I49") & "%
d'avancement de votre projet. " & vbNewLine & vbNewLine
MsgBox P, vbInformation, "Bienvenue"
__________

Je cherche une faocn que la valeur de certaine cellule s'affiche en
pourcentage... Car comme c'est en ce moment cela à ffiche dans mon MsgBox
"0.5" ou "1" plutôt que "50" et "100"...

J'abuse encore... idem pour le format monétaire...

Merci de votre générosité de temps et de connaissance

Julie





Avatar
Jero
Re bonjour jo-julie,
Comment as-tu fait pour écrire le code que tu nous as proposé ?
Si tu veux que Range("K5") soit au format "%", tu écris donc :
Format(.Range("K5"), "00.00 %") par exemple...
(j'ai écrit .Range à cause du With...)
Jero
"Jero" <~ a écrit dans le message de news:
%23UfI$
Bonjour,
Voir du côté de Format
ex : MsgBox Format([A1], "00.00 %")
Jero
"Jo-Julie" a écrit dans le message de
news:
Bonjour à tous,

J'utilise ceci pour un message box à l'ouverture de mon fichier

_____________________________
Next
P$ = "Bonjour," & vbNewLine & vbNewLine
With Sheets("Coûts")
P = P & "Nous sommes le " & Date & vbNewLine & vbNewLine
P = P & "Vous ouvrez le Projet No " & .Range("D2") & vbNewLine &
vbNewLine
P = P & "Votre projet à débuté le " & .Range("K5").Text & vbNewLine &
vbNewLine
End With
P = P & "Vos Dépenses totales à ce jour s'élèvent à $" & Sheets("Rev. Vs
Dép.").Range("C18") & " " & vbNewLine & vbNewLine
P = P & "Vos Revenus totaux à ce jour se chiffrent à $" & Sheets("Rev. Vs
Dép.").Range("E18") & " " & vbNewLine & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("I20") & "% de
profits sur votre projet. " & vbNewLine & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("I49") & "%
d'avancement de votre projet. " & vbNewLine & vbNewLine
MsgBox P, vbInformation, "Bienvenue"
__________

Je cherche une faocn que la valeur de certaine cellule s'affiche en
pourcentage... Car comme c'est en ce moment cela à ffiche dans mon MsgBox
"0.5" ou "1" plutôt que "50" et "100"...

J'abuse encore... idem pour le format monétaire...

Merci de votre générosité de temps et de connaissance

Julie






Avatar
Jacky
Bonsoir Julie

Ou doisje insérer cette phrase dans ma syntaxe


A defaut de Denis
Comme cela:

P = P & "Vous en êtes à " & Format(Sheets("Rev. VsDép.").Range("I20"),
"0.00%") & " de profits sur votre projet. " & vbNewLine &
vbNewLine

Salutations
JJ

"Jo-Julie" a écrit dans le message de
news:
Bonjour MichDenis

Merci beaucoup pour ta disponibilité

POurais-je encore abuser en te demandant plus de précision sur l'exemple
que

tu me donne : MsgBox Format(Range("A1"), "0.00%")

Ou doisje insérer cette phrase dans ma syntaxe

merci encore!

Julie


Bonjour Julie,

Admettons qu'en A1 , tu as 6.25% et que tu veuilles faire apparaître
ce contenu dans un msgbox,



MsgBox Format(Range("A1"), "0.00%")


Salutations!



"Jo-Julie" a écrit dans le message
de news:



Bonjour à tous,

J'utilise ceci pour un message box à l'ouverture de mon fichier

_____________________________
Next
P$ = "Bonjour," & vbNewLine & vbNewLine
With Sheets("Coûts")
P = P & "Nous sommes le " & Date & vbNewLine & vbNewLine
P = P & "Vous ouvrez le Projet No " & .Range("D2") & vbNewLine &
vbNewLine


P = P & "Votre projet à débuté le " & .Range("K5").Text & vbNewLine &
vbNewLine
End With
P = P & "Vos Dépenses totales à ce jour s'élèvent à $" & Sheets("Rev.
Vs


Dép.").Range("C18") & " " & vbNewLine & vbNewLine
P = P & "Vos Revenus totaux à ce jour se chiffrent à $" & Sheets("Rev.
Vs


Dép.").Range("E18") & " " & vbNewLine &
vbNewLine


P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("I20") & "%
de


profits sur votre projet. " & vbNewLine & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("I49") & "%
d'avancement de votre projet. " & vbNewLine & vbNewLine
MsgBox P, vbInformation, "Bienvenue"
__________

Je cherche une faocn que la valeur de certaine cellule s'affiche en
pourcentage... Car comme c'est en ce moment cela à ffiche dans mon
MsgBox


"0.5" ou "1" plutôt que "50" et "100"...

J'abuse encore... idem pour le format monétaire...

Merci de votre générosité de temps et de connaissance

Julie







Avatar
Jacky
re...
Attention,
Sheets("Rev. Vs Dép.")
et non pas
(Sheets("Rev. VsDép.")

Erreur de copier/coller

Bon courage
JJ

"Jo-Julie" a écrit dans le message de
news:
Bonjour MichDenis

Merci beaucoup pour ta disponibilité

POurais-je encore abuser en te demandant plus de précision sur l'exemple
que

tu me donne : MsgBox Format(Range("A1"), "0.00%")

Ou doisje insérer cette phrase dans ma syntaxe

merci encore!

Julie


Bonjour Julie,

Admettons qu'en A1 , tu as 6.25% et que tu veuilles faire apparaître
ce contenu dans un msgbox,



MsgBox Format(Range("A1"), "0.00%")


Salutations!



"Jo-Julie" a écrit dans le message
de news:



Bonjour à tous,

J'utilise ceci pour un message box à l'ouverture de mon fichier

_____________________________
Next
P$ = "Bonjour," & vbNewLine & vbNewLine
With Sheets("Coûts")
P = P & "Nous sommes le " & Date & vbNewLine & vbNewLine
P = P & "Vous ouvrez le Projet No " & .Range("D2") & vbNewLine &
vbNewLine


P = P & "Votre projet à débuté le " & .Range("K5").Text & vbNewLine &
vbNewLine
End With
P = P & "Vos Dépenses totales à ce jour s'élèvent à $" & Sheets("Rev.
Vs


Dép.").Range("C18") & " " & vbNewLine & vbNewLine
P = P & "Vos Revenus totaux à ce jour se chiffrent à $" & Sheets("Rev.
Vs


Dép.").Range("E18") & " " & vbNewLine &
vbNewLine


P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("I20") & "%
de


profits sur votre projet. " & vbNewLine & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("I49") & "%
d'avancement de votre projet. " & vbNewLine & vbNewLine
MsgBox P, vbInformation, "Bienvenue"
__________

Je cherche une faocn que la valeur de certaine cellule s'affiche en
pourcentage... Car comme c'est en ce moment cela à ffiche dans mon
MsgBox


"0.5" ou "1" plutôt que "50" et "100"...

J'abuse encore... idem pour le format monétaire...

Merci de votre générosité de temps et de connaissance

Julie







Avatar
Jo-Julie
Bonjour Jero,

Comment j'ai fait pour écrire le code?

En fait j'ai abuser de vous tous qui m'avez aidé si généreusement, patiement
et gentilment..

J'avais un projet à monter rapidement au bureau et vous m'avez tous été d'un
aide extraordinaire.

Mission àccompli, mon projet est terminé et c'est grace à vous tous

Ciao

Julie


Re bonjour jo-julie,
Comment as-tu fait pour écrire le code que tu nous as proposé ?
Si tu veux que Range("K5") soit au format "%", tu écris donc :
Format(.Range("K5"), "00.00 %") par exemple...
(j'ai écrit .Range à cause du With...)
Jero
"Jero" <~ a écrit dans le message de news:
%23UfI$
Bonjour,
Voir du côté de Format
ex : MsgBox Format([A1], "00.00 %")
Jero
"Jo-Julie" a écrit dans le message de
news:
Bonjour à tous,

J'utilise ceci pour un message box à l'ouverture de mon fichier

_____________________________
Next
P$ = "Bonjour," & vbNewLine & vbNewLine
With Sheets("Coûts")
P = P & "Nous sommes le " & Date & vbNewLine & vbNewLine
P = P & "Vous ouvrez le Projet No " & .Range("D2") & vbNewLine &
vbNewLine
P = P & "Votre projet à débuté le " & .Range("K5").Text & vbNewLine &
vbNewLine
End With
P = P & "Vos Dépenses totales à ce jour s'élèvent à $" & Sheets("Rev. Vs
Dép.").Range("C18") & " " & vbNewLine & vbNewLine
P = P & "Vos Revenus totaux à ce jour se chiffrent à $" & Sheets("Rev. Vs
Dép.").Range("E18") & " " & vbNewLine & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("I20") & "% de
profits sur votre projet. " & vbNewLine & vbNewLine
P = P & "Vous en êtes à " & Sheets("Rev. Vs Dép.").Range("I49") & "%
d'avancement de votre projet. " & vbNewLine & vbNewLine
MsgBox P, vbInformation, "Bienvenue"
__________

Je cherche une faocn que la valeur de certaine cellule s'affiche en
pourcentage... Car comme c'est en ce moment cela à ffiche dans mon MsgBox
"0.5" ou "1" plutôt que "50" et "100"...

J'abuse encore... idem pour le format monétaire...

Merci de votre générosité de temps et de connaissance

Julie