Je recherche une formule en VBA qui me permettrait de compter le
nombre d'items diff=E9rents dans la colonne C (C8 jusqu'=E0 la fin) en
rapport avec la date en colonne A (A8 jusqu'=E0 la fin).
Par exemple, combien de nombre diff=E9rents apparaissent dans la colonne
C en date du 1er mars:
Sub Essai() d = "3/1/2010" temp = "Count(1/FREQUENCY(If(dateÚteValue(" & Chr(34) & d & Chr(34) & "),formes),formes))" n = Evaluate(temp) End Sub
2/ Fonction perso:
Sub Essai2() d = DateSerial(2010, 3, 1) n = ItemsDifferentsCritere([formes], [Date], d) MsgBox n End Sub
Function ItemsDifferentsCritere(champ, champcritere, critere) Set MonDico = CreateObject("Scripting.Dictionary") a = champ b = champcritere For i = 1 To champ.Count If b(i, 1) = critere And a(i, 1) <> "" Then temp = a(i, 1) MonDico(temp) = temp End If Next i ItemsDifferentsCritere = MonDico.Count End Function
> > Bonsoir Denys > > Je ne suis pas du tout pro du TCD (Tableau crois dynamique), mais, je crois > > que dans ce cas, c'est ce qui conviendrait le mieux. > > Nous allons voir ce que nos cousins d'Outre Mare proposent. > > Bonne soir e
> > -- > > Bien amicalmement, > > "Le vin est au repas ce que le parfum est la femme."
> > Jacquouille.
> > "Denys" a crit dans le message de news: > > > > Bonjour tous,
> > Je recherche une formule en VBA qui me permettrait de compter le > > nombre d'items diff rents dans la colonne C (C8 jusqu' la fin) en > > rapport avec la date en colonne A (A8 jusqu' la fin).
> > Par exemple, combien de nombre diff rents apparaissent dans la colonn e > > C en date du 1er mars:
> > Ici, la r ponse devrait tre 4, soit (004327, 004638, 004475 et > > 004600)
> > Auriez-vous une id e ?
> > Merci pour votre temps- Masquer le texte des messages précédents -
> - Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
1/ Par Evaluate:
Sub Essai()
d = "3/1/2010"
temp = "Count(1/FREQUENCY(If(date=DateValue(" & Chr(34) & d &
Chr(34) & "),formes),formes))"
n = Evaluate(temp)
End Sub
2/ Fonction perso:
Sub Essai2()
d = DateSerial(2010, 3, 1)
n = ItemsDifferentsCritere([formes], [Date], d)
MsgBox n
End Sub
Function ItemsDifferentsCritere(champ, champcritere, critere)
Set MonDico = CreateObject("Scripting.Dictionary")
a = champ
b = champcritere
For i = 1 To champ.Count
If b(i, 1) = critere And a(i, 1) <> "" Then
temp = a(i, 1)
MonDico(temp) = temp
End If
Next i
ItemsDifferentsCritere = MonDico.Count
End Function
http://cjoint.com/?dkw01ssTNx
JB
On 10 mar, 22:13, JB <boisgont...@hotmail.com> wrote:
> On 10 mar, 21:31, "Jacquouille" <NoSpam_j.thierne...@skynet.be> wrote:
> > Bonsoir Denys
> > Je ne suis pas du tout pro du TCD (Tableau crois dynamique), mais, je crois
> > que dans ce cas, c'est ce qui conviendrait le mieux.
> > Nous allons voir ce que nos cousins d'Outre Mare proposent.
> > Bonne soir e
> > --
> > Bien amicalmement,
> > "Le vin est au repas ce que le parfum est la femme."
> > Jacquouille.
> > "Denys" <denys.perrea...@rbc.com> a crit dans le message de news:
> > db3828c5-5364-4230-b9d0-6333d0224...@j27g2000yqn.googlegroups.com...
> > Bonjour tous,
> > Je recherche une formule en VBA qui me permettrait de compter le
> > nombre d'items diff rents dans la colonne C (C8 jusqu' la fin) en
> > rapport avec la date en colonne A (A8 jusqu' la fin).
> > Par exemple, combien de nombre diff rents apparaissent dans la colonn e
> > C en date du 1er mars:
Sub Essai() d = "3/1/2010" temp = "Count(1/FREQUENCY(If(dateÚteValue(" & Chr(34) & d & Chr(34) & "),formes),formes))" n = Evaluate(temp) End Sub
2/ Fonction perso:
Sub Essai2() d = DateSerial(2010, 3, 1) n = ItemsDifferentsCritere([formes], [Date], d) MsgBox n End Sub
Function ItemsDifferentsCritere(champ, champcritere, critere) Set MonDico = CreateObject("Scripting.Dictionary") a = champ b = champcritere For i = 1 To champ.Count If b(i, 1) = critere And a(i, 1) <> "" Then temp = a(i, 1) MonDico(temp) = temp End If Next i ItemsDifferentsCritere = MonDico.Count End Function
> > Bonsoir Denys > > Je ne suis pas du tout pro du TCD (Tableau crois dynamique), mais, je crois > > que dans ce cas, c'est ce qui conviendrait le mieux. > > Nous allons voir ce que nos cousins d'Outre Mare proposent. > > Bonne soir e
> > -- > > Bien amicalmement, > > "Le vin est au repas ce que le parfum est la femme."
> > Jacquouille.
> > "Denys" a crit dans le message de news: > > > > Bonjour tous,
> > Je recherche une formule en VBA qui me permettrait de compter le > > nombre d'items diff rents dans la colonne C (C8 jusqu' la fin) en > > rapport avec la date en colonne A (A8 jusqu' la fin).
> > Par exemple, combien de nombre diff rents apparaissent dans la colonn e > > C en date du 1er mars: