De: J@C Objet: Re: Quel code employer Date : dimanche 18 juin 2000 09:32 pourquoi faire simple quand on peut faire compliqué, je pense vraiment que la formule matricielle est la meilleure solution alors, plutot qu'une boucle en VBA, je me contente de recopier par macro le résultat de la formule matricielle ... je suppose que les dates sont dans la feuille zazafeuil colonne A, lignes 2 à 100 Sub truc() set nouvFeuil = Sheets.Add ActiveCell.FormulaR1C1 = "mois" Range("A2").Select ActiveCell.FormulaR1C1 = "Jan-1998" Selection.AutoFill Destination:=Range("A2:A50"), Type:=xlFillDefault Range("B2").Select Selection.FormulaArray = _ "=SUM((MONTH(zazafeuil!R2C[-1]:R100C[-1])=MONTH(RC[-1]))*(YEAR(zazafeuil!R2C [-1]:R100C[-1])=YEAR(RC[-1])))" Selection.AutoFill Destination:=Range("B2:B50"), Type:=xlFillDefault Range("B2:B50").Copy Range("B2:B50").PasteSpecial Paste:=xlValues End Sub J@C Eric RENAUD a écrit dans le message : Oe9#5EP2$GA.297@cppssbbsa04... > J'ai un tableau avec env 3500 enregistrements. Une colonne comporte une > date. Cette date est écrite sous la forme jj/mm/aa et commence au 1/1/98 et > continue à s'incrémenter régulièrement. > Je voudrais balayer ma colonne date et trouver combien d'enregistrements en > Janvier 98, Février 98, etc ..., et jusquau mois en cours (qui variera en > fonction de l'avancement dans l'année ). > Les résultats seront récupérés dans une feuille Excel. > J'ai trouvé la solution avec une formule mais je préférerais le faire par du > code car cela me ferai faire moins de manipulations. > D'avance merci > -- > ------------------- > Cordialement > Eric RENAUD > http://ericrenaud.free.fr > >