VBA compter cellule

Version imprimable

VBA compter cellule

Bonjour,
Voici mon petit problème,
Je dispose d'une feuille comme ceci :
http://iperkut.free.fr/1.JPG

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:

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:

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.

Bonjour,

pas ouvert le fichier,

d'après ton code essaies ainsi :

Code:

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

26/04/2010, 13h39
iperkut

C'est exactement mon code non ?

Résolu

Code:

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