Doublons sur VisualBasic

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:

---

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

---

Bonjour,

Utiliser un dictionnaire pour éliminer les doublons.

Code:

---

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

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

Bonjour,

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

Code:

---

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

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

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