Boucle sur chaque mois

Hello !

je suis confronté à un soucis, le fichier excel se présente comme ceci :

date (jj/mm/yyyy) | dépassement

Je n'arrive pas à réaliser le fait suivant : calculer pour chaque mois le dépassement.

J'étais parti dans l'idée de faire un foreach mais sans grand succès !

Merci de vos réponses,

Salut camarade,

hé, nous ne sommes pas devins, hein!

A+

Hey !

en effet, j'avais oublié cea

   For i = 2 To nb_ligne1
        mois = Month(Cells(i, 1).Value)
        For Each mois In Columns("A:A")
            If (Cells(1, 4) = "PTE") Then
                sommedep = Cells(i, 7).Value + sommedep
                Range("P5").Value = sommedep
            ElseIf (Cells(1, 4) = "HPH") Then
                sommedep = Cells(i, 7).Value + sommedep
                Range("P6").Value = sommedep
            ElseIf (Cells(1, 4) = "HCH") Then
                sommedep = Cells(i, 7).Value + sommedep
                Range("P7").Value = sommedep
            ElseIf (Cells(1, 4) = "HPE") Then
                sommedep = Cells(i, 7).Value + sommedep
                Range("P8").Value = sommedep
            Else
                sommedep = Cells(i, 7).Value + sommedep
                Range("P9").Value = sommedep
            End If
        Next
    Next

Je peux pas mettre de fichier, les données sont internes.

J'espère que c'est assez claire ..

Bonjour,

Procédure incomplète et explications insuffisantes...

Sous réserve d'éléments manquants, ce bout de code paraît incohérent...

[Je pense qu'il le sera toujours avec des compléments apportés ! Mais les compléments pourront peut-être fournir des infos permettant de le remettre sur pied ! ]

Cordialement.

Bonjour Bazinga,

Cher MFerrand, ravi de vous rencontrer après tout ce temps!

Un de vos codes m'a été bien utile, il y a peu! Merci!

Bazinga, sans fichier, bien souvent, pas de miracle! Change tes données avec des données bidon sur une dizaine de lignes qu'on puisse se rendre compte de la réalité de ton environnement de travail!

Avec des explications claires et complètes!

Comme le dit MFerrand (et, crois-moi, il s'y connaît!), ton code présente des bizzareries que nous pourrons difficilement rattraper sans ces informations.

A+

Salut Curulis ! Ravi également !

Un de vos codes m'a été bien utile, il y a peu! Merci!

J'aime autant ça que le contraire !

Re-bonjour à chacun,

j'ai au final réussi à résoudre mon problème en passant directement via des formules dans Excel, pas besoin de VBA.

Je tacherais d'être plus explicite la prochaine fois

Merci de vous être penché sur mon problème !