Macro date

fabiole · 9 Juillet 2015

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 · 9 Juillet 2015

Re : Macro date

Bonjour,

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

@ plus

fabiole · 9 Juillet 2015

Re : Macro date

Voila mon tableau 🙂

Iznogood1 · 9 Juillet 2015

Re : Macro date

Bonjour

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

chris · 9 Juillet 2015

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 · 9 Juillet 2015

Re : Macro date

Bonjour,

Essayez le code suivant à copier dans un module Standard

Code:

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 · 9 Juillet 2015

Re : Macro date

Merci à tous pour vos réponses 🙂

Macro date

fabiole

Guest

Pièces jointes

exene

XLDnaute Accro

fabiole

Guest

Pièces jointes

Iznogood1

XLDnaute Impliqué

chris

XLDnaute Barbatruc

Pièces jointes

PMO2

XLDnaute Accro

Pièces jointes

fabiole

Guest

Discussions similaires

Macro date

fabiole

Guest

Pièces jointes

exene

XLDnaute Accro

fabiole

Guest

Pièces jointes

Iznogood1

XLDnaute Impliqué

chris

XLDnaute Barbatruc

Pièces jointes

PMO2

XLDnaute Accro

Pièces jointes

fabiole

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency