récupérer une variable de userform1 même après sa fermeture

bonjour tout le monde

Je suis sur excel 2003 vba je développe un projet et je bute sur un truc.
un certain moment de mon code j'ouvre une feuille userform1 je coche des valeurs et le nombre de cases cochées est stocké dans la variable leconteur.
je voudrais ensuite utiliser cette variable dans les autres modules.
j'ai déclaré le conteur comme variable public dans module1 . ensuite je fais appel à cette variable en écrivant userform1.leconteur ; ça marche tant que je n'ai pas encore fermé userform1 . ensuite dans un module je ferme cette feuille , les modules venant après et faisant appel à userform1.leconteur ne reconnaissent plus cette variable .
donc j'ai été obligée de cacher userform1 au lieu de la fermer alors que j'ai besoin de la fermer un certain moment

Comment svp remédier à ceci ? : que la variable soit reconnue dans tous modules et même après fermeture de userform1

merci

Bonjour,

A mon avis il faut que vous affectiez la valeur à la variable "lecompteur" dans le Userform. Ensuite même s'il est fermé, vous pouvez récupérer cette valeur dans votre module.

bonjour et merci
j'ai déjà déclaré leconteur comme variable publique dans userform1 et ça ne marche pas

Bonjour,

Déclare ta variable public dans un module

normalement ça marche, tu dois mettre ta variable dans un module simple et la déclarer en public :

Code:

Public taVariable As XXXX

et ensuite tu assigne cette variable depuis les procédures de ton UF

bonsoir et merci pour vos réponses

j'ai fait tout ce que vous m'avez proposé et ça ne arcge pas dés que userfoem1 se ferme la valeur de "leconteur" est perdue

Bonsoir,

Vous avez bien fait tout ce qui a été dit par les uns et les autres :

-déclarer la variable dans un module standard avec "Public ....." ?

-supprimer la ligne que vous aviez indiqué dans la procédure du Userform avec "Public......." ?

-affecter la valeur à la variable avant de fermer le Userform ?

car à priori, il n'y a aucune raison que cela ne fonctionne pas.

Bonsoir, ma petite pierre à l'édificice :

le problème vient d'ici : Il y a conflit entre ces 2 définitions.

Citation:

j'ai déclaré le conteur comme variable public dans module1 . ensuite je fais appel à cette variable en écrivant userform1.leconteur ;

La variable doit être accédée en tant que leconteur et ne dois en aucun cas être déclarée ailleurs que en tout début du premier module (par exe) en public.

Exemple de début de module 1
Code:

1 2 3 4 5 6 Public leconter As XXXX Sub ma_premiere_procedure_de_mon_premier_module() 'et son code complet End Sub
Exemple d'initialisation et d'usage dans le code de ton userform
Code:

1 2 3 4 sub bt1_click() leconter = 100 end sub

bonjour et merci

je pense avoir fait tout ce que vous m'avez dit mais j'ai un doute sur "affecter la valeur à la variable avant de fermer le Userform" . Donc je préfère vous exposer les modules en question pour que vous y jetiez un coup d'oeuil

voici le code de userform1

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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
Private Sub CommandButton1_Click()
Dim i As Integer
i = 8
leconteur = 0
If CheckBox1.Value = True Then
Cells(10, i).Value = CheckBox1.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox2.Value = True Then
Cells(10, i).Value = CheckBox2.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox3.Value = True Then
Cells(10, i).Value = CheckBox3.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox4.Value = True Then
Cells(10, i).Value = CheckBox4.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox5.Value = True Then
Cells(10, i).Value = CheckBox5.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox6.Value = True Then
Cells(10, i).Value = CheckBox6.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox7.Value = True Then
Cells(10, i).Value = CheckBox7.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox8.Value = True Then
Cells(10, i).Value = CheckBox8.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox9.Value = True Then
Cells(10, i).Value = CheckBox9.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox10.Value = True Then
Cells(10, i).Value = CheckBox10.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox11.Value = True Then
Cells(10, i).Value = CheckBox11.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox12.Value = True Then
Cells(10, i).Value = CheckBox12.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox13.Value = True Then
Cells(10, i).Value = CheckBox13.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox14.Value = True Then
Cells(10, i).Value = CheckBox14.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox15.Value = True Then
Cells(10, i).Value = CheckBox15.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox16.Value = True Then
Cells(10, i).Value = CheckBox16.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox17.Value = True Then
Cells(10, i).Value = CheckBox17.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox18.Value = True Then
Cells(10, i).Value = CheckBox18.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox19.Value = True Then
Cells(11, i).Value = CheckBox19.Caption
i = i + 4
leconteur = leconteur + 1
End If
If CheckBox20.Value = True Then
Cells(11, i).Value = CheckBox20.Caption
i = i + 4
leconteur = leconteur + 1
End If
If CheckBox21.Value = True Then
Cells(10, i).Value = CheckBox21.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox22.Value = True Then
Cells(10, i).Value = CheckBox22.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox23.Value = True Then
Cells(10, i).Value = CheckBox23.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox24.Value = True Then
Cells(10, i).Value = CheckBox24.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox25.Value = True Then
Cells(10, i).Value = CheckBox25.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox26.Value = True Then
Cells(10, i).Value = CheckBox26.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox27.Value = True Then
Cells(10, i).Value = CheckBox27.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox28.Value = True Then
Cells(10, i).Value = CheckBox28.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox29.Value = True Then
Cells(10, i).Value = CheckBox29.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox30.Value = True Then
Cells(10, i).Value = CheckBox30.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox31.Value = True Then
Cells(10, i).Value = CheckBox31.Caption
i = i + 5
leconteur = leconteur + 1
End If
If CheckBox32.Value = True Then
Cells(10, i).Value = CheckBox32.Caption
i = i + 5
leconteur = leconteur + 1
End If
 
