récupérer une variable d'un autre module

**dodo69** · 07/02/2011, 10h46

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é · 07/02/2011, 10h57

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

**dodo69** · 07/02/2011, 11h29

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** · 07/02/2011, 12h48

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** · 07/02/2011, 14h10

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** · 07/02/2011, 14h39

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

**dodo69** · 07/02/2011, 14h58

pas de problème

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub controle3_Click()

Dim j As Integer
Dim nb_ligne As Integer


Feuil1.Select

Call controle_données

If compte_false > 0 Or compte_miss > 0 Then
verif_data.Caption = "X"
verif_data.ForeColor = RGB(255, 12, 12)
com_controle3.Caption = "Certains critères ne sont pas respectés: voir les commentaires "

miss_data.BackColor = RGB(234, 246, 76)
miss_data.ForeColor = RGB(255, 5, 5)
miss_data.Caption = "texte"
com_miss_data.Caption = "correspond aux données manquantes: " & compte_miss & " cas présents"

false_data.BackColor = RGB(0, 0, 0)
false_data.ForeColor = RGB(255, 255, 255)
false_data.Caption = "texte"
com_false_data.Caption = "Données ne correspondant pas aux critères: " & compte_false & " cas présents"
Exit Sub

Else       

verif_data.ForeColor = RGB(51, 180, 51)
verif_data.Caption = "V"
com_controle3.Caption = "Contrôle OK"
End If

End Sub

Donc celle là apelle la fonction ci dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
 
public compte_false as integer
public compte_miss as integer
 
Sub controle_données()
 
Feuil1.Select
Dim pourcent As Double
Dim nb_ligne As Integer
Dim i As Integer
Dim n As Integer
 
Application.ScreenUpdating = False
 
Do
nb_ligne = nb_ligne + 1
'Loop Until nb_ligne = 15
Loop Until Cells(nb_ligne, 1) = ""
 
Range("2:" & nb_ligne).ClearComments
Range("2:" & nb_ligne).ClearFormats
 
compte_false = 0
compte_miss = 0
 
'Tar pM
 
i = 2
 
Do
n = Len(Cells(i, 3).Value)
 
If n > 3 Then
Cells(i, 3).Interior.Color = RGB(0, 0, 0)
Cells(i, 3).Font.Color = RGB(255, 255, 255)
Cells(i, 3).Font.Bold = True
Cells(i, 3).AddComment
Cells(i, 3).Comment.Text Text:="Il ne doit pas y avoir plus de 3 caractère dans cette cellule"
 
i = i + 1
compte_false = compte_false + 1
    Else
       i = i + 1
End If
Loop Until i = nb_ligne
 
pourcent = 20
Application.StatusBar = "Patientez: traitement effectuer à " & pourcent & " %"
 
'colonne Log N
 
i = 2
 
Do
 
If Cells(i, 5) <> "C" And Cells(i, 5) <> "S" And Cells(i, 5) <> "G" And Cells(i, 5) <> "" Then
Cells(i, 5).Interior.Color = RGB(0, 0, 0)
Cells(i, 5).Font.Color = RGB(255, 255, 255)
Cells(i, 5).Font.Bold = True
Cells(i, 5).AddComment
Cells(i, 5).Comment.Text Text:="Les caractères acceptés sont ""C"", ""S"", ""G"" et case vides "
 
i = i + 1
compte_false = compte_false + 1
    Else
       i = i + 1
End If
Loop Until i = nb_ligne
 
pourcent = 20 + pourcent
Application.StatusBar = "Patientez: traitement effectuer à " & pourcent & " %"
 
 
'Code article
 
i = 2
Do
 
If Cells(i, 9) = "" Then
Cells(i, 9).Font.ColorIndex = 3
Cells(i, 9).Interior.ColorIndex = 6
Cells(i, 9).Font.Bold = True
Cells(i, 9).AddComment
Cells(i, 9).Comment.Text Text:="Pas de cellules vides autorisées"
 
i = i + 1
compte_miss = compte_miss + 1
    Else
       i = i + 1
End If
Loop Until i = nb_ligne
 
pourcent = 20 + pourcent
Application.StatusBar = "Patientez: traitement effectuer à " & pourcent & " %"
 
 
'Article
i = 2
Do
 
If Cells(i, 10) = "" Then
Cells(i, 10).Font.ColorIndex = 3
Cells(i, 10).Interior.ColorIndex = 6
Cells(i, 10).Font.Bold = True
Cells(i, 10).AddComment
Cells(i, 10).Comment.Text Text:="Pas de cellules vides autorisées"
 
i = i + 1
compte_miss = compte_miss + 1
    Else
       i = i + 1
End If
Loop Until i = nb_ligne
 
pourcent = 20 + pourcent
Application.StatusBar = "Patientez: traitement effectuer à " & pourcent & " %"
 
'Code EAN
 
i = 2
Do
n = Len(Cells(i, 13).Value)
 
If n <> 13 And Cells(i, 13) <> "" Then
Cells(i, 13).Interior.Color = RGB(0, 0, 0)
Cells(i, 13).Font.Color = RGB(255, 255, 255)
Cells(i, 13).Font.Bold = True
Cells(i, 13).AddComment
Cells(i, 13).Comment.Text Text:="Le code EAN doit comporté 13 caractères"
 
i = i + 1
compte_false = compte_false + 1
    Else
       i = i + 1
End If
Loop Until i = nb_ligne
 
Application.ScreenUpdating = true
End Sub

C un peu lourd comme code, c'est pour ça que je l'ecrivais pas en entier

