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 :

copie et insertion


Sujet :

Macros et VBA Excel

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Femme Profil pro
    ingenieur systemes embarqués
    Inscrit en
    Novembre 2011
    Messages
    20
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France

    Informations professionnelles :
    Activité : ingenieur systemes embarqués
    Secteur : Industrie

    Informations forums :
    Inscription : Novembre 2011
    Messages : 20
    Par défaut copie et insertion
    Je programme occasionnellement en vba
    Mon problème aujourd'hui et de faire des copies automatiques, je m'explique :
    j'ai plusieurs feuilles qui on la même structure ( D1,D2,D3,D4)
    Dans chaque feuille je serai intéressé par la colonne B à partir de la ligne 14
    Il faut que je copie toutes les cellules non vides à partir de la ligne 14 de la colonne B dans une autre feuille (colonne 1, à partir de la ligne 4)
    J’arrive à faire ca pour une feuille avec le code suivant
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
     
    Sub Macro1()
     
    Dim Lig     As Long
      Dim Col     As String
      Dim NbrLig  As Long
      Dim NumLig  As Long
     
      Sheets("Feuil2").Activate ' feuille de destination
     
      Col = "B"                 ' colonne de la donnée non vide à tester
      NumLig = 2
      With Sheets("D1")     ' feuille source
      NbrLig = .Cells(65536, Col).End(xlUp).Row
      For Lig = 14 To NbrLig
        If .Cells(Lig, Col).Value <> "" Then
          .Cells(Lig, Col).Copy
          NumLig = NumLig + 1
          Cells(NumLig, 1).Select
          ActiveSheet.Paste
        End If
      Next
      End With
     
    End Sub
    Mon problème c'est que je veux développer chaque ligne donc pour chaque cellule copiée je veux insérer des lignes de critères (plusieurs lignes dans la colonne à coté)
    Ces critères sont les même pour chaque donc je veux copier une cellule puis mètre les lignes "critère" puis copier la cellule d’après ou copier tout puis insérer les lignes de critères
    Voir image
    Images attachées Images attachées  

Discussions similaires

  1. [XL-2007] Copie, recherche, insertion, données dans tableau
    Par stephst84 dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 21/05/2010, 16h52
  2. algorithmes de la STL différences entre copy et insert?
    Par Benoit_T dans le forum SL & STL
    Réponses: 3
    Dernier message: 26/03/2009, 10h31
  3. copie et insertion d'une ligne sur un formulaire
    Par DELANDES dans le forum IHM
    Réponses: 1
    Dernier message: 24/03/2009, 23h29
  4. Réponses: 1
    Dernier message: 23/01/2007, 15h57
  5. pb d'insertion de données depuis un fichier externe-COPY
    Par boulou32 dans le forum PostgreSQL
    Réponses: 4
    Dernier message: 29/01/2005, 18h50

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