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

Résolu/Fermé
ludo333 - Modifié le 14 juin 2019 à 13:58
 ludo333 - 19 juin 2019 à 14:18
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 !

5 réponses

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024 461
14 juin 2019 à 13:58
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
0
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 ?
0
ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
14 juin 2019 à 17:27
Bonjour à tous les deux

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

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

Cdlmnt
0
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024 461
14 juin 2019 à 18:21
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
0
ça marche, merci beaucoup !
0
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 ?
0
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024 461
17 juin 2019 à 13:32
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
0
Merci beaucoup, ça marche nickel ! Merci

je ne sais pas qui t'a mis un -1, moi-même je n'ai pas compris :/
0
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 ?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 14 avril 2024 461
17 juin 2019 à 13:34
Je remercie celui qui m'a mis un -1 post 5 ,j'aimerais avoir une explication...
0