Msgbox et icône

[nounbxl76]

Bonsoir,

Je viens vers vous car je me lance petit à petit dans VB (et je dois dire que certaines personnes du forum me poussent au vice 🙂 ). Aujourd'hui, je cherche désespérément à mettre une icône "vbInformation" sur une msgbox mais je ne sais pas du tout où insérer l'info dans ce code :

Sub Bouton1_Clic()
Dim Var1 As String, Var2 As String, Var3 As String
Var1 = "ouverts : " & Range("E5").Value
Var2 = "fermés : " & Range("E6").Value
MsgBox Var1 & vbLf & _
Var2 & vbLf & _
""
End Sub

Quelqu'un pourrait-il m'aider SVP?

Merci par avance.

 

[A l l i g a t o r 427]

Re : Msgbox et icône

Hello

Tu as essayé comme cela ?

Dim Var1 As String, Var2 As String, Var3 As String
Var1 = "ouverts : " & Range("E5").Value
Var2 = "fermés : " & Range("E6").Value
MsgBox Var1 & vbLf & Var2 & vbLf, vbInformation

 

[nounbxl76]

Re : Msgbox et icône

Merci Alligator 427, c'est ok.
J'ai pratiquement honte 🙄

 

[klin89]

Re : Msgbox et icône

Salut A l l i g a t o r 427

Alligators 427
Aux ailes de cachemire safran,
Je grille ma dernière cigarette.
Je vous attends.
Sur cette autoroute hystérique
Qui nous conduit chez les mutants,
J'ai troqué mon coeur contre une trique.
Je vous attends.
Je sais que vous avez la beauté destructive
Et le sourire vainqueur jusqu'au dernier soupir.
Je sais que vos mâchoires distillent l'agonie.
Moi je vous dis : "bravo" et "vive la mort !"

Hubert Félix Thiéfaine

 

[A l l i g a t o r 427]

Re : Msgbox et icône

Hello klin89

Un autre fan de HFT, je vois
Avec Misange, cela fait trois.

J'ai le 33 tours à la maison et les paroles qui vont avec.

Merci pour ces paroles (qui seront utiles pour les nouvelles générations et un peu moins pour nounbxl76 😉 )

 

[francedemo]

Re : Msgbox et icône

juste pour dire 4
fan depuis de longues années, il doit me manquer 2 ou 3 albums...