OVH Cloud OVH Cloud

msgbox : mettre en gras

1 réponse
Avatar
Arzac
Bonsoir
je voudrai créer une msgbox qui permet de savoir si les cours sont complets

w11 = dnc + Worksheets("Planning").Range("AB4").Value
cw11 = Worksheets("Planning").Range("AB1").Value
If w11 <> "complet" Then cours1 = cw11 + Chr(9) + w11: pl = pl + cours1 +
Chr(13) + Chr(13)
...
rep = MsgBox(pl, vbOKOnly, "Cours encore libre ")

J'ai mis une tabulation et un retour à la ligne pour que les elements soient
alignés et rendre la lecture plus facile.
Peut-on mettre en gras un element de la liste ainsi créée car je voudrai
mettre en gras les cours complet .

Merci pour votre aide

--
Cordialement
Arzac

1 réponse

Avatar
ChrisV
Bonjour Arzac,

Pourquoi ne pas créer une UF...?

Sinon sur le site de Misange...
http://disciplus.simplex.free.fr/classeursxl/mp-msgbox.zip
http://www.excelabo.net/xl/messages.php#msgboxperso


ChrisV


"Arzac" a écrit dans le message de news:

Bonsoir
je voudrai créer une msgbox qui permet de savoir si les cours sont
complets

w11 = dnc + Worksheets("Planning").Range("AB4").Value
cw11 = Worksheets("Planning").Range("AB1").Value
If w11 <> "complet" Then cours1 = cw11 + Chr(9) + w11: pl = pl + cours1 +
Chr(13) + Chr(13)
...
rep = MsgBox(pl, vbOKOnly, "Cours encore libre ")

J'ai mis une tabulation et un retour à la ligne pour que les elements
soient alignés et rendre la lecture plus facile.
Peut-on mettre en gras un element de la liste ainsi créée car je voudrai
mettre en gras les cours complet .

Merci pour votre aide

--
Cordialement
Arzac