Discussion :

[iperkut]

Bonjour,
Voici mon petit problème,
Je dispose d'une feuille comme ceci :


La macro se lance avec CTRL+Q.
Il faut aller sur l'onglet 3, sélectionner un intervalle de date et cliquer sur le bouton 14.

Code :

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

Private Sub CommandButton14_Click()

Chaque date est rattachée à 3 lignes (seul 2 sont remplies pour le moment) 8h et 9h.

Mon but ultime est des compter le nombre de cellules qui sont supérieures à 50 dans les différentes range pour chaque date.
Exemple ci dessus :
entre le 14/01 et le 19/01, je souhaiterais que cela me retourne 6.

Mon code dans le fichier joint, ne marche pas, j'essaye donc de procéder par étape en appliquant un fond rouge aux cellules que je test.
Mais problème, cela ne m'en fait qu'une partie...

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
 
compt = 0
 
DateSup = Format(ComboBox26.Value, "dd/mm/yyyy")
DateInf = Format(ComboBox25.Value, "dd/mm/yyyy")
 
 
With Sheets("BackTest")
    For i = 6 To .Range("A1").SpecialCells(xlCellTypeLastCell).Row Step 5 'Parcours de 5 en 5 la colonne A
        If Format(.Cells(i, 1).Value, "dd/mm/yyyy") >= DateInf And Format(.Cells(i, 1).Value, "dd/mm/yyyy") <= DateSup Then 'Si la date est entre les 2 intervalles
            For Each Cellule In .Range(.Cells(i - 1, 2), .Cells(i - 1, 8)) 'Définition de la plage de cellule
                'If Cellule.Value >= 50 Then ' Si la valeur de la cellule est >50 on incrémente
                 '   compt = compt + 1
                    'MsgBox Cellule.Address
                    Cellule.Interior.ColorIndex = 3
                'End If
            Next
        End If
    Next
End With
MsgBox compt

Merci d'avance.

Mon fichier : ici

Désolé de l'avoir mis sur ci-joint, mais il est trop gros pour être stocké sur le forum.

[Didier Gonard]

Bonjour,

pas ouvert le fichier,

d'après ton code essaies ainsi :

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
With Sheets(1) 'le nom voulu
    For i = 5 To .Range("A1").SpecialCells(xlCellTypeLastCell).Row Step 5 'Parcours de 5 en 5 la colonne A
        If Format(.Cells(i, 1).Value, "dd/mm/yyyy") >= DateInf And Format(.Cells(i, 1).Value, "dd/mm/yyyy") <= DateSup Then 'Si la date est entre les 2 intervalles
            For Each Cellule In .Range(.Cells(i - 1, 2), .Cells(i - 2, 8)) 'Définition de la plage de cellule
                If Cellule.Value >= 50 Then ' Si la valeur de la cellule est >50 on incrémente
                    compt = compt + 1
'                    MsgBox Cellule.Address
                    Cellule.Interior.ColorIndex = 3
                End If
            Next
        End If
    Next
End With
MsgBox compt
End Sub

cordialement,

Didier

[iperkut]

C'est exactement mon code non ?

[iperkut]

Résolu

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
With Sheets("BackTest")
    For i = 6 To .Range("A1").SpecialCells(xlCellTypeLastCell).Row Step 5 'Parcours de 5 en 5 la colonne A
        If CDate(.Cells(i, 1).Value) >= DateInf And CDate(.Cells(i, 1).Value) <= DateSup Then 'Si la date est entre les 2 intervalles
            For Each Cell In .Range(.Cells(i - 1, 2), .Cells(i - 1, 8)) 'Définition de la plage de cellule
                If Cell.Value >= 50 Then
                    compt = compt + 1
                End If
            Next
        End If
    Next
End With
MsgBox compt