Bonjour,

je cherche à additionner le nombre d'agent qui est répertorié dans un tableau.
LE hic c'est que certains agents sont en double car double affectation dans les services.
Je ne veux pas les supprimer mais je voudrais qu'il ne me les comptes pas deux fois.

j'ai réalisé un comptage mais il prend en compte mes doublons, comment faire sans me les supprimer

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
'Compter le nombre d'agents'
Dim MATRICULE As Long
Dim Ligne As Long
 
Ligne = 2 ' Initialise Ligne à 2
 
While Cells(Ligne, 2) <> "" ' Boucle Tant que cellule(y,x) n'est pas vide.
    MATRICULE = MATRICULE + 1     ' Incrémente le nombre de matricule.
    Ligne = Ligne + 1       ' Passe à la ligne suivante.
Wend
 
MsgBox "Nous avons " & MATRICULE & " agents ! " ' Affiche le contenu de la variable MATRICULE