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

[pat66]

Bonsoir Le forum,

Depuis ce matin, je tente désespérément d'afficher un message lorsqu’on saisi un chiffre dans une cellule, jusque là pas de problème,
mais la difficulté, c'est que je souhaite que ce message affiche et réalise aussi un calcul avec 2 autres cellules

Pour une meilleure compréhension, je préfère vous mettre un exemple concret

Je vous remercie d'avance pour votre aide

Pat66

 

[vgendron]

Hello

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

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

 

[pat66]

bonsoir,

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

merci

 

[vgendron]

utilise la fonction round

 

[pat66]

re,

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

 

[pat66]

re,

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

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

 

[jcf6464]

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

 

[pat66]

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

 

[jcf6464]

re ok