bonjour,
dans un projet, j'affiche les valeurs de 2 variables dans=20
le m=EAme Msgbox avec entre les deux chr(13) pour qu'elles=20
soient chacune sur une ligne.
mon probl=E8me est que je n'arrive pas =E0 centrer=20
horizontalement l'affichage de ces valeurs.
merci de votre aide.
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
garnote
Salut mikee,
Voici un exemple :
Sub AfficheCentrée() v1 = "123456789" v2 = "3456" n1 = Len(v1) n2 = Len(v2) m = WorksheetFunction.Max(n1, n2) MsgBox Space(m - n1) & v1 & Chr(13) & Space(m - n2) & v2, _ vbInformation, "Bien centré ?" End Sub
mais est-ce ce type d'alignement que tu désires ?
Serge
"mikee" a écrit dans le message de news: 036701c394ed$3d426fb0$ bonjour, dans un projet, j'affiche les valeurs de 2 variables dans le même Msgbox avec entre les deux chr(13) pour qu'elles soient chacune sur une ligne. mon problème est que je n'arrive pas à centrer horizontalement l'affichage de ces valeurs. merci de votre aide.
Salut mikee,
Voici un exemple :
Sub AfficheCentrée()
v1 = "123456789"
v2 = "3456"
n1 = Len(v1)
n2 = Len(v2)
m = WorksheetFunction.Max(n1, n2)
MsgBox Space(m - n1) & v1 & Chr(13) & Space(m - n2) & v2, _
vbInformation, "Bien centré ?"
End Sub
mais est-ce ce type d'alignement que tu désires ?
Serge
"mikee" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 036701c394ed$3d426fb0$a301280a@phx.gbl...
bonjour,
dans un projet, j'affiche les valeurs de 2 variables dans
le même Msgbox avec entre les deux chr(13) pour qu'elles
soient chacune sur une ligne.
mon problème est que je n'arrive pas à centrer
horizontalement l'affichage de ces valeurs.
merci de votre aide.
Sub AfficheCentrée() v1 = "123456789" v2 = "3456" n1 = Len(v1) n2 = Len(v2) m = WorksheetFunction.Max(n1, n2) MsgBox Space(m - n1) & v1 & Chr(13) & Space(m - n2) & v2, _ vbInformation, "Bien centré ?" End Sub
mais est-ce ce type d'alignement que tu désires ?
Serge
"mikee" a écrit dans le message de news: 036701c394ed$3d426fb0$ bonjour, dans un projet, j'affiche les valeurs de 2 variables dans le même Msgbox avec entre les deux chr(13) pour qu'elles soient chacune sur une ligne. mon problème est que je n'arrive pas à centrer horizontalement l'affichage de ces valeurs. merci de votre aide.
Mikee
Désolé Garnote de répondre si tard mais j'étais en déplacement et je n'ai pas de PC portable mais encore le bon vieux gros PC de bureau. j'ai modifié ton code pour arriver à ceci:
Sub AfficheCentrée() v1 = "123456789" v2 = "3456" n1 = Len(v1) n2 = Len(v2) m = WorksheetFunction.Max(n1) m2 = WorksheetFunction.Max(n2) MsgBox Space(m2) & v1 & Chr(13) & Space(m) & v2, , "Bien centré ?" End Sub
ça marche bien, grâce à toi je suis arrivé à ce que je voulais. Merci beaucoup et à bientôt. Mikee
news: 036701c394ed$3d426fb0$ bonjour, dans un projet, j'affiche les valeurs de 2 variables dans le même Msgbox avec entre les deux chr(13) pour qu'elles soient chacune sur une ligne. mon problème est que je n'arrive pas à centrer horizontalement l'affichage de ces valeurs. merci de votre aide.
.
Désolé Garnote de répondre si tard mais j'étais en
déplacement et je n'ai pas de PC portable mais encore le
bon vieux gros PC de bureau.
j'ai modifié ton code pour arriver à ceci:
Sub AfficheCentrée()
v1 = "123456789"
v2 = "3456"
n1 = Len(v1)
n2 = Len(v2)
m = WorksheetFunction.Max(n1)
m2 = WorksheetFunction.Max(n2)
MsgBox Space(m2) & v1 & Chr(13) & Space(m) & v2, , "Bien
centré ?"
End Sub
ça marche bien, grâce à toi je suis arrivé à ce que je
voulais.
Merci beaucoup et à bientôt.
Mikee
"mikee" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news: 036701c394ed$3d426fb0$a301280a@phx.gbl...
bonjour,
dans un projet, j'affiche les valeurs de 2 variables dans
le même Msgbox avec entre les deux chr(13) pour qu'elles
soient chacune sur une ligne.
mon problème est que je n'arrive pas à centrer
horizontalement l'affichage de ces valeurs.
merci de votre aide.
Désolé Garnote de répondre si tard mais j'étais en déplacement et je n'ai pas de PC portable mais encore le bon vieux gros PC de bureau. j'ai modifié ton code pour arriver à ceci:
Sub AfficheCentrée() v1 = "123456789" v2 = "3456" n1 = Len(v1) n2 = Len(v2) m = WorksheetFunction.Max(n1) m2 = WorksheetFunction.Max(n2) MsgBox Space(m2) & v1 & Chr(13) & Space(m) & v2, , "Bien centré ?" End Sub
ça marche bien, grâce à toi je suis arrivé à ce que je voulais. Merci beaucoup et à bientôt. Mikee
news: 036701c394ed$3d426fb0$ bonjour, dans un projet, j'affiche les valeurs de 2 variables dans le même Msgbox avec entre les deux chr(13) pour qu'elles soient chacune sur une ligne. mon problème est que je n'arrive pas à centrer horizontalement l'affichage de ces valeurs. merci de votre aide.