Call index_calculs
End Sub

et le code de 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
 
Public leconteur As Integer
Sub revprix()
Dim date1 As Date, date2 As Date
Dim i As Integer
Call fractionnementdates
'calcul de la 3émé colonne le nombre de jours par mois
i = 13
date1 = Cells(i, 2).Value
  date2 = Cells(i + 1, 2).Value
 
Do While Cells(i + 1, 2).Value <> ""
date1 = Cells(i, 2).Value
date2 = Cells(i + 1, 2).Value
 
'si on est sur la ligne os arret on n'affiche pas le résultat de la ligne suivante et on saute une ligne
If Cells(i, 1).Value Like "OS arret" Then
Cells(i + 1, 3).Value = ""
Else
 
    ' si la date sup = 31 on la réduit à 30 car le mois suivant le décret le mois n'a que 30 jours
    ' ou si la date sup = 28/02/yyyy ou 29 /02/ yyyy  on sera obligé de rectifier pour respecter le mois = 30jours
            If DatePart("d", date2) = 31 Then
           date2 = "30/" & DatePart("m", date2) & "/" & DatePart("yyyy", date2)
           End If
           If (DatePart("d", date2) = 28 And DatePart("m", date2) = 2) Then
           date2 = DateSerial(Year(date2), Month(date2), Day(date2) + 2)
           End If
           If (DatePart("d", date2) = 29 And DatePart("m", date2) = 2) Then
            date2 = DateSerial(Year(date2), Month(date2), Day(date2) + 1)
           End If
 
    'si date inférieure = 30 ou 31 ou 28 ou 29/02  et comme on est obligé d'avoir un mois = 30 jours quel que soit le mois, on va uniformiser la date inf au premier ddu mois prochain pour tomber dans tous les cas de figure à une différence de dates prenant en compte que 1mois)30jours
 
    If DatePart("d", date1) >= 30 Or (DatePart("d", date1) = 28 And DatePart("m", date1) = 2) Or (DatePart("d", date1) = 29 And DatePart("m", date1) = 2) Then
             date1 = DateSerial(Year(date1), Month(date1) + 1, 1)
              Cells(i + 1, 3).Value = date2 - date1 + 1
    Else
 
    'dans ce cas on doit comptabiliser dans les jours travaillés le 1er jour de commencement ou de reprise
    If Cells(i, 1).Value Like "OS reprendre" Or Cells(i, 1).Value Like "OS commencer" Then
    Cells(i + 1, 3).Value = date2 - date1 + 1
 
    Else
    Cells(i + 1, 3).Value = date2 - date1
 
    End If
    End If
 
        'on ne compte pas le 1er jour d'arrêt
        If Cells(i + 1, 1).Value Like "OS arret" Then
        Cells(i + 1, 3).Value = Cells(i + 1, 3).Value - 1
         End If
 
End If
i = i + 1
Loop
Call prorata
UserForm1.Show
 
End Sub

Ensuite voici une partie du code du module 3. et cela marche la variable leconteur est reconnue sans 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
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
 
Sub index_calculs()
 
