Discussion :

[Elstak]

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

[illight]

Ça correspond à quoi toutes ces valeurs la ? En fait je comprend pas trop le but de ta macro

Sinon fait tourner la macro au pas a pas détaillé et tu verra surement ce qui cloche

[Elstak]

en fait dans "resultats globaux" j'ai des resultats ligne à ligne, avec dans une colonne le numéro du jour, dans une autre mon "NomFolder" etc...

Là je veux faire une sorte de recaptitulatif visuel avec un tableau qui ressemble à ca :

/ FOLDER1 / FOLDER2 / ....
1
2
3
4

où 1,2... sont les jours du mois (là ya pas de souci là dessus) et dans ma page de resultats globaux j'ai sur un ligne (je met que ce qui nous interesse) :

Date du type "12/05/2006 15:21" donc mon "mid" de mon code me permet de recuperer le "12" et ainsi savoir à quelle ligne je doit ajouter "1" par contre là mon soucis c'est pour trouver à quelle colonne car j'ai aussi le FOLDER dansmes lignes et là en gros je veux comparer ce nom de FOLDER avec FOLDER1 etc... mais c'est là qu'est le probleme il trouve toujours une egalité.. j'ai essayé aussi avec Strcomp mais meme resultat...

le pas à pas detaillé? je vois pas trop comment l'utiliser j'ai utilisé des debug.print quest ce que ca pourrait m'aporter de plus?

[Elstak]

Oh mon dieu !

je suis trop connnn

je cherchais depuis tout à l'heure sur la comparaison...
alors que le probleme etait là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Sheets("visuel").Cells(NumeroJour + 3, 2) = Sheets("visuel").Cells _
(NumeroJour + 3, 2) + 1

normal que ca allait toujours colonne 2 si je met colonne 2... bref en remplacant par 1+j tout va bien

[illight]

Le pas à pas détaillé te permettra justement de voir ligne à ligne ce qu'il se passe dans ta macro et la valeurs de toutes tes données à chaque ligne que tu avance c'est très pratique je te l'assure

Tu verras à ce moment la pourquoi ton égalité est toujours vraie en fonction des valeurs que prenne toutes tes variables

(je pense que tu le sais mais on sait jamais : quand tu passe avec ta souris sur une variable, quand tu fais le pas a pas détaillé, tu auras sa valeur )