Discussion :

[dodo69]

Bonjour à tous

J'aimerai savoir une manière de reprendre une varaible déjà utiliser dans un autre module, je m'explique:

Je pars d'un formulaire, lorsque je clique sur un bouton une macro s'ouvre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Private Sub controle3_Click()
 
Dim j As Integer
Feuil1.Select
 
Call controle_données

puis j'apelle le module "controle_données"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub controle_données()

Feuil1.Select
Dim nb_ligne As Integer
Dim i As Integer
Dim n As Integer
Dim compte_false As Integer
Dim compte_miss As Integer

Les deux variables en rouges vont me données 2 nombres, j'aimerai que ces 2 nombres me soit rapportés dans la macro "Private Sub controle3_Click"

Merci d'avance de vos réponses

[Invité]

Bonjour
Peut être un peu de lecture sur les variables et leurs portées.
http://mhubiche.developpez.com/Access/variables/

[dodo69]

Merci gayot pour ce tuto j'ai appris quelques petit truc

Malheureusement je n'ai pas réussi à trouver une solution à mon problème

J'ai essayé de mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Sub controle_données()

mais je n'arrive pas à appelé la procédure

Je ne comprend pas comment je dois faire

Si quelqu'un peut m'aider en me donnant de nouvelles indications de réponse

Merci d'avance

D'après le tuto si on veux déclarer les variables il faut mettre public dans la définision de la macro...
mais ca ne marche pas , pour être franc je ne comprend pas vraiment tout.
Merci de m'aider

[mercatog]

Il y a 3 niveaux de portée des variables
1. variable déclarée à l'intérieur d'une procédure (ou fonction)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Niv1()
Dim VarNiv1 As Integer
....

La portée de varNiv1 se limite à cette procédure
2. variable déclarée au début du module de la feuille (par exemple, ou userform, ou Thisworkbook)
Exemple: Feuil1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
Dim VarNiv2 as Integer
 
Sub Niv2()
VarNiv2=36
end sub
Sub Niv2prim()
msgbox VarNiv2
end sub

La portée de varNiv2 se limite à l'ensemble des procédures du module de la feuille, userform ou Thisworkbook
3. variables publiques: déclarées en début d'un module public
Exemple Module1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Publiv VarNiv3 as integer

Cette variablme est de portée publique, c'est à dire reconnu dans toutes les procédures de ton classeur

Mon explication n'est pas aussi fournie comme celle du lien qui vous a été transmis.

Maintenant, si tu reporte la totalité de ton code, on peut t'orienter de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub controle3_Click()

et de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sub controle_données()

[Edit]http://silkyroad.developpez.com/VBA/LesVariables/
V. Les niveaux de variables

[dodo69]

Merci pour ces nouvelles réféences et indications mercatog,
mais je n'y arrive toujours pas

j'ai déclarer mes 2 variables en haut du module: avant les autres sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Public compte_miss As Integer
Public compte_false As Integer

puis j'écris ma macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub controle_données()
 
Feuil1.Select
Dim pourcent As Double
Dim nombre_ligne As Integer
Dim i As Integer
Dim n As Integer

Lorsque je lance le module en mode pas a pas, Les deux variables défini en public marche très bien...

Cependant lorsque le module est fini il rebascule sur mon premier programme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Private Sub controle3_Click()

mais il nerapporte pas les valeurs de compte_false et compte_miss...

Quelqu'un a t'il une solution?

[mercatog]

Au lieu de donner les 2 premières lignes de chaque code, mets ton code en entier