Extraction de liste sans doublon

[alexandre]

Toujours le même souci....

Ouvrez le fichier-joint et aidez-moi.

Je voudrais simplement que dans la feuille nommée recap, la liste en A puisse se constituer automatiquement en récupérant tous les noms des 12 autres feuilles (qui se trouvent également en A sur chacune) et en ôtant les éventuels doublons (il y en a dans l'exemple) et les nombres.

En bref, je souhaite que n'apparaisse plus que les noms, quoi !


Merci et encore merci

 

[C@thy]

Bonjour Alexandre,

Lien supprimé Doublons

 

[C@thy]

Alexandre, voici un petit code pour toi :

Sub SupprDoublons() ' supprime les cellules en doublon dans la colonne A
Dim finA, i, j As Integer

finA = Sheets("Feuil1").Range("A65536").End(xlUp).Row
For i = 1 To finA
For j = finA To i + 1 Step -1
If Cells(i, 1) = Cells(j, 2) Then
Cells(j, 1).Delete Shift:=xlUp
End If
Next j
Next i
End Sub