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

Dudu2

XLDnaute Barbatruc

• 17 Novembre 2022

• #16

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.

 

Dernière édition: 17 Novembre 2022

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 17 Novembre 2022

• #17

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

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 17 Novembre 2022

• #18

re,

merci c'est mieux

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 17 Novembre 2022

• #19

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 17 Novembre 2022

• #20

ok merci

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 17 Novembre 2022

• #21

peut t'on réduire la taille du msgbox

Cliquez pour agrandir...

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 ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 17 Novembre 2022

• #22

ok merci

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 17 Novembre 2022

• #23

@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:

VB:

UsfHandle = FindWindow(vbNullString, Usf.Caption)

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 17 Novembre 2022

• #24

heu houais ben getactivewindow
LOL

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 17 Novembre 2022

• #25

alors les gars , vous m'avez perdu

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 17 Novembre 2022

• #26

heu houais ben getactivewindow

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 17 Novembre 2022

• #27

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 17 Novembre 2022

• #28

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

Cliquez pour agrandir...

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.

VB:

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 17 Novembre 2022

• #29

@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).

 

Pièces jointes

• MsgBoxPerso via Shape.xlsm

  30.5 KB · Affichages: 2

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 17 Novembre 2022

• #30

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é

 

Vote positif 0 Vote négatif