Comptage et affichage sans doublon

[degap05]

Bonjour,
La macro contenue dans le fichier (du forum), joint, fonctionne très bien.
Je voudrais simplement récupérer le nom en colonne B, pour affichage en colonne F.
J'ai essayé pas mal de possibilité (Sheets("Feuil1").Range("F" & i + 2).Value = col.Item(i) +1

Mais comme cela ne fonctionne pas, je fais appel à votre aide.

Merci d'avance.

 

[sousou]

Re : Comptage et affichage sans doublon

re

Sheets("Feuil1").Range("F" & i + 2).Value = col.Item(i).Offset(0, 1)

 

[degap05]

Re : Comptage et affichage sans doublon

Bonjour, Sousou,

Parfait.

Merci beaucoup.

 

[Habitude]

Re : Comptage et affichage sans doublon

Bonjour

col.Item retourne l'adresse d'une cellule
Les déplacements Offset sont autorisé.

A tester
Remplace

= col.Item(i) +1

par

= col.Item(i).Offset(,1)

 

[R@chid]

Re : Comptage et affichage sans doublon

Salut,
une solution par formule si tu veux bien.
Voir PJ
Amicalement

 

[degap05]

Re : Comptage et affichage sans doublon

Merci à tous de vos réponses.