Compter les doublons un petit soucis

[teodormircea]

Voila j'ai un petit soucis avec une macros que j'outilise pour compter le nombre d'itinerations. Ca compte correctement des valeurs comme 120QH2J
mais quand j'ai des suites que des chifres ca marche plus comme par example
1234567890 que je rencontre plusieurs foix, ca doit etre un pb de declaration de variables. Je joins le macros que j'utilise.

Sub COUNT_AD()

Dim coll As Collection
Dim lig As Long, derlig As Long
Dim cptr As Long


' ligne de début du tableau colonne A
lig = Columns(1).Find("*").Row
'ligne de fin
derlig = Range("A65536").End(xlUp).Row

'collecte les données sans doublons
Set coll = New Collection
For cptr = lig To derlig
On Error Resume Next
coll.Add Cells(cptr, 1).Value, Cells(cptr, 1).Value
On Error GoTo 0
Next

Application.ScreenUpdating = False
For cptr = 1 To coll.COUNT
'restitue chaque donnée dans colonne D
Cells(cptr + 1, 8) = coll(cptr)
'indique le nombre d'occurrences de la donnée dans colonne E
Cells(cptr + 1, 9) = Application.CountIf(Range(Cells(lig, 1), Cells(derlig, 1)), Cells(cptr + 1, 8))
Next

Set coll = Nothing
End Sub

Merci a vous

 

[Pierrot93]

Re : Compter les doublons un petit soucis

Bonjour Theo

essaye en modifiant la boucle comme ci dessous :

For cptr = lig To derlig
On Error Resume Next
    coll.Add Cells(cptr, 1).Value, CStr(Cells(cptr, 1).Value)
Next
On Error GoTo 0

bon après midi
@+

 

[teodormircea]

Re : Compter les doublons un petit soucis

Bof no ca marche pas trop.

 

[teodormircea]

Re : Compter les doublons un petit soucis

Ah ma bad ca marche bien, merci pour le conseil.J'ai avais melange un truc dans le code .C'est parfait maintenant.
Merci