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

Dadi147 · 6 Janvier 2023

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

VB:

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

sousou · 6 Janvier 2023

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

Deadpool_CC · 6 Janvier 2023

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 · 6 Janvier 2023

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

VB:

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

sousou · 6 Janvier 2023

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 · 6 Janvier 2023

sousou à dit:
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 · 6 Janvier 2023

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

Dadi147 · 6 Janvier 2023

sousou à dit:
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 · 6 Janvier 2023

Deadpool_CC à dit:
re ... Avec une simple formule tirée vers le bas

VB:

=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 · 7 Janvier 2023

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

Dadi147 · 7 Janvier 2023

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

Merci beaucoup

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

Dadi147

XLDnaute Occasionnel

Pièces jointes

sousou

Deadpool_CC

XLDnaute Accro

Deadpool_CC

XLDnaute Accro

sousou

XLDnaute Barbatruc

Dadi147

XLDnaute Occasionnel

sousou

XLDnaute Barbatruc

Dadi147

XLDnaute Occasionnel

Dadi147

XLDnaute Occasionnel

sousou

XLDnaute Barbatruc

Pièces jointes

Dadi147

XLDnaute Occasionnel

Discussions similaires