Macro date

[fabiole]

Bonjour,

Je cherche une macro qui cumule chaque évenement survenu dans le mois sur plusieurs années.

Par exemple si des événements sont survenus le 19/02/2007, 22/02/2003 et le 26/02/2002 j'aimerai que dans un autre tableau, dans la case février soit affiché: 3 (événements).

Merci

 

[exene]

Re : Macro date

Bonjour,

Pourrais tu joindre un fichier représentatif car c'est difficile de travailler sur une image.

@ plus

 

[fabiole]

Re : Macro date

Voila mon tableau 🙂

 

[Iznogood1]

Re : Macro date

Bonjour

=SOMMEPROD((MOIS(B4:B108)=2)*1)

 

[chris]

Re : Macro date

Bonjour
Salut Exene🙂

Pourquoi une macro ?

Ci-joint 2 solutions par formule et par TCD sous réserve dans les 2 cas de faire du ménage dans les dates dont nombre sont au format texte...

Edit : salut à Isnogoog1 plus rapide 🙂

 

[PMO2]

Re : Macro date

Bonjour,

Essayez le code suivant à copier dans un module Standard

Sub aa()
Dim S As Worksheet
Dim C As Range
Dim T()
Dim T2(1 To 1, 1 To 12)
Dim cpt&
Dim i&
'--- Si on trouve une Date dans chaque cellule de la   ---
'--- sélection, on inscrit le mois dans un tableau VBA ---
For Each C In Selection
  If IsDate(C) Then
    cpt& = cpt& + 1
    ReDim Preserve T(1 To cpt&)
    T(cpt&) = Month(C)
  End If
Next C
'--- Somme de chaque mois trouvé ---
If cpt& = 0 Then Exit Sub
For i& = 1 To cpt&
  T2(1, T(i&)) = T2(1, T(i&)) + 1
Next i&
'--- Inscription dans une nouvelle feuille ---
Set S = Sheets.Add
S.Range("b2:m2") = T2
'--- Titres dans la nouvelle feuille ---
S.[b1] = "Janvier"
S.[b1].AutoFill Destination:=Range("B1:M1"), Type:=xlFillDefault
End Sub

Il faudra sélectionner la plage qui contient les dates ("B4:B108" dans votre exemple) avant de lancer la macro.
Les résultats s'afficheront dans une nouvelle feuille.

 

[fabiole]

Re : Macro date

Merci à tous pour vos réponses 🙂