Extraction de liste sans doublon

  • Initiateur de la discussion alexandre
  • Date de début
A

alexandre

Guest
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
 

Pièces jointes

  • RECAP_ANNUEL_test.zip
    41.6 KB · Affichages: 24
C

C@thy

Guest
Bonjour Alexandre,

Lien supprimé Doublons

BipBip.gif
 
C

C@thy

Guest
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

BipBip.gif
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 917
Membres
101 839
dernier inscrit
laurentEstrées