Récupérer les intitulés d'une colonne automatiquement
Résolu
ludo333
-
ludo333 -
ludo333 -
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 !
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 !
A voir également:
- Récupérer les intitulés d'une colonne automatiquement
- Déplacer une colonne excel - Guide
- Comment récupérer les messages supprimés sur whatsapp - Guide
- Trier une colonne excel - Guide
- Comment recuperer une video sur youtube - Guide
- Colonne word - Guide
5 réponses
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
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
ludo333
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 ?
Bonjour à tous les deux
Une solution sans macro mais avec une colonne supplémentaire
https://mon-partage.fr/f/XPQUxdab/
Cdlmnt
Une solution sans macro mais avec une colonne supplémentaire
https://mon-partage.fr/f/XPQUxdab/
Cdlmnt
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
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
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
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
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 ?
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 ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question