Récupérer les intitulés d'une colonne automatiquement [Résolu]

-
Bonjour,

Alors pour faire simple j'ai une colonne d'un tableau avec des intitulés (des noms de personnes pour être précis) qui apparaissent plusieurs fois. Exemple :

Personne 1
Personne 2
Personne 4
Personne 1
Personne 6
Personne 1
etc.

Je voudrais extraire automatiquement le nom de chaque personne pour l'insérer dans un autre onglet. De cette manière :

Personne 1
Personne 2
Personne 4
Personne 6

Donc en gros j'aurais le nom de chaque personne mais qui apparaîtrait 1 seule fois.
Bien sûr je pourrais le faire manuellement ou avec un TCD, mais j'aimerais trouver un moyen de le faire automatiquement (trouver une formule ou une méthode qui le fasse automatiquement, sans devoir le faire à la main).

Merci pour votre réponse !
Afficher la suite 

5 réponses

Messages postés
1125
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
17 octobre 2019
138
0
Merci
Bonjour

Essaie cette macro à placer dans un module de ta feuille en l'adaptant a ta feuille
Sub suppdoublons()
'
' suppdoublons Macro
'
' Touche de raccourci du clavier: Ctrl+c
'
ActiveSheet.Range("$A$3:$A$9").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

Cordialement
D'accord merci. J'ai essayé ça a l'air de marcher. Par contre c'est la même colonne qui est modifiée, or j'aimerais mettre la nouvelle liste dans un autre onglet. Sais-tu comment on peut faire ça ?
Commenter la réponse de JCB40
Messages postés
9164
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
17 octobre 2019
1651
0
Merci
Bonjour à tous les deux

Une solution sans macro mais avec une colonne supplémentaire
https://mon-partage.fr/f/XPQUxdab/

Cdlmnt
Merci, ta formule est bien mais elle ne fonctionne pas si on a aussi plusieurs fois la personne 2, la personne 4, etc...
ccm81
Messages postés
9164
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
17 octobre 2019
1651 -
Un $ malheureux dans la formule en B3 à supprimer
=SI(NB.SI($A$1:$A2;A3)=0;MAX($B$1:B2)+1;"")

Cdlmnt
Commenter la réponse de ccm81
Messages postés
1125
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
17 octobre 2019
138
0
Merci
Remplace la macro par celle-ci
Sub suppdoublons()
'
' suppdoublons Macro
'
' Touche de raccourci du clavier: Ctrl+c
'
ActiveSheet.Range("$A$3:$A$50").RemoveDuplicates Columns:=1, Header:=xlNo
Range("A3:A50").Select
Selection.Copy
Sheets("Feuil2").Select
Range("A3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Crdlt
Salut, j'ai juste un problème avec ce code, c'est qu'il enlève la colonne originale (au moins une partie). Comment je peux résoudre le problème ?
Commenter la réponse de JCB40
Messages postés
1125
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
17 octobre 2019
138
0
Merci
Bonjour ludo

Nouvelle macro
Sub Macro1()
'
' Macro1 Macro
'
' Touche de raccourci du clavier: Ctrl+c
'
Range("A1:A100").Select
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Range("$A$1:$A$100").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

Cordialement
Merci beaucoup, ça marche nickel ! Merci

je ne sais pas qui t'a mis un -1, moi-même je n'ai pas compris :/
Désolé de te déranger encore, mais j'aimerais pouvoir faire la même manip, mais en intégrant 2 colonnes (situées à des endroits différents du classeur) originales pour supprimer les doublons de chaque et ne faire qu'une colonne finale. Je m'explique avec un exemple :
Dans la colonne A j'ai
Personne 1
Personne 2
Personne 1
Personne 4
...

Dans la colonne B j'ai
Personne 3
Personne 4
Personne 1
Personne 1
...


Je veux obtenir, dans un autre onglet, la colonne suivante :
Personne 1
Personne 2
Personne 3
Personne 4

Une formule peut faire ça ?
Commenter la réponse de JCB40
Messages postés
1125
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
17 octobre 2019
138
0
Merci
Je remercie celui qui m'a mis un -1 post 5 ,j'aimerais avoir une explication...
Commenter la réponse de JCB40