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:
la formule serait : =SOMMEPROD((Formes<>"")*(LesDates¡4)/(NB.SI(Formes;Formes)+(Formes="")))
Formes -> plage nommée pour les modèles (items) LesDates -> plage nommée pour les dates Dans mon exemple : A14 est la cellule de la date retenue : 2010/03/01 Réponse : 4
Je vais voir ce que je peux pour te mettre ça en VBA.
"Denys" a écrit dans le message de groupe de discussion :
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 colonne 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
Bonjour,
Dans la feuille de calcul,
la formule serait :
=SOMMEPROD((Formes<>"")*(LesDates¡4)/(NB.SI(Formes;Formes)+(Formes="")))
Formes -> plage nommée pour les modèles (items)
LesDates -> plage nommée pour les dates
Dans mon exemple : A14 est la cellule de la date retenue : 2010/03/01
Réponse : 4
Je vais voir ce que je peux pour te mettre ça en VBA.
"Denys" <denys.perreault@rbc.com> a écrit dans le message de groupe de discussion :
db3828c5-5364-4230-b9d0-6333d02240cc@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 colonne
C en date du 1er mars:
la formule serait : =SOMMEPROD((Formes<>"")*(LesDates¡4)/(NB.SI(Formes;Formes)+(Formes="")))
Formes -> plage nommée pour les modèles (items) LesDates -> plage nommée pour les dates Dans mon exemple : A14 est la cellule de la date retenue : 2010/03/01 Réponse : 4
Je vais voir ce que je peux pour te mettre ça en VBA.
"Denys" a écrit dans le message de groupe de discussion :
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 colonne 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
Jacquouille
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 colonne 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
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.perreault@rbc.com> a écrit dans le message de news:
db3828c5-5364-4230-b9d0-6333d02240cc@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 colonne
C en date du 1er mars:
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 colonne C en date du 1er mars:
Attention aux coupures de ligne du service de messagerie.
'--------------------------------------------- Sub test() Dim Rg As Range Dim MaDate As Long, X As Integer 'DateSerial(année,mois,jour) MaDate = DateSerial(2010, 3, 1) With Feuil5 Set Rg = .Range("A8:A" & .Range("A65536").End(xlUp).Row)
"Denys" a écrit dans le message de groupe de discussion :
Merci Denis,
Je vais aussi essayer avec cette formule...
Denys
En vba, cela ressemble à ceci :
Attention aux coupures de ligne du service de messagerie.
'---------------------------------------------
Sub test()
Dim Rg As Range
Dim MaDate As Long, X As Integer
'DateSerial(année,mois,jour)
MaDate = DateSerial(2010, 3, 1)
With Feuil5
Set Rg = .Range("A8:A" & .Range("A65536").End(xlUp).Row)
"Denys" <denys.perreault@rbc.com> a écrit dans le message de groupe de discussion :
8746de03-2775-46c4-ab7d-07ecf5ca77af@g10g2000yqh.googlegroups.com...
Merci Denis,
Attention aux coupures de ligne du service de messagerie.
'--------------------------------------------- Sub test() Dim Rg As Range Dim MaDate As Long, X As Integer 'DateSerial(année,mois,jour) MaDate = DateSerial(2010, 3, 1) With Feuil5 Set Rg = .Range("A8:A" & .Range("A65536").End(xlUp).Row)
"Denys" a écrit dans le message de groupe de discussion :
Merci Denis,
Je vais aussi essayer avec cette formule...
Denys
Denys
Bonjour Denis,
Voici ce que j'ai....
Sub Calc()
Dim L As Long With ActiveSheet() L = .Range("A65536").End(xlUp).Row .Range("C8:A" & L).Name = "Formes" .Range("A8:A" & L).Name = "LesDates" .Range("C2").FormulaArray "=Sumproduct((Formes<>"""")*(LesDates=T2)/(Countif(Formes,Formes)+ (Formes="""")))"
End With
End Sub
Ca semble parfait....
Merci beaucoup.....
Denys
Bonjour Denis,
Voici ce que j'ai....
Sub Calc()
Dim L As Long
With ActiveSheet()
L = .Range("A65536").End(xlUp).Row
.Range("C8:A" & L).Name = "Formes"
.Range("A8:A" & L).Name = "LesDates"
.Range("C2").FormulaArray "=Sumproduct((Formes<>"""")*(LesDates=T2)/(Countif(Formes,Formes)+
(Formes="""")))"
Dim L As Long With ActiveSheet() L = .Range("A65536").End(xlUp).Row .Range("C8:A" & L).Name = "Formes" .Range("A8:A" & L).Name = "LesDates" .Range("C2").FormulaArray "=Sumproduct((Formes<>"""")*(LesDates=T2)/(Countif(Formes,Formes)+ (Formes="""")))"
End With
End Sub
Ca semble parfait....
Merci beaucoup.....
Denys
michdenis
On peut omettre les "Rg.parent.name" et la formule devient :
"michdenis" a écrit dans le message de groupe de discussion : # En vba, cela ressemble à ceci :
Attention aux coupures de ligne du service de messagerie.
'--------------------------------------------- Sub test() Dim Rg As Range Dim MaDate As Long, X As Integer 'DateSerial(année,mois,jour) MaDate = DateSerial(2010, 3, 1) With Feuil5 Set Rg = .Range("A8:A" & .Range("A65536").End(xlUp).Row)
"michdenis" <michdenis@hotmail.com> a écrit dans le message de groupe de discussion :
#9nQnNJwKHA.3408@TK2MSFTNGP06.phx.gbl...
En vba, cela ressemble à ceci :
Attention aux coupures de ligne du service de messagerie.
'---------------------------------------------
Sub test()
Dim Rg As Range
Dim MaDate As Long, X As Integer
'DateSerial(année,mois,jour)
MaDate = DateSerial(2010, 3, 1)
With Feuil5
Set Rg = .Range("A8:A" & .Range("A65536").End(xlUp).Row)
"Denys" <denys.perreault@rbc.com> a écrit dans le message de groupe de discussion :
8746de03-2775-46c4-ab7d-07ecf5ca77af@g10g2000yqh.googlegroups.com...
Merci Denis,
"michdenis" a écrit dans le message de groupe de discussion : # En vba, cela ressemble à ceci :
Attention aux coupures de ligne du service de messagerie.
'--------------------------------------------- Sub test() Dim Rg As Range Dim MaDate As Long, X As Integer 'DateSerial(année,mois,jour) MaDate = DateSerial(2010, 3, 1) With Feuil5 Set Rg = .Range("A8:A" & .Range("A65536").End(xlUp).Row)
"Denys" a écrit dans le message de groupe de discussion :
Merci Denis,
Je vais aussi essayer avec cette formule...
Denys
Denys
On Mar 10, 3:51 pm, "michdenis" wrote:
En vba, cela ressemble ceci :
Attention aux coupures de ligne du service de messagerie.
'--------------------------------------------- Sub test() Dim Rg As Range Dim MaDate As Long, X As Integer 'DateSerial(ann e,mois,jour) MaDate = DateSerial(2010, 3, 1) With Feuil5 Set Rg = .Range("A8:A" & .Range("A65536").End(xlUp).Row)
"Denys" a crit dans le message de groupe de dis cussion :
Merci Denis,
Je vais aussi essayer avec cette formule...
Denys
Wow !!!
C'est de la formule ça monsieur !!! Je vais l'adapter...
Merci infiniment pour ton temps....
Bonne journée
Denys
On Mar 10, 3:51 pm, "michdenis" <michde...@hotmail.com> wrote:
En vba, cela ressemble ceci :
Attention aux coupures de ligne du service de messagerie.
'---------------------------------------------
Sub test()
Dim Rg As Range
Dim MaDate As Long, X As Integer
'DateSerial(ann e,mois,jour)
MaDate = DateSerial(2010, 3, 1)
With Feuil5
Set Rg = .Range("A8:A" & .Range("A65536").End(xlUp).Row)
"Denys" <denys.perrea...@rbc.com> a crit dans le message de groupe de dis cussion :
8746de03-2775-46c4-ab7d-07ecf5ca7...@g10g2000yqh.googlegroups.com...
Merci Denis,
Je vais aussi essayer avec cette formule...
Denys
Wow !!!
C'est de la formule ça monsieur !!! Je vais l'adapter...
Attention aux coupures de ligne du service de messagerie.
'--------------------------------------------- Sub test() Dim Rg As Range Dim MaDate As Long, X As Integer 'DateSerial(ann e,mois,jour) MaDate = DateSerial(2010, 3, 1) With Feuil5 Set Rg = .Range("A8:A" & .Range("A65536").End(xlUp).Row)
"michdenis" a écrit dans le message de groupe de discussion : # En vba, cela ressemble à ceci :
Attention aux coupures de ligne du service de messagerie.
'--------------------------------------------- Sub test() Dim Rg As Range Dim MaDate As Long, X As Integer 'DateSerial(année,mois,jour) MaDate = DateSerial(2010, 3, 1) With Feuil5 Set Rg = .Range("A8:A" & .Range("A65536").End(xlUp).Row)
"Denys" a écrit dans le message de groupe de discussion :
Merci Denis,
Je vais aussi essayer avec cette formule...
Denys
J'ai oublié de te dire, que si tu omets Les Rg.parent.name
tu dois activer la feuille en ajoutant ceci :
With Feuil5
.Activate '<<========
Le reste de la procédure.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de groupe de discussion :
eQrWXSJwKHA.3896@TK2MSFTNGP02.phx.gbl...
On peut omettre les "Rg.parent.name" et la formule devient :
"michdenis" <michdenis@hotmail.com> a écrit dans le message de groupe de discussion :
#9nQnNJwKHA.3408@TK2MSFTNGP06.phx.gbl...
En vba, cela ressemble à ceci :
Attention aux coupures de ligne du service de messagerie.
'---------------------------------------------
Sub test()
Dim Rg As Range
Dim MaDate As Long, X As Integer
'DateSerial(année,mois,jour)
MaDate = DateSerial(2010, 3, 1)
With Feuil5
Set Rg = .Range("A8:A" & .Range("A65536").End(xlUp).Row)
"Denys" <denys.perreault@rbc.com> a écrit dans le message de groupe de discussion :
8746de03-2775-46c4-ab7d-07ecf5ca77af@g10g2000yqh.googlegroups.com...
Merci Denis,
"michdenis" a écrit dans le message de groupe de discussion : # En vba, cela ressemble à ceci :
Attention aux coupures de ligne du service de messagerie.
'--------------------------------------------- Sub test() Dim Rg As Range Dim MaDate As Long, X As Integer 'DateSerial(année,mois,jour) MaDate = DateSerial(2010, 3, 1) With Feuil5 Set Rg = .Range("A8:A" & .Range("A65536").End(xlUp).Row)
Bonsoir Denys Je ne suis pas du tout pro du TCD (Tableau crois dynamique), mais, je cro is 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 colonne C en date du 1er mars:
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 cro is
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 colonne
C en date du 1er mars:
Bonsoir Denys Je ne suis pas du tout pro du TCD (Tableau crois dynamique), mais, je cro is 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 colonne C en date du 1er mars:
> Bonsoir Denys > Je ne suis pas du tout pro du TCD (Tableau crois dynamique), mais, je c rois > 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 colonne > C en date du 1er mars:
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 c rois
> 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 colonne
> C en date du 1er mars:
> Bonsoir Denys > Je ne suis pas du tout pro du TCD (Tableau crois dynamique), mais, je c rois > 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 colonne > C en date du 1er mars:
