XL 2019 Remplacer l'affichage d'un msgbox par celui d'un userform

[pat66]

Bonjour le forum,

Mes connaissances étant très limitées, je fais appel à ce forum car je souhaiterai remplacer l'affichage d'un msgbox par celui d'un Userform, ou autre.
Le but étant d'avoir un affichage personnalisable (police, taille, couleur, etc..)

Pour plus de compréhension, je joints un exemple qui contient la macro du msgbox opérationnelle de Vgendron , ainsi que le type d'Userform souhaité

Pourriez vous m'aider à adapter la condition d'affichage ainsi que le résultat du Msgbox à celui de L'Userform

merci d'avance pour votre aide

bonne journée

Pat66

 

[Dudu2]

Histoire d'aller jusqu'au bout et pour faire le lien avec mon Post précédent, avec ces 2 modules génériques:
- Module_PositionUserFormSurObjet
- UserForm MsgBoxPersoBasic

Un petit fichier de démo...A voir plus loin.

 

[pat66]

re,

intéressant cette solution !!,
mais est ce qu'on peut remplacer le msgbox par un commentaire pour éviter la barre de titre ?

car j'aurai aussi besoin d'un petit commentaire de la taille d'une cellule qui s'affiche au survol d'une plage de cellules


merci

 

[pat66]

re,

merci c'est mieux

peut t'on réduire la taille du msgbox drastiquement et lui demander de réaliser un calcul ?

 

[Dudu2]

mais est ce qu'on peut remplacer le msgbox par un commentaire pour éviter la barre de titre ?

On peut faire 2 choses, soit supprimer le Caption du UserForm, soit utiliser un autre moyen pour afficher de l'information en utilisant par exemple une TextBox dynamiquement créée.
J'ai ça quelque part, il faut que je regarde. Le positionnement sera plus simple car Cellule et TextBox ont le même Parent: la feuille.

 

[pat66]

ok merci

 

[Dudu2]

peut t'on réduire la taille du msgbox

Je vais voir avec le système TextBox, il faut que je le retrouve et probablement le mettre au carré.

et lui demander de réaliser un calcul ?

Faut pas trop rêver, le calcul, tu le fais et tu mets le résultat dans le texte.

 

[pat66]

ok merci

 

[Dudu2]

@patricktoulon,
Un autre challenge à venir... retrouver le Handle d'un UserForm par le nom du UserFrom au cas où son Caption est vide !
Généralement on fait:

UsfHandle = FindWindow(vbNullString, Usf.Caption)

Mais quand le Caption est vide, on en trouve pas la fenêtre !

 

[patricktoulon]

heu houais ben getactivewindow
LOL

 

[pat66]

alors les gars , vous m'avez perdu

 

[Dudu2]

heu houais ben getactivewindow

Heu, si le UserForm vbModeless n'est pas l'ActiveWindow ça va partir en sucette, non ?

@pat66, patience, tout n'est pas en plat du jour.

 

[patricktoulon]

re
x=me.left*point topixel
y=me.top*pointtopixel
handle=getwindowfrompoint('x,y)'ou (xy)pour64
terminé

edit:
j'y pense (je réagit en retard ce soir) fatigué
vbmodeless a rien avoir avec le fait d’être actif ou pas

 

[Dudu2]

vbmodeless a rien avoir avec le fait d’être actif ou pas

Ouais...ben non !
Avec GetActiveWindow, si le UserForm est vbModeless on n'est pas sûr de récupérer son Handle puisque par définition on peut activer autre chose, dont la feuille. S'il est vbModal, la question ne se pose pas.
Mais bon, on va pas repartir dans ces discussions sans fin. J'aurais pas dû te lancer sur ce challenge.

Option Explicit

Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr

Sub a()
    UserForm1.Show vbModeless
    MsgBox "GetActiveWindow = " & GetActiveWindow
End Sub

Sub b()
    MsgBox "GetActiveWindow = " & GetActiveWindow
End Sub

 

[Dudu2]

@pat66,

Voici un fichier qui contient le Module_ShowShape à inclure dans le Projet VBA qui lui-même contient la fonction ShowShape() qui permet d'afficher un texte à l'endroit voulu sur la feuille et avec des caractéristiques ajustables (voir paramètres de la fonction).

Voir la Module_Test pour la mise en œuvre avec quelques exemples.

Il te faut gérer:
- l'affichage et l'effacement (sauf si paramètre TemporisationSeconds défini) du message,
- la largeur / hauteur de la forme (paramètres Width / Height) selon la longueur / hauteur du texte,
- la position (sauf si centrée par défaut) de la forme (paramètres Left et Top).

 

[patricktoulon]

ben ca c'est sur si tu amuse a picoter avec ta souris partout ma fois
windowfrompoint du left et top en pixel et voila c'est terminé