Portée des variables Dim, Public depuis un module vers une macro événementielle d’une feuille

[Hub]

Bonjour à tous

Dans le module1 je crée une variable « Public Va1 as Double » que je place tout en haut en première ligne.

Puis pour la récupérer dans la macro événementielle de la feuille 1, j’écris par exemple MsgBox Va1

Mais voila, ça ne marche pas.

Comment corriger mon erreur ? voir le fichier joint

D’avance merci,

@+

 

[youky(BJ)]

Tu y étais presque
Bruno

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

Salut Hub

 

[pierrejean]

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

Salut Youki

 

[Hub]

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

 

[Dranreb]

Bonjour

Que dois je écrire après Mod1...

Ça dépend si vous voulez que la D2 soit corrigée par Mod1 ou par Worksheet_Change
Inutile de le faire faire par les deux à la fois.

 

[Hub]

merci Bernard pour ce complément d'information.
J'ai mis " Range("D2").Value = Va1 " en commentaire et ca marche.

dans la Private Sub j'ai rajouté un MsgBox = Va1, et là, ca ne marche pas, pourquoi

 

[Dranreb]

MsgBox est une instruction pas une variable ni une Property Let, vous ne pouvez pas y affecter quelque chose.

 

[youky(BJ)]

Bonsoir à tous,
Je joint le fichier afin que Hub vois le code
Bruno

 

[Hub]

à 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 ?

et encore merci à tous pour votre aide

@+