IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Lister noms sans doublons sur des plages discontinues


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Futur Membre du Club
    Profil pro
    Inscrit en
    Novembre 2008
    Messages
    3
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2008
    Messages : 3
    Par défaut Lister noms sans doublons sur des plages discontinues
    Bonjour le forum,

    Je sollicite votre aide pour une macro qui recupère une liste de noms avec un code personnel et qui élimine les doublons.
    La feuille 1 contient les données sous forme de tableaux, 4 plages sont définies, elles sont discontinues et représentent 6 colonnes (2 colonnes par plages).
    La macro récupère bien la première plage mais ne continue pas sur les 3 autres.
    Si une seule plage est définie sur 2 colonnes uniquement et que je fais par ex :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    'TabPlage = .Range("noms")
    alors le résultat attendu est correcte.

    Néanmoins, je souhaiterai un mise en page sur plusieurs colonnes.

    Comme un ex est plus probant, je joins un fichier.

    Merci pour votre aide
    Fichiers attachés Fichiers attachés

  2. #2
    Expert confirmé
    Avatar de Qwazerty
    Homme Profil pro
    La très haute tension :D
    Inscrit en
    Avril 2002
    Messages
    4 122
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : France

    Informations professionnelles :
    Activité : La très haute tension :D
    Secteur : Service public

    Informations forums :
    Inscription : Avril 2002
    Messages : 4 122
    Par défaut
    Salut
    Si tu execute en mode pas a pas ou que tu breack sur la ligne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
            TabPlage = Application.Union(Range("premiereplage"), Range("deuxiemeplage"), Range("troisiemeplage"), Range("quatriemeplage")).Value
    et que tu regardes une fois cette ligne exécuté le contenu de TaPlage, tu vas te rendre compte que visiblement l'union n'est pas accepté lors de cette écriture, je veux pas dire de bêtise mais tu ne peux pas écrire ça avec une sélection discontinu.
    Pour faire ce que tu veux faire, il va falloir renseigner ta collection en 4 fois

    tabplage = premiereplage
    renseigner collection

    tabplage = 2emeplage
    ajouter es nouvelles entrées a ta colection

    tabplage = 3emeplage ..
    ....

    A++
    Qwaz

    MagicQwaz := Harry Potter la baguette en moins
    Le monde dans lequel on vit
    Ma page perso DVP
    Dernier et Seul Tutoriel : VBA & Internet Explorer
    Dernière contribution : Lien Tableau Structuré et UserForm
    L'utilisation de l’éditeur de message

Discussions similaires

  1. Tri par nom sans doublons et le compter chaque visite
    Par epiouf dans le forum MS SQL Server
    Réponses: 1
    Dernier message: 19/06/2009, 16h02
  2. [SSIS]Doublons sur des millions de ligne
    Par MeriConsult dans le forum SSIS
    Réponses: 5
    Dernier message: 19/12/2008, 08h04
  3. Select sans doublon sur un champ
    Par Carnot dans le forum Langage SQL
    Réponses: 3
    Dernier message: 01/10/2007, 22h36
  4. VBA,Graphiques :Series qui pointent sur des Range Discontinu
    Par CCHEVALIER dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 27/09/2005, 14h05
  5. Réponses: 2
    Dernier message: 19/08/2003, 18h04

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo