Bonjour,

J' ai besoin de votre aide car je bloque sur une condition dans mon code VBA.
Je voudrai enfaite compter un élément dans un tableau à condition que en colonne F, la date soit comprise entre le 01/03/2016 et le 07/03/2016.
De plus la valeur en colonne I, s'incrémente dans une variable et le résultat s'affiche en cellule A1.

Dans mon exemple ci dessous, je compte combien il y a de "CC" dans la colonne G, compris entre le 01/03/2016 et le 07/03/2016 et j'additionne la valeur en colonne I.

testdate.xlsx


Tout fonctionne sauf le faite de faire une intervalle entre 2 dates.

Merci pour votre aide.

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
Sub Smme()
 
 
Dim cpt As Double
Dim jetons As String
 
 
 
 
 'Worksheets("PRESTATIONS2").Activate
 
Range("G2").Select
        Do While Not (IsEmpty(ActiveCell))
            li = ActiveCell.Row
                If ActiveCell.Value = "CC" And Cells(li, 8).Value >= 1 / 3 / 2016 And Cells(li, 8).Value <= 7 / 3 / 2016 Then
                    jetons = Cells(li, 9).Value
                    cpt = cpt + jetons
                End If
                ' changer la position d'activecell
                Selection.Offset(1, 0).Activate
 
        Loop
 
' afficher le résultat du compteur après la boucle
Range("A1") = cpt
 
 
 
 
End Sub