[XL-2007] calcul d'une fréquence de sortie selon une matrice [Résolu]

[rch05]

Bonjour,

j'ai une matrice et je calcule la fréquence de sortie d'un n° selon cette matrice.
ci-dessous la fonction:

Code :

1
2
 
=FREQUENCE(SI(FREQUENCE(SI($B$2:$U$240=$X$1;LIGNE(1:239));LIGNE(1:239));SI($B$2:$U$241<>X$1;$B$2:$U$241));$W$2:$W$71)

par exemple...et qui fonctionne bien.
J'ai ajouté une colonne A, qui contient des dates au format "dimanche 25 septembre 2011"
j'aimerai effectuer le même calcul selon le filtre suivant:
- jour: lundi, mardi, etc.. (Weekday)
- mois: janvier, février, etc....(Month)
- année: 2010, 2011, etc......(Year)

1) est-il possible de le faire?
2) Comment l'appliquer en VBA?

Merci d'avance de votre aide

[modenofx]

Bonjour rch05,

Pour être franc je ne suis pas sur d'avoir cerné ta demande mais pour essayer de t'aider voila ce que j'ai fait :

dans Feuil1 en A1 j'ai : dimanche 25 septembre 2011 (25/09/11 au format date).
Puis respectivement toutes les dates jusqu'en A16 : lundi 10 octobre 2011.

J'ai filtrer les résultats par mois en prenant seulement octobre :

Code :

1
2
3
4
5
 
Range("A1").EntireColumn.SpecialCells(xlCellTypeConstants).Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$16").AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(1, "10/10/2011")

En espérant que ça puisse t'aider.

[rch05]

Bonjour modenofx,

Merci de ta réponse.
Afin de mieux comprendre ma demande, ci-joint un fichier exemple.
La colonne A: ce sont les dates
La colonne X2:X71 est le calcul des fréquences de sorties.
Lorsque j’effectue un filtre dans la colonne A, le calcul des fréquences ne s'effectue pas par rapport au filtre.
Il faut à chaque fois que je change la plage de la matrice.

Comment faire pour prendre en compte le filtre?
J'espère que mon explication est un peu plus claire....

Merci

[modenofx]

Bonsoir rch05,

Je suis en train de regarder ton fichier excel "Fréquence".

Si je comprends bien, tu veux pouvoir filtrer les éléments de la colonne A par jours, mois et années et qu'une fois le filtre appliquer le résultat soit retranscrit dans chaqu'une des lignes de X?

[rch05]

Bonjour modenofx,

C'est exatement ça.

Merci de ton aide

Cdt

[modenofx]

Bonsoir rch05,

J'ai travaillé sur ton fichier, voila ce que j'ai fais pour le moment :

Code :

1
2
3
4
5
6
7
8
9
10
 
'On sélectionne toute la colonne A avec les dates :
Range("A1").EntireColumn.SpecialCells(xlCellTypeConstants).Select
 
'Avec cette selection on filtre les données pour le mois de janvier :
Selection.AutoFilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(1, "01/01/2011")
 
'On sélectionne les données filtrées :
Range("U2").EntireColumn.SpecialCells(xlCellTypeVisible).Select

Je ne suis qu'un grand débutant en vba mais pour moi si tu refais ta formule au complet contenue en X en vba et que tu remplaces "B2:U240" par la derniere sélection de cellule à l'aide d'une variable ça devrait fonctionner.

J'ai dans un de mes fichiers excel (pas sur l'ordinateur de ce soir) un module pour obtenir les coordonnées complètes d'une cellule, il est aussi présent sur ce forum. Je le chercherais prochainement pour continuer ce code.

[rch05]

Bonjour modenofx,

OK, je vais voir avec ton code et tester avec une variable.
Je te tiens au courant

Bonne journée

Cdt