Microsoft 365 trouver le nombre de référence unique dans une colonne en fonction de critères de deux autres colonnes

CHRISTOPHEAGPM

XLDnaute Nouveau
Bonjour à tous,

Apres quelques jours à me creuser la tête je me tourne une nouvelle fois vers vous. La première depuis 2011 ou vous m'aviez énormément aidé, j'ai pas mal progressé depuis... Mais là je bloque...
Merci beaucoup à ceux d'entre vous qui voudront bien se pencher sur mon problème.

J'ai un tableau avec plusieurs colonnes. 3 doivent me servir.
  • La première (A) contient le nom et le prenom d'environ 100 personnes différente (elle évolue en fonction des entrées et des sorties)
  • La seconde (C) leur région d'affectation (il y'en a 5)
  • La troisième (F) leur fonction (5 différentes fonctions)

J'aimerai juste (lol) une fonction qui me permette en fonction de la région (C) et de la fonction (F) (que je place en référence dans une cellule du même onglet que celui ou je placerai la fonction) de connaitre le nombre de personne unique concernées dans la colonne A.

Le résultat devrait me donner le nombre de personne concernées (cad sans doublon) quand j'applique un filtre sur les colonne C et F.

Je vous joins un fichier qui vous permettra peur être de mieux comprendre.

Merci d'avance pour vos conseils et votre aide.

Christophe
 

Pièces jointes

  • PROJET XLD.xlsx
    290.1 KB · Affichages: 12

job75

XLDnaute Barbatruc
Bonsoir CHRISTOPHEAGPM,

C'est très simple avec cette macro dans le code de la 2ème feuille :
VB:
Private Sub Worksheet_Activate()
Dim d As Object, c As Range, n&
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare
For Each c In Feuil1.[A1].CurrentRegion.Columns(1).Cells
    If Not c.Rows.Hidden Then d(c.Value) = ""
Next
n = d.Count
If FilterMode Then ShowAllData 'si la feuille des résultats est filtrée
With [A1] '1ère cellule de destination
    .Resize(n) = Application.Transpose(d.keys) 'Transpose est limitée à 65536 lignes
    .Offset(n).Resize(Rows.Count - n - .Row + 1).ClearContents 'RAZ en dessous
End With
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub
Elle se déclenche automatiquement quand on active la feuille.

A+
 

Pièces jointes

  • PROJET XLD(1).xlsm
    299.7 KB · Affichages: 5

merinos

XLDnaute Accro
Bonjour @CHRISTOPHEAGPM ,

Tout en une formule.

Et réactif au filtres employés.

1674683859743.png


Au plaisir

Merinos
 

Pièces jointes

  • PROJET XLD.xlsx
    405.7 KB · Affichages: 5

CHRISTOPHEAGPM

XLDnaute Nouveau
Vous êtes incroyables,

Des solutions étonnantes et efficaces en…. 2 heures de temps…
Sans mentir ça faisait 3 jours que je me prenais la tête sans arriver à avancer sur mon projet.

Et comme une bonne nouvelle n'arrive jamais seule je suis aussi parvenu à une solution satisfaisante en adaptant des propositions déjà formulées sur le forum. Pourquoi ne suis-je pas revenu ici plus tôt ? Je retrouve avec joie l'esprit d'entraide qui m'avait déjà tant servi.

Je mets le fichier en PJ s'il peut aider quelqu'un

Job75 et Merinos un grand merci

Christophe
 

Pièces jointes

  • PROJET XLD.xlsx
    243.4 KB · Affichages: 4

Discussions similaires

Statistiques des forums

Discussions
313 279
Messages
2 096 780
Membres
106 748
dernier inscrit
Abdel93