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

 

[Gégé-45550]

Bonjour,
Une proposition en PJ
Cordialement

 

[fanfan38]

Bonjour
Ci joint ma solution

A+ François

 

[sylvanu]

Bonjour Pat,
Un essai en PJ avec userform.
Votre macro devient simplement :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("G4:G13")) Is Nothing Then
    If Target <> 1 Then Exit Sub
    Message = "Grâce à cette offre," & Chr(13) & Chr(10) & Chr(10) & "vous économisez " & Round(Range("J4") / Target.Offset(0, -1).Value, 2) & " mois de reste à charge" & Chr(13) & Chr(10) & Chr(10) & "Toutes nos félicitations"
    UserForm1.Texte = Message
    UserForm1.Show
End If
End Sub

Et j'ai créé un userform pour remonter les informations du message.

 

[patricktoulon]

bonjour
un hersât de mon msgbox perso j'ai mis juste le necessaire adapté a ta demande
les option couleur, texte sont pilotable

les types possibles
vbYesNo:
vbOKOnly
vbOKCancel
vbAbortRetryIgnore
vbYesNoCancel
vbRetryCancel

il va de soi que le message peut toujours fonctionner en responsif

 

[pat66]

Bonjour Messieurs,,
un grand merci car toutes vos solutions correspondent à mes attentes,

Un dernière requête si je peux me permettre, peut on faire en sorte que le haut de l'userform s'affiche en étant aligné avec cellule G que l'on vient de saisir ?
Exemple :
je saisi 1 en G6, l'angle supérieur gauche de l'userform s'aligne s'aligne sur G6
je saisi 1 en G8, l'angle supérieur gauche de l'userform s'aligne s'aligne sur G8
etc....

merci d'avance pour votre aide

 

[fanfan38]

il suffit de demander

A+ François

 

[Dudu2]

Bonjour,
Avec quelle solution tu veux ce positionnement ?

 

[Dudu2]

Pour info, positionner un UserForm sur un objet de feuille (cellule, Shape) n'est pas totalement trivial.
@patricktoulon en sait quelque chose qui a travaillé sur la question des marges avec l'utilisation d'une API du Desktop Windows Manager.

J'en ai tiré cette fonction qui gère ce genre de positionnement, à utiliser éventuellement en l'appelant:

 Call PositionUserFormSurObjetFeuille(MonUserFormTartempion, ActiveSheet.Range("G6"))

Et bien sûr en incluant le Module_PositionUserFormSurObjet dans le Projet VBA.

Fichier... voir plus loin.

 

[pat66]

Re,

Fanfan38, c'est presque çà, mais il s'aligne à droite sur la colonne H et non sur la colonne G, est ce possible de l'aligner sur la colonne G ou même la colonne F, à la ligne que l'on vient de saisir le 1, voir mon post #6, merci

 

[pat66]

Bonjour Dudu2, houaoou ! version VBA7, c'est la classe !!, mais il me faut quelque chose de plus simple
Je le garde au chaud au cas ou !
merci quand même

pat66

 

[fanfan38]

il suffit d'aller dans les propriétés de l'userform (left et top)

A+ François

 

[Dudu2]

@pat66,

mais il me faut quelque chose de plus simple
Je le garde au chaud au cas ou !

Tu fais comme tu veux, mais je ne vois pas en quoi ça complique ton code d'inclure un module et d'appeler une fonction de positionnement, positionnement que tu veux faire et qui te coutera plus d'instructions et de calculs que l'appel de cette simple fonction.

 

[pat66]

re,

Fanfan38, mon problème est réglé avec votre solution

Merci à tous

bonne soirée

a plus

Pat66

 

[pat66]

Dudu2,
je vais essayer d'adapter ta soluce à mon problème et je reviens vers toi
merci
cdt