Récupérer valeur d'une variable dans Worksheet_SelectionChange

Bonjour, j'ai un long code qui fonctionne bien , en voulant l’améliorer j'ai inclus une fonction

Worksheet_SelectionChange

avec ce code-ci dans la feuille2

Public var_double_2 As Integer

'recuperation valeur pour changement celulle par  clic'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

var_double_2 = 10
Range("M3").Value = var_double_2

Je vois bien ma valeur en M3, et si je lui affecte un autre chiffre la valeur change bien en M3 dés que je clic .

Jusque là tout vas bien.

Mais le soucis c'est quand je veut la récupérer dans une macro que je lance.

je fait tout simplement ceci:

Public var_double_2 As Integer
var_double = var_double_2
Range("M4").Value = var_double

Le problème est que ma variable var_double_2 est à zéro du coup forcement en M4 j'ai 0

Où est-ce que je me trompe?

Merci

bonjour

mets cette instruction dans un module , sur les premières lignes, en dehors de toutes sub ou function

Public var_double_2 As Integer

oups j'ai mal recopier mon code je met ceci:

Public var_double_2 As Integer

Sub Macro2()

var_double = var_double_2
Range("M4").Value = var_double
end sub 

et entre deux j'ai du code...

Le mieux et que je vous file le document pour que vous voyez par vous même.

J'ai mis un commentaire dans le module 3 (macro2) pour indiquer où cela coince.

Essayer en retirant le bout de code qui coince pour vous apercevoir que ma macro fonctionne presque bien sauf dans un cas très précis

bonsoir,

supprimer la définition de var_double_2 dans le module de tabelle2 et replacer public var_double_2 par global var_double_2 dans module 3

Merci Merci , bon j'ai d'autre problème du coup mais je vais essayer de m'en sortir seul avant d'appeler a l'aide.