Dim i As Integer, j As Integer
Dim x As Integer, y As Integer, z As Integer
Dim xx As Date, yy As Date
Dim plage As Range
 
 
   ' pour remplir les cases avec les entetes de la 2eme ligne
   For i = 1 To leconteur
   Cells(11, 8 + 5 * (i - 1)).Value = Cells(10, 8 + 5 * (i - 1)).Value & "(0)="
 
    Next
    ' pour remplir les cases avec les entetes de la 3eme ligne
 
    For i = 1 To leconteur
 
    Cells(12, 6 + 5 * (i - 1)).Value = Cells(10, 8 + 5 * (i - 1)).Value
    Cells(12, 7 + 5 * (i - 1)).Value = "P" & i & "/" & "P" & i & "(0)"
  Cells(12, 8 + 5 * (i - 1)).Value = "Décompte " & Chr(10) & "cumulé "
  Cells(12, 9 + 5 * (i - 1)).Value = "Montant à " & Chr(10) & "réviser" & Chr(10) & "DPn-DPn-1"
 
       Cells(12, 10 + 5 * (i - 1)).Value = "Montant de la " & Chr(10) & "révision " & Chr(10) & "MR" & i
 
    Cells(10, 6 + 5 * (i - 1)).Select
                  ActiveCell.Range("A1:F3").Select
                 Selection.Font.Bold = True
    Next
 
   ' remplir les index
 
  For i = 1 To leconteur
 
          j = 2
 
      ' For j = 2 To 40
        ' déterlminer le nbre de colonnes non vides du tableau index
 
             Set ws = Worksheets("Feuil2")
        With ws
        dc = .Range("B3").End(xlToRight).Column
 
 
         For j = 2 To dc
 
                If Feuil1.Cells(10, 8 + 5 * (i - 1)).Value Like Feuil2.Cells(3, j).Value Then
                col = j
               End If
         Next
       End With
 
 
 
 
       Next
 
 
   Next
    '
    'end pour fermer userform1
    '
    End
 
 
 
'
 
 
End Sub

mais c'est une fois après avoir fermé le userform 1 que le coded suivant ne fonctionne pas, leconteur n'est pas reconnu (même quand je remplace leconteur par userform1.leconteur)

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
 
Sub montantareviser()
 
Dim dpm As Double, dpn As Double
Dim i As Integer, j As Integer, k As Integer
For i = 1 To leconteur
j = 14
dpn = 0
Do While Cells(j, 2).Value <> ""
     For k = j To Cells(Rows.count, 1).End(xlUp).Row
 
        If Cells(k, 1).Value Like "DP*" Then
 
        dpm = Cells(k, 8 + 5 * (i - 1)).Value
 
           Cells(k, 9 + 5 * (i - 1)).Value = dpm - dpn
 
        Cells(k, 9 + 5 * (i - 1)).Select
        Selection.NumberFormat = "#,##0.00"
      Selection.Font.Bold = True
 
      ' remplir la colonne Montant de la révision
 
 
 
         Cells(k, 10 + 5 * (i - 1)).Value = Cells(k, 9 + 5 * (i - 1)).Value * Cells(k, 5 + 5 * (i - 1)).Value * (1 - Cells(k, 7 + 5 * (i - 1)).Value)
 
        Cells(k, 10 + 5 * (i - 1)).Value = Application.WorksheetFunction.RoundDown(Cells(k, 10 + 5 * (i - 1)).Value, 4)
 
 
        Exit For
 
         End If
 
  Next k
    dpn = dpm
        j = k
j = j + 1
 
Loop
Next i
 
 
End Sub

et merci beaucoup

Bonjour,

Il reste une incertitude, tous les modules concernés n'étant pas présents.

Dans quelle procédure faites-vous appel à la procédure "montantareviser" ?

Bonsoir Tous,

dans l'aide

Citation:

...
Lorsqu'elle est exécutée, l'instruction End réinitialise toutes les variables au niveau du module et toutes les variables locales statiques dans tous les modules. Pour conserver la valeur de ces variables, utilisez plutôt l'instruction Stop. Vous pourrez ainsi reprendre l'exécution tout en préservant la valeur des variables.
...

essaie de remplacer cette instruction par
Code:

1 2 3 4 5 ... ' END Unload Userform1 ...

Bonsoir,

Bien vu OrDonc:

Je n'avais pas remarqué ces lignes.

Il est évident qu'on ne "ferme pas Userform1" avec "End"
Code:

1 2 3 Next ' end pour fermer userform1 ' End
mais bien sûr avec le code que vous indiquez.

bonjour
et merci infiniment pour votre aide ça marche impeccable