Affectation de variable

Bonjour,
J'ai un problème avec mes variables toujours, NA, Imp_a_repro, aleatoire tryNot et qqs qui sont des integer. Il ne veut pas me les affecter et leur valeur reste toujours à 0.:cry:
Voici mon code :

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
Private Sub Fichier_excel()
  Range("E1").Select
 
  toujours = qqs = NA = imp_a_repro = tryNot = aleatoire = 0
 
While i < Range("E65536").End(xlUp).Row
 
       Date = Range("E" & CStr(i)).Value
       Date_jour = CInt(Left(Date, 2))
       Date_Mois = CInt(Mid(Date, 4, 2))
       Date_an = CInt(Right(Date, 4))
 
        If Date_an <= AnFin And Date_an >= AnDeb Then
          If Date_Mois <= MoisFin And Date_Mois >= MoisDeb Then
             If Date_jour <= JourFin And Date_jour >= JourDeb Then
            Reproductibilite
 
 
              Else: Range("E" & CStr(i)).EntireRow.Delete
              End If
           Else: Range("E" & CStr(i)).EntireRow.Delete
           End If
        Else: Range("E" & CStr(i)).EntireRow.Delete
        End If
         i = i + 1
Wend
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub Reproductibilite()
Dim Col As String
 
    Col = Left(Range("D" & CStr(i)).Value, 1)
    Select Case (Col)
        Case "t"
        toujours = toujours + 1
        Case "N"
        NA = NA + 1
        Case "i"
        imp_a_repro = imp_a_repro + 1
        Case "q"
        qqs = qqs + 1
        Case "n"
        tryNot = tryNot + 1
        Case "a"
        aleatoire = aleatoire + 1
 
    End Select
 
End Sub

Je suis dans un userForm.
Help please.

En galère

En fait les valeurs sont carrément vides 8O
Comment récupérer la valeur d'une variable quand on change de fonction?C'est quand même dingue qu'il me le fasse pas:cfou:

On déclare ces variables en tête de module (avant les Sub) ou on les passe en paramètres de la Sub appelante.

:merci: j'ai vu l'origine du problème