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

Résolu
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 !

5 réponses

  1.
    JCB40 Messages postés 3060 Date d'inscription   Statut Membre Dernière intervention   479
     
    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
    1. 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 ?
      0
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     
    Bonjour à tous les deux

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

    Cdlmnt
    0
    1. ludo333
       
      Merci, ta formule est bien mais elle ne fonctionne pas si on a aussi plusieurs fois la personne 2, la personne 4, etc...
      0
    2. ccm81 Messages postés 11033 Statut Membre 2 434
       
      Un $ malheureux dans la formule en B3 à supprimer
      =SI(NB.SI($A$1:$A2;A3)=0;MAX($B$1:B2)+1;"")

      Cdlmnt
      0
  3. JCB40 Messages postés 3060 Date d'inscription   Statut Membre Dernière intervention   479
     
    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
    1. ludo333
       
      ça marche, merci beaucoup !
      0
    2. ludo333
       
      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
  4. JCB40 Messages postés 3060 Date d'inscription   Statut Membre Dernière intervention   479
     
    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
    1. ludo333
       
      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
    2. ludo333
       
      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

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

    Posez votre question
  6. JCB40 Messages postés 3060 Date d'inscription   Statut Membre Dernière intervention   479
     
    Je remercie celui qui m'a mis un -1 post 5 ,j'aimerais avoir une explication...
    0

Discussions similaires

Colis Shein au terminal de fret : délai et comment récupérer
Cherrrrrry -
bazfile -

3 réponses
Récupérer son compte Leboncoin avec son numéro de téléphone
Nono -
MPMP10 -

6 réponses