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

Gégé-45550

XLDnaute Accro

• 17 Novembre 2022

• #2

Bonjour,
Une proposition en PJ
Cordialement

 

Pièces jointes

• Message avec Calcul-Web.xlsm

  81.8 KB · Affichages: 13

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 17 Novembre 2022

• #3

Bonjour
Ci joint ma solution

A+ François

 

Pièces jointes

• Message avec Calcul-Web.xlsm

  20.7 KB · Affichages: 13

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 17 Novembre 2022

• #4

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

VB:

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.

 

Pièces jointes

• Message avec Calcul-Web.xlsm

  80.5 KB · Affichages: 12

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 17 Novembre 2022

• #5

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

 

Pièces jointes

• Message avec Calcul-Web v pat .xlsm

  88.4 KB · Affichages: 7

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 17 Novembre 2022

• #6

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

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 17 Novembre 2022

• #7

il suffit de demander

A+ François

 

Pièces jointes

• Message avec Calcul-Web.xlsm

  21.1 KB · Affichages: 9

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 17 Novembre 2022

• #8

Bonjour,
Avec quelle solution tu veux ce positionnement ?

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 17 Novembre 2022

• #9

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:

VB:

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

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

Fichier... voir plus loin.

 

Dernière édition: 17 Novembre 2022

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 17 Novembre 2022

• #10

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

 

Dernière édition: 17 Novembre 2022

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 17 Novembre 2022

• #11

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

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 17 Novembre 2022

• #12

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

A+ François

 

Pièces jointes

• Message avec Calcul-Web.xlsm

  21.1 KB · Affichages: 6

Vote positif 0 Vote négatif

Solution

Dudu2

XLDnaute Barbatruc

• 17 Novembre 2022

• #13

@pat66,

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 17 Novembre 2022

• #14

re,

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

Merci à tous

bonne soirée

a plus

Pat66

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 17 Novembre 2022

• #15

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

 

Vote positif 0 Vote négatif