Variable Public non retenue

Version imprimable

13/08/2007, 09h30
Swiper

Variable Public non retenue

Bonjour à tous,

J'ai un petit soucis qui m'embête royalement : J'ai une macro sur plusieurs module avec du code sur un userform et sur une feuille, jusque là tout ce passe bien. J'ai rajouté des variable Public dans le module1, mais lorsque je les initialise avec le code de la feuille1, elle ne sont pas gardées lorsque je m'en ressert dans les module.

C'est un problème très embetant j'espère que vous pourrez me mettre sur la piste. Merci ^^

Pour plus de précision, demandez plus d'infos.
13/08/2007, 09h37
Invité

Bonjour

Peux-tu nous mettre le bout de code pour que l'on sache comment tu as déclaré tes variables.

Starec
13/08/2007, 09h44
Swiper
Sur le Module1 en haut :

Code:

Public GRc, BMc as integer

En fait je les initialise sur la feuille comme suit :
Code:

1 2 3 GRc = 0 BMc = 0
Ensuite, sur le userform je les réutilisent ,mais ils sont "vide" :
Code:

1 2 BMc = BMc + 1 GRc = GRc +1
Et lorsque je veux les tester avec un autre module, elles sont encore vide pourtant je les ai misent à 1 plus haut.

C'est vraiment bizarre car les variables binaires fonctionnent très bien sans soucis, elles sont gardées en mémoire.
13/08/2007, 09h55
Olivier0
Salut, Bien que débutant, ta declaration n'est pas bonne à moins que tu souhaites mettre GRc en Variant. tu devrais plutôt faire
Code:

1 2 Public GRc As Integer, BMc As Integer
Mais tu pourrais peut-être essayer
Code:

1 2 3 Public GRc As Integer = 0 Public BMc As Integer = 0
de cette facon tu les initialises dès le début

Après je suis pas excellent en VBA, plutôt mauvais même, donc ca peut ne pas marcher
13/08/2007, 10h06
Swiper

En fait ce n'est pas le problème de l'inialisation qui me soucis, mais plutot le fait que les variables ne se gardent pas en mémoire.
Mon programme entier ne veut plus marcher...
13/08/2007, 11h12
Swiper

Bon j'ai rajouter la déclaration Public dans toute les parties ou j'ai besoin du code et ca fonctionne.

Normalement c'est pas simplement une seule fois que l'on doit déclarer ?
13/08/2007, 12h11
cavo789

Rajouter la déclaration dans chaque module n'est pas la solution; cela devrait même générer une erreur car il ne doit pas être possible d'avoir des variables publiques ayant le même nom.

Je me pose une question : travailles-tu avec plusieurs fichiers Excel ouvert ou seulement un ?
13/08/2007, 12h15
Swiper

J'ai en fait un fichier excell "Modèle" et celui sur lequel je fais les modifs.

Je me sert de la macro de mon modèle sur l'autre, donc oui j'en ai effectivement 2 d'ouvert.
14/08/2007, 14h59
cavo789

A ma connaissance, une variable est publique dans un et un seul fichier Excel.
14/08/2007, 15h04
Swiper

En fait je me suis rendu compte que j'avais pas besoin de ces variables dans ma macro, donc bon....

J'ai pas répondu à me question mais je mets en résolu, c'est pas grave
29/08/2007, 11h41
Swiper

Y'a vraiment quelque chose qui me dérange.
Je n'arrive pas à comprendre pourquoi ma variable pourtant déclarée dans le module 1 en "public xxx as Integer" ne garde pas sa valeur d'un module à l'autre...

Quelqu'un aurait une petite idée ?

J'ai mis le fichier en fichier join, la variable est Ligne, et j'ai mis 2 msgbox pour montrer à l'execution quand elle s'en va...
Comme le fichier en utilise d'autre en réseau, c'est compliqué de vous le donner.

Mais toutes manières, c'est dans le module 2 que "Ligne" est renseigné, ensuite le code renvoi dans le module 4 qui renvoie dans le module 2, et à ce moment là, "Ligne" n'a plus sa valeur.

Comme si à la fin du sub, la variable était effacé ou remise à zéro alors que je l'ai déclaré en public !!

Help
29/08/2007, 11h50
lucfrfr
salut,
pourrais-tu mettre la parti de code ou tu passe à l'autre form/module stp ?
Je pense que tu devrais simplement envoyer un integer a ce moment genre
Code:

