Copier une ligne et coller vers le bas

Dum's -  
Bonjour à tous,

Voici mon problème je dois créer un "logiciel" simple à utiliser pour des gens qui ne savent pas se servir d'excel.

Ainsi j'ai créer plusieurs listes déroulantes toutes affichées sur la ligne A1, la chose que je veux faire c'est copier les éléments de la ligne A1 sur une autre feuille de calcul.
Pour ça j'utilise une macro qui copie et colle la ligne.

Mon problème est : je voudrais que la macro copie la ligne A1 et la colle sur la ligne A1 de la Feuil2 puis la fois suivante ou j'utilise la même macro qu'elle colle en dessous de la dernière ligne collée (soit A2 de la feuil2).

Est ce possible ?

Merci beaucoup !!

1 réponse

  1.  via55
    Bonsoir

    Possible bien sûr mais il faut avoir un exemple de ton fichier et de sa macro
    A poster sur cjoint.com et revenir ici indiquer le lien fourni

    Cdlmnt
    Via
    0
    1. Dum's
      Sub copylake()
      '
      ' copylake Macro
      '

      '
      Rows("8:8").Select
      Selection.Copy
      Sheets("Feuil2").Select
      Range("A1").Select
      ActiveSheet.Paste
      Range("C4:C5").Select
      Range("C5").Activate
      Sheets("Feuil1").Select
      Range("A8").Select
      End Sub

      http://www.cjoint.com/c/EFytgaxexyI

      merci beaucoup !!
      0
    2. via55
      @Dum'sRE,

      Transformas la macro ainsi pour rechercher chaque fois la 1ere ligne vide en colonne C de feuille 2 
      Sub copylake()
Dim ligne As Long
Rows("8:8").Select
 Selection.Copy
 Sheets("Feuil2").Select
 If Sheets("Feuil2").Range("C1") <> "" Then
    ligne = Columns(3).Find("*", , , , xlByColumns, xlPrevious).Row + 1
Else
  ligne = 1
End If
 Range("A" & ligne).Select
 ActiveSheet.Paste
 Range("C4:C5").Select
 Range("C5").Activate
 Sheets("Feuil1").Select
 Range("A8").Select
End Sub


      Cdlmnt
      Via
      0
    3. Dum's
      @via55Milles merci !!
      0

Discussions similaires

Copier coller une image de Google sur Macbook
orianepark

1 réponse
tiret du bas
na

14 réponses