Discussion :

[sandter]

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

[boisgontierjacques]

Bonjour,

Utiliser un dictionnaire pour éliminer les doublons.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub Nb()
  Set d1 = CreateObject("Scripting.Dictionary")
  Set f1 = Sheets("BD")
  Tbl = f1.[a1].CurrentRegion
  For i = 2 To UBound(Tbl)
     d1(Tbl(i, 1)) = ""
  Next i
  MsgBox d1.Count
End Sub

Boisgontier

[sandter]

Merci j'essayera lundi au bureau et vous direz si cela fonctionne.
Je ne veux pas qu'il me supprimé mes lignes mais seulement qu'il ne me l'a compte pas deux fois car sur les doublon g des Infos différentes à prendre en compte

[eriiic]

Bonjour,

sans boucle (et sans vides en B...) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim nb As Long, derlig
derlig = Cells(Rows.Count, 2).End(xlUp).Row
nb = Evaluate("SUMPRODUCT(1/COUNTIF(B2:B" & derlig & ",B2:B" & derlig & "))")

eric

[boisgontierjacques]

Bonjour,

Sans boucle, sous-entend plus rapide.

Pour 10.000 lignes:

-Version dictionnaire: 0,015 sec
-Version evaluate: 3,2 sec

Pour 20.000 lignes:

-Version dictionnaire: 0,023 sec
-Version evaluate: 10,9 sec

Boisgontier
http://boisgontierjacques.free.fr

[eriiic]

Certes, incomparable :-)
Je prenais plutôt comme base de comparaison son code aux multiples lectures de cellules.
C'est vrai qu'après ta proposition c'était sans doute inutile.
eric