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 deux dernières lignes dont liste déroulante


Sujet :

Macros et VBA Excel

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Création d'entreprise
    Inscrit en
    Septembre 2014
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : France, Seine et Marne (Île de France)

    Informations professionnelles :
    Activité : Création d'entreprise

    Informations forums :
    Inscription : Septembre 2014
    Messages : 12
    Points : 7
    Points
    7
    Par défaut Copier Coller deux dernières lignes dont liste déroulante
    Bonjour tous,

    J'essaye de copier coller les deux dernières lignes de mon tableau tout en gardant la mise en page et la liste déroulante (A4) mais je n'y arrive pas.
    Ce que je veux copier coller au final se sont les lignes 3 et 4 pour qu'a chaque nouveau prestataire cela recrée la même chose.
    Je sais que cela a été abordé plusieurs fois mais je n'arrive pas à créer une macro simple qui fait ca et à l'adapter à mon classeur.

    J’espère que vous pourrez m'aider et comme ça je pourrai le réutiliser et l'adapter sur mes autres classeurs.

    J'ai essayer avec enregistrer macro et ca :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Sub ajout_liste_presta()
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    'faire une nouvelle ligne
    ActiveCell.EntireRow.Insert Shift:=xlDown
    'copier la ligne du dessus
    ActiveCell.Offset(-1, 0).EntireRow.Copy Cells(ActiveCell.Row, 1)
    On Error Resume Next
    'effacer le contenu de la nouvelle ligne mais garder la forme
    ActiveCell.EntireRow.ClearContents
    End Sub
    Et clairement ca ne va pas car ca ne prend qu'une ligne et en plus ca me la colle toujours à des endroits différents. J'ai essayé d'adapter mais étant débutant je bloc

  2. #2
    Futur Membre du Club
    Homme Profil pro
    Création d'entreprise
    Inscrit en
    Septembre 2014
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : France, Seine et Marne (Île de France)

    Informations professionnelles :
    Activité : Création d'entreprise

    Informations forums :
    Inscription : Septembre 2014
    Messages : 12
    Points : 7
    Points
    7
    Par défaut
    En attendant j'ai trouvé ca qui fonctionne sur ma nouvelle mise en page mais je n'arrive pas à effacer les données des lignes collés. Je veux garder la mise en page et liste déroulante mais pas la valeur.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub ajout_presta()
    x = ActiveCell.Row
    Range("A25:G26").Copy
    Range("A" & x & ":G" & x).Insert Shift:=xlDown
    Application.CutCopyMode = False
    Rows(x).RowHeight = 3
    Rows(x + 1).RowHeight = 25
    End Sub
    Auriez vous une idée??

Discussions similaires

  1. concaténation de deux champs dans une liste déroulante
    Par midotoon dans le forum Struts 1
    Réponses: 3
    Dernier message: 02/09/2008, 17h18
  2. Réponses: 7
    Dernier message: 06/06/2008, 23h16
  3. Deux choix avec une liste déroulante
    Par BRUNO71 dans le forum VBA Access
    Réponses: 7
    Dernier message: 24/05/2008, 16h34
  4. Recherche avec InputBox puis Copier - Coller de la ligne
    Par bungler dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 20/07/2007, 16h34
  5. Réponses: 5
    Dernier message: 01/06/2007, 15h20

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