Récupérer les intitulés d'une colonne automatiquement
Résolu
ludo333
-
ludo333 -
ludo333 -
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
- Colonne word - Guide
- Formule somme excel colonne - 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