Compter le nombre d'occurence en VBA

[apt]

Bonsoir à tous,

Pour compter le nombre d'occurrences (les premier 5 chiffres à partir de la gauche) dans une liste de numéros, j'ai utilisé un code VBA déposé sur XLD par ROBERT.

Mais voila, il n y'a rien de trouvé juste des zéros !

En PJ un exemple.

Merci d'avance.

 

[apt]

Re : Compter le nombre d'occurence en VBA

Bonsoir Robert,

Apt, je souhaiterais, quand tu modifies un code et qu'il ne marche plus, tu ne me cites pas comme en étant l'auteur... J'ai bien reconnu mon code et les commentaires que je fais mais j'ai bien vu qu'en l'état il n'était plus adapté. Je ne pense pas que je l'aurais laissé comme ça...

Peut-être que je me suis mal exprimé, mais je n'avais pas l'intention de te citer comme étant l'auteur d'un code qui ne marche pas. Excuse !

Pour le code c'est bien fonctionnel.

Sauf que j'ai ajouté cette ligne :

[C1] = "Code Occu.": [D1] = "Nbr"

pour ajouter les titres des colonnes, parce qu'ils sont toujours effacer par ce code :

.Cells(2, 3).CurrentRegion.ClearContents    'efface les anciennes données

Merci encore.