Variable récalcitrante

[jmh1]

Bonjour,

Je déclare une variable publique dans thisworkbook :

Public Essai As Integer


Public Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Essai = 1
MsgBox Essai
End Sub

Puis je veux récupérer cette variable dans un USF mais à chaque fois la variable est vide donc mon code ne s'exécute pas.

Private Sub Label25_Click()

If Essai = 1 Then
   USF_Quit.Show
Else
    MsgBox "aucun changement"
End If

End Sub

Quelqu'un aurait-il une idée ??

Merci

 

[pierrejean]

Re : Variable récalcitrante

Bonjour jmh1

Essaie de mettre ta déclaration Public dans un module Standard

 

[jmh1]

Re : Variable récalcitrante

bonjour pierrejean

Effectivement cela fonctionne en la déclarant dans un module standard (pourqui-pourquoi ?).

Merci beaucoup pour ton intervention.

 

[Dranreb]

Re : Variable récalcitrante

Bonsoir.
Parce que seul les modules ordinaires sont des … modules ordinaires. Tous les autres sont des modules objets, au même titre que les modules de classe, de sorte que les éléments Public y deviennent des propriétés ou des méthodes.
Vous auriez à la rigueur pu laisser Public Essai As Integer dans ThisWorlbook mais il n'était alors connu de l'extérieur que sous ThisWorkbook.Essai
Mais d'autres modules objets pourraient aussi avoir une propriété Essai, ça ne poserait pas de problème puisqu'on doit toujours préciser l'objet devant.
J'écris par exemple assez souvent une méthode Afficher dans les Userform auxquels je veux passer des informations en les affichant.