C pas le fait que ce soit une macro qui provient d'un formulaire avec un bouton de commande qui empeche le bon fonctionnement des variables ?

**mercatog** · 07/02/2011, 15h30

J'ai un peu modifié ton code (si tu le permet)
Dans un module standard (module1)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Option Explicit
Public Compte_false As Integer
Public Compte_miss As Integer
 
Sub Controle_données()
Dim Nb_ligne As Long, i As Long
Dim n As Integer
 
Application.ScreenUpdating = False
With Sheets("Feuil1")
    Nb_ligne = .Cells(.Rows.Count, 1).End(xlUp).Row
    With .Rows("2:" & Nb_ligne)
        .ClearComments
        .ClearFormats
    End With
    Compte_false = 0
    Compte_miss = 0
    For i = 2 To Nb_ligne
'Tar pM
        n = Len(.Cells(i, 3).Value)
        If n > 3 Then
            .Cells(i, 3).Interior.Color = RGB(0, 0, 0)
            .Cells(i, 3).Font.Color = RGB(255, 255, 255)
            .Cells(i, 3).Font.Bold = True
            .Cells(i, 3).AddComment
            .Cells(i, 3).Comment.Text Text:="Il ne doit pas y avoir plus de 3 caractère dans cette cellule"
            Compte_false = Compte_false + 1
        End If
'colonne Log N
        If .Cells(i, 5) <> "C" And .Cells(i, 5) <> "S" And .Cells(i, 5) <> "G" And .Cells(i, 5) <> "" Then
            .Cells(i, 5).Interior.Color = RGB(0, 0, 0)
            .Cells(i, 5).Font.Color = RGB(255, 255, 255)
            .Cells(i, 5).Font.Bold = True
            .Cells(i, 5).AddComment
            .Cells(i, 5).Comment.Text Text:="Les caractères acceptés sont ""C"", ""S"", ""G"" et case vides "
            Compte_false = Compte_false + 1
        End If
'Code article
        If .Cells(i, 9) = "" Then
            .Cells(i, 9).Font.ColorIndex = 3
            .Cells(i, 9).Interior.ColorIndex = 6
            .Cells(i, 9).Font.Bold = True
            .Cells(i, 9).AddComment
            .Cells(i, 9).Comment.Text Text:="Pas de cellules vides autorisées"
            Compte_miss = Compte_miss + 1
        End If
'Article
        If .Cells(i, 10) = "" Then
            .Cells(i, 10).Font.ColorIndex = 3
            .Cells(i, 10).Interior.ColorIndex = 6
            .Cells(i, 10).Font.Bold = True
            .Cells(i, 10).AddComment
            .Cells(i, 10).Comment.Text Text:="Pas de cellules vides autorisées"
            Compte_miss = Compte_miss + 1
        End If
'Code EAN
        n = Len(.Cells(i, 13).Value)
        If n <> 13 And .Cells(i, 13) <> "" Then
            .Cells(i, 13).Interior.Color = RGB(0, 0, 0)
            .Cells(i, 13).Font.Color = RGB(255, 255, 255)
            .Cells(i, 13).Font.Bold = True
            .Cells(i, 13).AddComment
            .Cells(i, 13).Comment.Text Text:="Le code EAN doit comporté 13 caractères"
            Compte_false = Compte_false + 1
        End If
        Application.StatusBar = "Patientez: traitement effectué à " & Int(100 * i / Nb_ligne) & " %..."
    Next i
End With
Application.StatusBar = ""
Application.ScreenUpdating = True
End Sub

Dans le module de ton userform, le code du bouton controle3

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub controle3_Click()
 
With Me
    Call Controle_données
    If Compte_false <> 0 Or Compte_miss <> 0 Then
        With .verif_data
            .Caption = "X"
            .ForeColor = RGB(255, 12, 12)
        End With
        .com_controle3.Caption = "Certains critères ne sont pas respectés: voir les commentaires "
        With .miss_data
            .BackColor = RGB(234, 246, 76)
            .ForeColor = RGB(255, 5, 5)
            .Caption = "texte"
        End With
        .com_miss_data.Caption = "correspond aux données manquantes: " & Compte_miss & " cas présents"
        With .false_data
            .BackColor = RGB(0, 0, 0)
            .ForeColor = RGB(255, 255, 255)
            .Caption = "texte"
        End With
        .com_false_data.Caption = "Données ne correspondant pas aux critères: " & Compte_false & " cas présents"
    Else
        With .verif_data
            .ForeColor = RGB(51, 180, 51)
            .Caption = "V"
        End With
        .com_controle3.Caption = "Contrôle OK"
    End If
End With
MsgBox "False Data: " & Compte_false & vbTab & "Missed Data: " & Compte_miss
End Sub

Edit: Tu as remarqué qu'au lieu de 5 fois la boucle, je les ai regroupé

**dodo69** · 07/02/2011, 16h03

Je prend très volontier cette simplification du code mercatog, merci beaucoup

mais les variables compte_false et compte_miss n'existe pas dans mon programme "Private Sub controle3_Click()"

ou du moins si elles existent elles ne marchent pas :s

J'aimerai bien comprendre comment faire, ca pourrait etre très utile egalement dans un autre projet futur..

Merci d'avance

**mercatog** · 07/02/2011, 17h02

Elle sont déclarées une seule fois dans ton module public

Code :

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

1
2
Public Compte_false As Integer
Public Compte_miss As Integer

**dodo69** · 08/02/2011, 08h38

Merci de ton aide mercatog, c'est bon le programme marche bien
Merci beaucoup
A bientot
Cordialement

récupérer une variable d'un autre module [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager