XL 2019 Msgbox ou Popup qui s'affiche avec condition et réalise un calcul sur 2 cellules

vgendron

XLDnaute Barbatruc

• 16 Novembre 2022

• #2

Hello

si j'ai bien compris: Code à mettre dans le code de la feuille

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, vous économisez " & Range("J4") / Target.Offset(0, -1) & " mois de reste à charge"
    MsgBox Message
End If
End Sub

 

Vote positif 0 Vote négatif

Solution

P

pat66

XLDnaute Impliqué

• 16 Novembre 2022

• #3

bonsoir,

houaouu, exactement ce qu'il me fallait, merci beaucoup, pourrait t'on arrondir le résultat à 2 chiffres après la virgule ?

merci

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 16 Novembre 2022

• #4

utilise la fonction round

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 16 Novembre 2022

• #5

re,

désolé, j'ai honte mais je sais pas ou le mettre

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 16 Novembre 2022

• #6

re,

c'est bon, en insistant j'ai fini par trouvé

VB:

Message = "Grâce à cette offre, vous économisez " & Round(Range("J4") / Target.Offset(0, -1).Value, 2) & " mois de reste à charge"

Un grand merci pour votre aide

bonne soirée

Pat66

 

Vote positif 0 Vote négatif

jcf6464

XLDnaute Impliqué

• 17 Novembre 2022

• #7

Bonjour à tous et le forum,

Pourquoi deux post pour le même sujet voir

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

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

excel-downloads.com

bonne continuation

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 17 Novembre 2022

• #8

Bonjour, le forum

ce n'est pas du tout la même requête si vous comparez bien, alors c'est pour cela que j'ai ouvert une autre discussion car c'est souvent ce qu'on me dit de faire lorsque la demande initiale est différente

La solution de Vgendron fonctionne très bien et je l'en remercie encore , mais après plusieurs tests, il s'avère que je souhaite un affichage personnalisable (taille police, couleurs, ect..) avec les mêmes fonctions, d'où l'Userform et je ne voulais pas abuser de la gentillesse de Vgendron, tout simplement



cdt

 

Dernière édition: 17 Novembre 2022

Vote positif 0 Vote négatif

jcf6464

XLDnaute Impliqué

• 17 Novembre 2022

• #9

re ok

 

Vote positif 0 Vote négatif