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 :

Copier / Coller


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Chef de projet MOA
    Inscrit en
    Novembre 2014
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Chef de projet MOA
    Secteur : Santé

    Informations forums :
    Inscription : Novembre 2014
    Messages : 1
    Par défaut Copier / Coller
    Bonjour à tous,

    Je cherche à optimiser ma macro que j'ai découpé en 3.
    Mon objectif est de copier/coller chaque ligne d'une feuille en fonction d'une condition.

    Merci d'avance.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Sub test()
     
    Worksheets(Sheets.Count).Copy Before:=Sheets(1)
    Range("A5").Copy Range("A3")
     
    Call test2
     
    Sheets(1).Delete
     
    End Sub
    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
    Sub test2()
    Dim i As Long, j As Long
     
    Sheets.Add After:=Worksheets(Sheets.Count)
    Sheets(1).Select
    With Sheets(1).Range("A1", "AJ4")
    .Copy Destination:=Worksheets(Sheets.Count).Cells(1, 1)
    End With
    j = 5
    For i = 5 To Range("A" & Rows.Count).End(xlUp).Row
        If Cells(i, 1) = Range("A3") Then
        Range("A" & CStr(i), "AJ" & CStr(i)).Cut Destination:=Worksheets(Sheets.Count).Cells(j, 1)
        j = j + 1
        End If
    Next i
    Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Call test3
    End Sub
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Sub test3()
    Range("A5").Copy Range("A3")
    If Range("A3").Value = "" Then MsgBox ("Traitement terminé.")
    If Range("A3").Value <> "" Then Call test2
    End Sub

  2. #2
    Membre Expert
    Homme Profil pro
    Ingénieur développement matériel électronique
    Inscrit en
    Septembre 2013
    Messages
    783
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur développement matériel électronique
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : Septembre 2013
    Messages : 783
    Par défaut
    Bonsoir,

    Je ne comprends pas vraiment ce que vous demandez, mais comme il se fait tard, j'ai des excuses

  3. #3
    Expert éminent
    Avatar de Marc-L
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Avril 2013
    Messages
    9 468
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2013
    Messages : 9 468
    Par défaut



    arkon,

    conformément aux règles du forum, merci d'éditer le post et de placer le code entre balises via l'icône dédiée !

    Sinon voir du côté de ce tutoriel : Les filtres avancés ou élaborés dans Excel

Discussions similaires

  1. [VB.NET] copier coller d'une valeur
    Par mic56 dans le forum Windows Forms
    Réponses: 2
    Dernier message: 08/06/2004, 11h43
  2. [Swing]copier coller... dans le menu.
    Par parksto dans le forum Composants
    Réponses: 3
    Dernier message: 10/05/2004, 22h56
  3. Copier coller Fichier windows
    Par KPitN dans le forum Windows
    Réponses: 8
    Dernier message: 20/04/2004, 17h32
  4. Copier Coller une ligne d'une table avec modif ?
    Par nolan76 dans le forum Requêtes
    Réponses: 4
    Dernier message: 04/03/2004, 16h34
  5. [Débutant] Conserver la couleur lors d'un copier coller
    Par ADIDASman dans le forum JBuilder
    Réponses: 2
    Dernier message: 21/05/2003, 18h13

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