[VBA] calculer nombre pour chaque type d'entrée

[julien712]

Bonjour,

Je souhaite calculer le nombre de valeur présent pour chaque type d'entrée.
Une entrée se détermine par :

< 7 jours
entre 7 et 14 jours
entre 14 et 21 jours
entre 21 et 30 jours
entre 30 et 45 jours
plus de 45 jours


Je souhaite donc savoir combien il y a de valeurs dans "< 7 jours" etc etc

En fonction excel j'y arrive

Par contre en VBA je sèche complètement.

Je vous joins un fichier exemple si vous pouvez m'aider.

Je vous remercie

Cdlt

 

[Hippolite]

Re : [VBA] calculer nombre pour chaque type d'entrée

Bonjour,

Public Sub test()
    Dim Dlign As Long, i As Long
    Dlign = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row

    For i = 2 To 7
        Feuil2.Cells(i, 2) = 0
    Next i
    For i = 1 To Dlign
        Select Case Feuil1.Cells(i, 2)
        Case Is <= 7
            Feuil2.Range("B2") = 1 + Feuil2.Range("B2")
        Case 8 To 14
            Feuil2.Range("B3") = 1 + Feuil2.Range("B3")
        Case 15 To 21
            Feuil2.Range("B4") = 1 + Feuil2.Range("B4")
        Case 22 To 30
            Feuil2.Range("B5") = 1 + Feuil2.Range("B5")
        Case 31 To 45
            Feuil2.Range("B6") = 1 + Feuil2.Range("B6")
        Case Is > 45
            Feuil2.Range("B7") = 1 + Feuil2.Range("B7")
        End Select
    Next i
End Sub

 

[julien712]

Re : [VBA] calculer nombre pour chaque type d'entrée

Merci beaucoup je vais tester cela

 

[Gorfael]

Re : [VBA] calculer nombre pour chaque type d'entrée

Salut julien712 et le forum
Une proposition.
Mais, surtout avec Excel, il y a une multitude de façon d'arriver au même but. Tout dépend donc du but final à atteindre. Et ton poste ne renseigne pas dessus.
A+