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 :

[E-03] Macro pour créer une liste sans les vides


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau Candidat au Club
    Inscrit en
    Décembre 2008
    Messages
    1
    Détails du profil
    Informations personnelles :
    Âge : 42

    Informations forums :
    Inscription : Décembre 2008
    Messages : 1
    Points : 1
    Points
    1
    Par défaut [E-03] Macro pour créer une liste sans les vides
    Bonsoir,

    2 problèmes se posent à moi :

    1er : Je souhaite créer sous Excel une macro me permettant de créer une liste ne contenant pas les cellules vides, à partir d’une colonne fixe mais avec un nombre de ligne variable suivant le fichier où cette macro sera utilisée (A1:A??). La base de cette liste se situe dans un onglet différent (Preparation) de celui où elle sera utilisée (Fiche).

    2nd : Cette liste me permet de compléter un document sous Excel (via la fonction RechercheV) que je souhaite imprimer pour chaque entrée de ma liste. Existe-t-il un moyen pour que le document soit imprimé automatiquement pour chacune des entrées de cette liste ?

    Merci d’avance pour votre aide.

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Points : 15 543
    Points
    15 543
    Par défaut
    1° - Une méthode consisterait à relever les cellules vides de ta colonne et à les masquer.
    Une fois les lignes contenant une cellule vide masquées, la liste correspondra aux cellules visibles. Ce qui devrait donner en adaptant les noms de feuilles
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    sub test()
    Dim cell As Range, i As Long
        with worksheets("feuil1").columns("A:A")
            for each cell In .specialCells(xlCellTypeBlanks)
                cell.entireRow.hidden = true
            next
            .specialCells(xlCellTypeVisible).copy worksheets("Feuil2").cells(1, 1)
        end with
    end sub
    2° - Je n'ai pas tout compris mais oui, il est possible d'éditer le résultat d'une rechercheV
    Précise ta demande
    Bonne journée

Discussions similaires

  1. formule pour recopier une liste sans ligne vide
    Par ANGLIQUESOIG dans le forum Excel
    Réponses: 2
    Dernier message: 14/03/2013, 11h13
  2. Réponses: 25
    Dernier message: 26/06/2009, 14h15
  3. Réponses: 6
    Dernier message: 19/06/2009, 07h55
  4. Réponses: 3
    Dernier message: 17/08/2006, 11h30
  5. macro pour remplire une liste dans une même cellule
    Par fabiend83 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 17/07/2006, 09h32

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