Compteur en VBA

[Famu]

Re-bonjour,

Comment faire, en VBA, pour comptabiliser le nombre de codes différents dans une colonne et mettre le résultat dans une cellule ?
Exemple:

2620178M
2620178M
2620200M
2620201M
2620201M
2620201M
2620202M
2620202M
2620202M

Total = 4

Encore merci pour votre aide,
Famu.

 

[Hervé]

re famu, le forum

Tu peux essayer ce type de code, qui via une collection va te donner le nombre d'éléments différents dans la colonne A :

Public Sub toto()
Dim c As Range
Dim data As Collection

Set data = New Collection

On Error Resume Next
For Each c In Range('a1:a' & Range('a65536').End(xlUp).Row)
    data.Add CStr(c), CStr(c)
Next c
On Error GoTo 0

MsgBox 'Vous avez ' & data.Count & ' références différentes.'

End Sub

salut

 

[JPM]

Bonjour le forum,

excusez-moi de me méler de la conversation, mais je voudrais dire un grand merci à Hervé car c'et exactement ce que je cherche !

Jean-Pierre

 

[Famu]

Encore une fois: merci Hervé.
Ciao,
Famu