MsgBox en couleur

Staple1600

XLDnaute Barbatruc

• 18 Mars 2008

• #2

Re : MsgBox en couleur

Bonjour


Oui mais c'est une sacrée aventure

(qui flirte avec le langage HTML ect ...)

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 18 Mars 2008

• #3

Re : MsgBox en couleur

Bonsoir La Vouivre, Staple1600
avec un USERFORM c est bien plus abordable .......essaye
E et F

 

Vote positif 0 Vote négatif

ftho

XLDnaute Occasionnel

• 18 Mars 2008

• #4

Re : MsgBox en couleur

Bonsoir tlm,

Une autre alternative est de jouer avec des images personnalisées

TEST ICI

 

Vote positif 0 Vote négatif

La Vouivre

XLDnaute Occasionnel

• 18 Mars 2008

• #5

Re : MsgBox en couleur

Merci pour vos reponces


Ftho ton fichier est tres intéressant ,mais ou est stoque l'image ?

 

Vote positif 0 Vote négatif

ftho

XLDnaute Occasionnel

• 18 Mars 2008

• #6

Re : MsgBox en couleur

L'image est simplement insérée sur la feuille avec une taille hauteur/largeur = 0/0. Ensuite, dans le code, au lieu d'afficher une MsgBox, on affiche l'image en lui redonnant ses dimensions originales.

J'ai ajouter un facteur "temps" qui permet de réduire à nouveau l'image au bout de quelques secondes

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 18 Mars 2008

• #7

Re : MsgBox en couleur

Bonsoir le fil,

mais ou est stoque l'image ?

Cliquez pour agrandir...

Pour la trouver modifie :

Code:

Sub Info_Off()
ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.Height = 100#
Selection.ShapeRange.Width = 100#
SendKeys "{ESC}"
End Sub

Cordialement

Edit : Désolé ftho, pas vu...

 

Vote positif 0 Vote négatif

La Vouivre

XLDnaute Occasionnel

• 18 Mars 2008

• #8

Re : MsgBox en couleur

Merci à tous
c'est une super trouvaille , je vais m'amuser à placer ce petit programe pour protéger les données de mes fichiers.
encore merci à tous
bonne soirée

 

Vote positif 0 Vote négatif