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

Version imprimable

07/02/2011, 10h46
dodo69

récupérer une variable d'un autre module
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:

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:

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

Bonjour
Peut être un peu de lecture sur les variables et leurs portées.
http://mhubiche.developpez.com/Access/variables/
07/02/2011, 11h29
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:

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

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:

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:

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:

Private Sub controle3_Click()

et de

Code:

Sub controle_données()

[Edit]http://silkyroad.developpez.com/VBA/LesVariables/
V. Les niveaux de variables
07/02/2011, 14h10
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:

1 2 3 Public compte_miss As Integer Public compte_false As Integer
puis j'écris ma macro:
Code:

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:

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?
07/02/2011, 14h39
mercatog

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

pas de problème

Code:

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:

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 ?

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

Code:

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:

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é

07/02/2011, 16h03
dodo69

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
07/02/2011, 17h02
mercatog
Elle sont déclarées une seule fois dans ton module public
Code:

1 2 Public Compte_false As Integer Public Compte_miss As Integer
08/02/2011, 08h38
dodo69

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