besoin d'aide comptage sur plusieurs colonnes

  • Initiateur de la discussion Initiateur de la discussion jrdl91
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

J

jrdl91

Guest
Bonsoir à tous,
Un petit problème tout bête que je n'arrive pas à résoudre tout seul, illustré sur l'exemple ci-joint...
J'ai une feuille contenant des fiches (en ligne), chaque fiche contenant par exemple un nom de famille et les prénoms des enfants de la famille.
Je veux simplement 😕 lister tous les prénoms utilisés, et combien de fos chacun l'est...
Le tableau croisé dynamique me paraissait une solution intéressante, mais je n'ai pas trouvé comment "fusionner" n critères (ie dans l'exemple, faire comprendre à Excel que les 3 colonnes BCD contiennent toutes des prénoms, et que je me fiche de savoir si Kevin est un 2ième ou un 3ième enfant 🙂

Merci d'avance de vos idées et aides !!!
 

Pièces jointes

Re : besoin d'aide comptage sur plusieurs colonnes

Merci !!!
Mais en pratique, c'est malheureusement un peu plus compliqué que ça : le vrai tableau qui m'intéresse change tous les mois, fait au moins 5000 lignes sur 20 colonnes, et la liste des "prénoms" change aussi régulièrement (et compte entre 200 et 300 valeurs). Ta solution, même si elle marche, est un peu trop lourde à mettre en oeuvre dans mon cas...

Mais encore merci quand même 🙂
 
Re : besoin d'aide comptage sur plusieurs colonnes

Bonsoir à tous,

D'abord nommer Plage (Insertion-Nom-Définir) la plage où se trouvent les prénoms.

Puis exécuter cette macro (lancement par un bouton par exemple) :

Code:
Sub Prenom()
Dim cel As Range, c As New Collection, i As Long

On Error Resume Next
For Each cel In [Plage]
If cel <> "" Then
c.Add cel, CStr(cel)
End If
Next

[F2:G65536].ClearContents 'à translater dans des colonnes libres
For i = 1 To c.Count
Range("F" & i + 1) = c(i)
Range("G" & i + 1) = Application.CountIf([Plage], c(i))
Next

End Sub

Les résultats sont en colonne F et G. Utiliser en fait les colonnes qui vous conviendront.

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Retour