Discussion :

[chdiouc]

Bonjour,
Je souhaite créer une macro qui permettrai de compter le nombre de fois « A_faire » et « Terminée » en fonction de chaque mois.
Dans mon exemple j’ai,
Janvier : 3 A-faire et 2 Terminée.
Février : 5 A_faire et 3 Terminée.

J’arrive à tout réaliser sauf le fait de trier par date.
Pourriez-vous m’aider s’il vous plaît ?

Cordialement

Données.xlsm

[Invité]

J’arrive à tout réaliser sauf le fait de trier par date.

Bonjour,

Qu'est ce que donne le code de ce tri appliqué à votre tableau avec l'enregistreur de macro ?

[vinc_bilb]

Bonjour,

Et question simple: pourquoi passer par du VBA alors qu'Excel je pense, peut faire la synthèse très bien nativement?

[chdiouc]

Bonjour,

Qu'est ce que donne le code de ce tri appliqué à votre tableau avec l'enregistreur de macro ?

Juste compter le nombre de "A_faire" pendant le mois de janvier.
Il n'y a pas réellement une tri à faire.

En gros cela donnerai :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Janvier()

Dim res_A_faire As Integer
Dim res_Terminée As Integer

Si je suis en janvier, tu m’exécute ce code

res_A_faire = Application.WorksheetFunction.CountIfs(Sheets("Feuil1").Range("c2:c99"), "A_faire")
res_Terminée = Application.WorksheetFunction.CountIfs(Sheets("Feuil1").Range("c2:c99"), "Terminée")

Sheets("Feuil1").Cells(4, 9) = res_A_faire
Sheets("Feuil1").Cells(5, 9) = res_Terminée

End Sub

Mais je ne sais pas jouer avec les dates dans VBA


Pour répondre à l'autre question, le fichier joint est un exemple.
Mon code final jouera avec plusieurs fichier. (Les données ne seront pas dans le même classeur que les résultats)

[Invité]

Bonjour,

Pour compléter le message de vinc_bilb en ce qui concerne le décompte des interventions, une solution avec une formule.

Pièce jointe 239852

[Philippe Tulliez]

Bonjour,

Mais je ne sais pas jouer avec les dates dans VBA

A lire Comprendre et gérer les dates sous Excel et en VBA et une piqûre de rappel Utiliser les fonctions Date et Heure sous Excel 2007