Discussion :

[RabiK33]

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

[cerede2000]

Bonjour à toi,

Je te suggère d'essayer comme ceci :

Code :

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

CDate(Cells(li, 8).Value) >= CDate("1/3/2016") And  CDate(Cells(li, 8).Value) <=  CDate("7/3/2016")

[RabiK33]

Merci pour ton aide,
Je sais pas si je l'ai bien incorporé à mon code ton idée mais ça ne fonctionne pas.
Voici comment je l'ai incorporé:

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
Sub Smme2()
 
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 = "A" And CDate(Cells(li, 8).Value) >= CDate("01/03/2016") And CDate(Cells(li, 8).Value) <= CDate("07/03/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

[cerede2000]

Que contient

Code :

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

Cells(li, 8).Value

?

[RabiK33]

Ah mince j'ai fais une erreur de colonne,
Cells(li, 8) correspond normalement à la colonne qui contient la date mais celle ci est en Cells(li, 6)

[RabiK33]

Voici le code si ça pourrait intéresser quelqu'un
Merci beaucoup à cerede2000 pour son aide précieuse.

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
Sub Smme2()
 
 
Dim cpt As Double
Dim jetons As String
Dim deb As Date
Dim fin As Date
 
 
 
 
 'Worksheets("PRESTATIONS2").Activate
 
Range("G1").Select
        Do While Not (IsEmpty(ActiveCell))
            li = ActiveCell.Row
                If ActiveCell.Value = "A" And CDate(Cells(li, 6).Value) >= CDate("01/03/2016") And CDate(Cells(li, 6).Value) <= CDate("07/03/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

[ZX12R]

Bonjour,

Une chose me dérange ds ton ex de code.

Dans ton fichier "épuré", tes données de dates semblent être en colonne F (6e colonne) donc :

CDate(Cells(Li, 8).Value) pointe une cellule vide ! Remplace 8 par 6 et celà devrait le faire !!!

Sinon tous tes .value ne sont pas utiles, cette propriété étant celle par défaut utilisée pour les objets ActiveCell, Cells, Range, ...

Donc, par exemple, CDate(Cells(Li,6)) suffira.

Cordialement.

Bruno

[RabiK33]

Oui effectivement, il y avait une erreur que nous avons remarqué c'est pourquoi je l'ai corrigé dans mon Post d'après.
En tout cas merci pour l'explication de la propriété .value. Je ne savais pas.

[cerede2000]

@ZX12R : Pas d'accord du tout !
Ok quand tu appel Range("B1") tout seul tu obtiens la value, mais c'est une très mauvaise habitude que de faire ça !

@RabiK33 : Garde l'habitude de précise toujours l'attribut de l'objet que tu appel