XL 2016 Somme des valeurs de cellule avec la condition du mois et une valeur dans une colonne

[Dadi147]

Bonjour, je souhaite mettre une condition lors du passage à un nouveau mois ou lors de la vérification de la présence du mot ok dans la colonne A

Le processus de comptage est arrêté et redémarré

Ceci est un exemple du résultat attendu

Sub Progressive_Product_v2()
  Dim a As Variant
  Dim i As Long
 
  With Range("q7", Range("q" & Rows.Count).End(xlUp))
    a = .Value
    For i = 2 To UBound(a)

      a(i, 1) = a(i, 1) + a(i - 1, 1)
    Next i
    .Offset(, 1).Value = a

  End With
  With Range("R7", Range("R" & Rows.Count).End(xlUp))
    a = .Value
    For i = 2 To UBound(a)

      a(i, 1) = a(i, 1) + a(i - 1, 1)
    Next i
    .Offset(, 1).Value = a

  End With
 
End Sub

 

[Deadpool_CC]

Bonsoir,

j'ai pas ouvert le fichier mais comme cela à chaud :
- la version Macro est obligatoire? une formule ferait l'affaire
- Vos données sont bien triées au moins par date ?

 

[Deadpool_CC]

re ... Avec une simple formule tirée vers le bas

=Q7+SI(MOIS(D7)=MOIS(D6);R6;0)

 

[sousou]

Bonsoir
Un code rangement en colonne 23pou test
Sub compte()
dblg = 7
n = 0
compteur = 0
mois = 0
While Cells(dblg + n, 17) <> ""
'MsgBox Month(Cells(dblg + n, 4))
If Month(Cells(dblg + n, 4)) <> mois Then
compteur = 0
mois = Month(Cells(dblg + n, 4))

End If
If Cells(dblg + n, 4) = "ok" Then compteur = 0
compteur = compteur + Cells(dblg + n, 17)
Cells(dblg + n, 25) = compteur
n = n + 1
Wend

End Sub

 

[Dadi147]

Bonsoir
Un code rangement en colonne 23pou test
Sub compte()
dblg = 7
n = 0
compteur = 0
mois = 0
While Cells(dblg + n, 17) <> ""
'MsgBox Month(Cells(dblg + n, 4))
If Month(Cells(dblg + n, 4)) <> mois Then
compteur = 0
mois = Month(Cells(dblg + n, 4))

End If
If Cells(dblg + n, 4) = "ok" Then compteur = 0
compteur = compteur + Cells(dblg + n, 17)
Cells(dblg + n, 25) = compteur
n = n + 1
Wend

End Sub

Oui, très bien.Comment puis-je implémenter la même chose dans la colonne R ?
Pour calculer les valeurs de la colonne Q dans les mêmes conditions

 

[sousou]

Il suffit de remplacer
Cells(dblg + n, 25) = compteur
par
Cells(dblg + n, 18) = compteur

 

[Dadi147]

Il suffit de remplacer
Cells(dblg + n, 25) = compteur
par
Cells(dblg + n, 18) = compteur

Je veux dire, je veux exécuter le même code après avoir obtenu le résultat dans la colonne R

sur les valeurs obtenues et les mettre dans la colonne S

 

[Dadi147]

re ... Avec une simple formule tirée vers le bas

=Q7+SI(MOIS(D7)=MOIS(D6);R6;0)

Regarde la pièce jointe 1159690

Merci, la formule fonctionne très bien, mais je ne veux pas l'implémenter via le code vba

 

[sousou]

Re Bonjour
Voici le code mis en procédure pour les deux colonnes macro et plus si nécessaire ......deb()

 

[Dadi147]

Re Bonjour
Voici le code mis en procédure pour les deux colonnes macro et plus si nécessaire ......deb()

Merci beaucoup