[VBA-E] Probleme d'egalite
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:
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 !
:koi:
Ps : je vien d'essayer CSTR(Sheets("visuel").Cells(3, j + 1)) à tout hasard mais bon... non :cry:
