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 :

inserer des lignes vide [XL-2003]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Janvier 2009
    Messages
    108
    Détails du profil
    Informations forums :
    Inscription : Janvier 2009
    Messages : 108
    Par défaut inserer des lignes vide
    Bonjour a tous
    Je voudrais a l'aide d'un code VBA faire l'action suivante exemple:
    Dans la colonne A1 des noms en B1 prénom en C1 etc...
    Donc je lance une macro ou j'insère une ligne sur deux vide et quand la dernière cellule Ax est vide arrêter la macro.
    A l'avance merci

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    DerniereLigne=Range("A65536").End(xlUp).Row
    For i = DerniereLigne to 1 Step -1
    Rows(i).Insert
    Next i
    Edit: Step -1

  3. #3
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    IL FAUT RÉPONDRE ICI.
    Puisque tu es nouveau, pas grave.

    Quoi ne te plais pas dans le code?
    tu peux t'arrêter à la 2ème ligne:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    DerniereLigne=Range("A65536").End(xlUp).Row
    For i = DerniereLigne to 2 Step -1
       Rows(i).Insert
    Next i

  4. #4
    Membre confirmé
    Inscrit en
    Janvier 2009
    Messages
    108
    Détails du profil
    Informations forums :
    Inscription : Janvier 2009
    Messages : 108
    Par défaut suite inserer ligne
    Excuse moi oui je suis tout neuf et là j'espère que je suis au bonne endroit pour répondre:
    bon pour faire simple je te joint un exemple:
    Feuille 1 mes données
    Feuille 2 après la macro
    Merci

  5. #5
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    regarde

  6. #6
    Membre confirmé
    Inscrit en
    Janvier 2009
    Messages
    108
    Détails du profil
    Informations forums :
    Inscription : Janvier 2009
    Messages : 108
    Par défaut Super merci
    Alors là chapeau
    Voila ce que je cherchais
    Je te remercie rapide et efficace
    Je te souhaite un bon Week End

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Batch] inserer des ligne dans un prog par batch
    Par mirlidas dans le forum Scripts/Batch
    Réponses: 3
    Dernier message: 28/04/2007, 11h42
  2. Traitement des lignes [suppression des lignes vides]
    Par turbo_chess dans le forum Linux
    Réponses: 4
    Dernier message: 22/03/2007, 09h16
  3. Richtextbox qui ajoute des lignes vides
    Par Seto dans le forum VB 6 et antérieur
    Réponses: 7
    Dernier message: 19/09/2006, 14h10
  4. Impossible d'insérer des champs vides
    Par shkyo dans le forum Requêtes
    Réponses: 5
    Dernier message: 21/08/2006, 16h29
  5. [VBA-E] Inserer une ligne vide dans Excel
    Par monsurf dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 12/07/2006, 16h48

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