1 2 3 4 5 6 sub travaille effectuer_autre_tache(grc,...) end sub sub effectuer_autre_tache(byval grc as integer,...) 'code end sub

Donc en fait y'a 2 modules utilisés dans la partie de macro à laquelle je m'interesse.

Module 4 :

Code:

1
2
3
4
5
6
7
8
9
Bla bla bla...
Call EnleverLignes
Call RecopierEntete '<----- Module où Ligne prend sa valeur
 
MsgBox ligne
 
DejaTraite:
Call OuvrirDonnees
Call VerifierDateMesure

Voici en fait là où les subs sont lancé

Ensuite dans le même sub sont les 2 sub :

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
Sub RecopierEntete()
 
    Dim ligne As Integer
 
    Range("A2").Value = Groupe
    Range("b2").Value = NC
    Range("d2").Value = NoMois
 
    'Definition du nombre de lignes de donnees
    Range("E1").Select
    Selection.End(xlDown).Select
    ligne = ActiveCell.Row
 
    MsgBox ligne
    'Si plus de 2 lignes
    If ligne > 3 Then
        Range("A2:D2").Copy
        Cells(ligne, 1).Select
        Range(Selection, Selection.End(xlUp)).Select
        ActiveSheet.Paste
        Range("A1").Select
        Selection.End(xlDown).Offset(1, 0).Select
 
    Else
        'Si 2 lignes
        If ligne = 3 Then
            Range("A2:D2").Copy
            Range("A3").Select
            ActiveSheet.Paste
            Range("A4").Select
 
        Else
            'Si 1 seule ligne
            Range("A3").Select
        End If
    End If
    MsgBox ligne
End Sub

Et plus bas :

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
Sub VerifierDateMesure()
'Vérification des dates de mesure du fichier brut (pas de doublons tolérés dans la bdd)
 
Dim n As Integer
Dim Date_mesure
 
ErreurDateMesure = 0
 
'recherche nombre de ligne du fichier brut
MsgBox ligne
 
'C'est à la ligne d'en dessous que je veux remplacer la grande ligne de code par la variable "Ligne", vu qu'elle a été calculé plus haut.
 
If IsEmpty(Workbooks(fenetreFichierTraite).Sheets(feuilleFichierTraite).Range("A3").Value) Then
    DerniereLigneFichierBrut = 2
Else
    Windows(fenetreFichierTraite).Activate
    DerniereLigneFichierBrut = Sheets(feuilleFichierTraite).Range("a1").End(xlDown).Row
End If
 
'Verification date mesure
    'si une seule lampe dans fichier brut
If DerniereLigneFichierBrut = 2 Then
    Windows(fenetreFichierTraite).Activate
    Date_mesure = Workbooks(fenetreFichierTraite).Sheets(feuilleFichierTraite).Cells(2, 7).Value
    Windows(fenetreDonnees).Activate
    Sheets(feuilleDonnees).Columns(7).Select
 
 
    On Error GoTo ErreurDateMesure1Lampe
    Selection.Find(what:=Date_mesure).Activate ', After:=ActiveCell, LookIn:=xlFormulas, _
        'LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
 
    On Error GoTo 0
 
    Exit Sub
 
 
Else
    'si plus d'une lampe dans le fichier brut
    For n = 1 To DerniereLigneFichierBrut - 1
    Windows(fenetreFichierTraite).Activate
    Date_mesure = Workbooks(fenetreFichierTraite).Sheets(feuilleFichierTraite).Cells(1 + n, 7).Value
 
    Windows(fenetreDonnees).Activate
    Sheets(feuilleDonnees).Columns(7).Select
 
 
    On Error GoTo ErreurDateMesureLampes
    Selection.Find(what:=Date_mesure, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
    On Error GoTo 0
    On Error Resume Next
 
    Next n
 
    Exit Sub
 
End If
 
ErreurDateMesureLampes:
    ErreurDateMesure = 1 + ErreurDateMesure
    Date_mesure = ""
    Err.Clear
    Resume
 
ErreurDateMesure1Lampe:
    ErreurDateMesure = 1
    Date_mesure = ""
    Resume
 
End Sub

J'ai mis tout ce qu'il y avait dans les sub, si c'est trop veuillez m'excuser.

HELP

29/08/2007, 12h16
Swiper

C'est vraiment tout bête, je l'avais déclaré avec Dim dans "Recopier_entete", donc c'est la raison pour laquelle ça ne marchais pas...

Merci comme même.