Compter Groupe

Le
A COSTA
Bonjour,
Je vous demande votre aide pour le suivant:

Col A Col B
A 1
B 1
C 1
A 2
B 1
C 2
D 1
A 2
B 3
C 1
D 1
A 2
B 1
C 2
D 2
B 3

Je filtre la colonne B. Quelle formule utiliser pour avoir le résultat
suivant:
Filtre par 1 - 1 fois groupe A, une fois groupe B, une fois groupe C et une
fois groupe D;
Filtre par 2 - 1 fois groupe A, une fois groupe C et une fois groupe D;
Filtre par 3 - 1 fois groupe B
Le résultat peut se presenter en 3 cellules diférentes.
Je vous remercie d'avance
A. Costa
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
A COSTA
Le #4983501
Re-Bonjour,
Et si possible, combien de groupes après le filtre.
Filtre 1 - 4 groupes
Filtre 2 - 3 groupes
Filtre 3 - 1 groupe

Merci encore une fois.
A. Costa


Bonjour,
Je vous demande votre aide pour le suivant:

Col A Col B
A 1
B 1
C 1
A 2
B 1
C 2
D 1
A 2
B 3
C 1
D 1
A 2
B 1
C 2
D 2
B 3

Je filtre la colonne B. Quelle formule utiliser pour avoir le résultat
suivant:
Filtre par 1 - 1 fois groupe A, une fois groupe B, une fois groupe C et une
fois groupe D;
Filtre par 2 - 1 fois groupe A, une fois groupe C et une fois groupe D;
Filtre par 3 - 1 fois groupe B
Le résultat peut se presenter en 3 cellules diférentes.
Je vous remercie d'avance
A. Costa


JB
Le #4983411
Bonjour,

http://cjoint.com/?ktqNL7q2qk

Function CompteSansDoublons(champ, champcritere, critere)
Set MonDico = CreateObject("Scripting.Dictionary")
For i = 1 To champ.Count
If UCase(champcritere(i).Value) = UCase(critere) Then
If Not MonDico.Exists(champ(i).Value) Then _
MonDico.Add champ(i).Value, champ(i).Value
End If
Next i
CompteSansDoublons = MonDico.Count
End Function

JB
http://boisgontierjacques.free.fr

On 19 oct, 15:47, A COSTA
Re-Bonjour,
Et si possible, combien de groupes après le filtre.
Filtre 1 - 4 groupes
Filtre 2 - 3 groupes
Filtre 3 - 1 groupe

Merci encore une fois.
A. Costa




Bonjour,
Je vous demande votre aide pour le suivant:

Col A Col B
A 1
B 1
C 1
A 2
B 1
C 2
D 1
A 2
B 3
C 1
D 1
A 2
B 1
C 2
D 2
B 3

Je filtre la colonne B. Quelle formule utiliser pour avoir le résultat
suivant:
Filtre par 1 - 1 fois groupe A, une fois groupe B, une fois groupe C e t une
fois groupe D;
Filtre par 2 - 1 fois groupe A, une fois groupe C et une fois groupe D;
Filtre par 3 - 1 fois groupe B
Le résultat peut se presenter en 3 cellules diférentes.
Je vous remercie d'avance
A. Costa- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



JB
Le #4983401
Bonjour,

http://cjoint.com/?ktqNL7q2qk

Function CompteSansDoublons(champ, champcritere, critere)
Set MonDico = CreateObject("Scripting.Dictionary")
For i = 1 To champ.Count
If UCase(champcritere(i).Value) = UCase(critere) Then
If Not MonDico.Exists(champ(i).Value) Then _
MonDico.Add champ(i).Value, champ(i).Value
End If
Next i
CompteSansDoublons = MonDico.Count
End Function

JB
http://boisgontierjacques.free.fr


On 19 oct, 15:47, A COSTA
Re-Bonjour,
Et si possible, combien de groupes après le filtre.
Filtre 1 - 4 groupes
Filtre 2 - 3 groupes
Filtre 3 - 1 groupe

Merci encore une fois.
A. Costa




Bonjour,
Je vous demande votre aide pour le suivant:

Col A Col B
A 1
B 1
C 1
A 2
B 1
C 2
D 1
A 2
B 3
C 1
D 1
A 2
B 1
C 2
D 2
B 3

Je filtre la colonne B. Quelle formule utiliser pour avoir le résultat
suivant:
Filtre par 1 - 1 fois groupe A, une fois groupe B, une fois groupe C e t une
fois groupe D;
Filtre par 2 - 1 fois groupe A, une fois groupe C et une fois groupe D;
Filtre par 3 - 1 fois groupe B
Le résultat peut se presenter en 3 cellules diférentes.
Je vous remercie d'avance
A. Costa- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



A COSTA
Le #4983371
Un grand merci et bon we
A. Costa


Bonjour,

http://cjoint.com/?ktqNL7q2qk

Function CompteSansDoublons(champ, champcritere, critere)
Set MonDico = CreateObject("Scripting.Dictionary")
For i = 1 To champ.Count
If UCase(champcritere(i).Value) = UCase(critere) Then
If Not MonDico.Exists(champ(i).Value) Then _
MonDico.Add champ(i).Value, champ(i).Value
End If
Next i
CompteSansDoublons = MonDico.Count
End Function

JB
http://boisgontierjacques.free.fr


On 19 oct, 15:47, A COSTA
Re-Bonjour,
Et si possible, combien de groupes après le filtre.
Filtre 1 - 4 groupes
Filtre 2 - 3 groupes
Filtre 3 - 1 groupe

Merci encore une fois.
A. Costa




Bonjour,
Je vous demande votre aide pour le suivant:

Col A Col B
A 1
B 1
C 1
A 2
B 1
C 2
D 1
A 2
B 3
C 1
D 1
A 2
B 1
C 2
D 2
B 3

Je filtre la colonne B. Quelle formule utiliser pour avoir le résultat
suivant:
Filtre par 1 - 1 fois groupe A, une fois groupe B, une fois groupe C et une
fois groupe D;
Filtre par 2 - 1 fois groupe A, une fois groupe C et une fois groupe D;
Filtre par 3 - 1 fois groupe B
Le résultat peut se presenter en 3 cellules diférentes.
Je vous remercie d'avance
A. Costa- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -








Publicité
Poster une réponse
Anonyme