Private Sub worksheet_change(ByVal target As Range)
If Not Application.Intersect(target, Range("B2,C2")) Is Nothing Then
Mod1'''''ici on va exécuter la macro
End If
End Sub
Bonjour
Si tu as initialisé Va1 par la sub mod1, ton msgbox doit te renvoyer la valeur
Quant à ton événementielle tu peux vérifier qu'elle fonctionne en mettent D2 a 0 et en modifiant B2 ou C2
Note qu'elle ne te donnera le résultat de la multiplication qu’après successivement Mod1 et Worksheet _Change
Merci pour vos réponses,
Youki, je n'ai pas compris ce que je dois modifier, par conséquence ma tentative de modif ne marche pas.
Que dois je écrire après Mod1...
à force de triturer les macros dans tous les sens, j'ai fini par obtenir le résultat que je voulais dans la présentation souhaitée.
Pouvez vous vérifier le fichier joint et faire un commentaire sur le fonctionnement de cette macro ?