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.
Voici mon code :
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
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 : 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
 
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.