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

youky(BJ)

XLDnaute Barbatruc

• 26 Août 2016

• #2

Tu y étais presque
Bruno

VB:

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Août 2016

• #3

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

 

Vote positif 0 Vote négatif

H

Hub

XLDnaute Occasionnel

• 26 Août 2016

• #4

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Août 2016

• #5

Bonjour

Hub à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

H

Hub

XLDnaute Occasionnel

• 26 Août 2016

• #6

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 26 Août 2016

• #7

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 26 Août 2016

• #8

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

 

Pièces jointes

• variable Public (1).xlsm

  14.8 KB · Affichages: 40

Vote positif 0 Vote négatif

H

Hub

XLDnaute Occasionnel

• 26 Août 2016

• #9

à 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

@+

 

Vote positif 0 Vote négatif