OVH Cloud OVH Cloud

Déclaration de variable visible

4 réponses
Avatar
excal
Bonjour,

J'aimerai déclarer une variable visible dans tout mon projet.

Je l'ai initialisé en ouvrant mon fichier excel, dans Private Sub
Workbook_Open() par Public ValeurTri As Byte
Mais ca plante...

Où déclarer cette variable ??

Merci

4 réponses

Avatar
garnote
Bonjour,

Ce type de déclaration doit apparaître dans un module standard
(à insérer avant la première procédure).

Serge

"excal" a écrit dans le message de news:
c256av$vhi$
Bonjour,

J'aimerai déclarer une variable visible dans tout mon projet.

Je l'ai initialisé en ouvrant mon fichier excel, dans Private Sub
Workbook_Open() par Public ValeurTri As Byte
Mais ca plante...

Où déclarer cette variable ??

Merci




Avatar
excal
Merci de cette explication

Ca y est:
Dans Module1, j'ai déclaré:
______________________
Dim ValeurTri As Byte
Public Sub init()
ValeurTri = 0
End Sub


Dans ThisWorkBook, j'ai
_________________________
Private Sub Workbook_Open()
init
End Sub

qui initialise ma variable


Dans Feuil1, J'ai une Public Sub ToggleButton1_Click()
qui contient, (par exemple)
ValeurTri=ValeurTri+1


Or cette valeur reste toujours à 1 :-(((

Une idée ?





"garnote" a écrit dans le message de news:
77p1c.101880$
Bonjour,

Ce type de déclaration doit apparaître dans un module standard
(à insérer avant la première procédure).



Avatar
Denis
Bonjour,

Essaie en déclarant la variable ValeurTri comme suit:

Public Sub ToggleButton1_Click()
Static ValeurTri As Byte
ValeurTri=ValeurTri+1
End Sub


"excal" a écrit dans le message news:
c257cq$vs8$
Merci de cette explication

Ca y est:
Dans Module1, j'ai déclaré:
______________________
Dim ValeurTri As Byte
Public Sub init()
ValeurTri = 0
End Sub


Dans ThisWorkBook, j'ai
_________________________
Private Sub Workbook_Open()
init
End Sub

qui initialise ma variable


Dans Feuil1, J'ai une Public Sub ToggleButton1_Click()
qui contient, (par exemple)
ValeurTri=ValeurTri+1


Or cette valeur reste toujours à 1 :-(((

Une idée ?





"garnote" a écrit dans le message de news:
77p1c.101880$
Bonjour,

Ce type de déclaration doit apparaître dans un module standard
(à insérer avant la première procédure).







Avatar
gb
Merci


IDenis a écrit dans [news:wOq1c.101912$]:

Bonjour,

Essaie en déclarant la variable ValeurTri comme suit:

Public Sub ToggleButton1_Click()
Static ValeurTri As Byte
ValeurTri=ValeurTri+1
End Sub