Coucou,

j'ai un petit souci dans le code suivant, je comprend pas pourquoi il y a une condition qui vérifie une egalité (que j'ai mise en gras) qui est toujours vraie (alors qu'elle ne devrait pas)

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
28
29
30
31
32
33
 
Public Sub Report_Seuils()
 
    Dim NbLignes As Double
    Dim NumeroJour As Integer
    Dim NomFolder As String
    Sheets("résultats_globaux").Activate
    [A1].Select
    NbLignes = Selection.End(xlDown).Row
 
    'on recupere le numero du jour et on augmente la case de 1 dans la feuille visuel
    For i = 2 To 2
 
        NumeroJour = Int(Mid(Sheets("résultats_globaux").Cells(i, 3), 1, 2))
        NomFolder = Sheets("résultats_globaux").Cells(i, 5)
        Debug.Print NomFolder
        Debug.Print Sheets("visuel").Cells(3, 2)
        For j = 1 To 6                         'NombreFolder
            If (Sheets("visuel").Cells(3, j + 1) = NomFolder) Then
                Debug.Print j
                Debug.Print Sheets("visuel").Cells(3, j + 1)
                Debug.Print NomFolder
                Sheets("visuel").Cells(NumeroJour + 3, 2) = Sheets("visuel").Cells _
(NumeroJour + 3, 2) + 1
            End If
        Next
 
        'on fait la somme de la colonne et on met le resultat
        'dans la ligne "Nombre de seuils non atteints"
 
    Next
 
End Sub
voici ce que j'ai avec les debbug.print :

Valeur1
Valeur2
2
Valeur1
Valeur1

on remarque que ma boucle avec j ne fait qu'un "tour" et que ma variable NomFolder qui valait Valeur2 vaut Valeur1 et ca je comprend pas pourquoi !


Ps : je vien d'essayer CSTR(Sheets("visuel").Cells(3, j + 1)) à tout hasard mais bon... non