Copier une ligne et coller vers le bas

Fermé

Dum's - 24 juin 2015 à 18:04
Dum's - 25 juin 2015 à 13:44

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 !!

A voir également:

Copier une ligne et coller vers le bas
Copier coller pdf - Guide
Comment copier une vidéo youtube - Guide
Historique copier-coller android - Guide
Symbole clavier copier coller - Guide
Aller à la ligne excel - Guide

1 réponse

Réponse 1 / 1

via55 Messages postés 14504 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 21 décembre 2024 2 738
24 juin 2015 à 18:15

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

Dum's
24 juin 2015 à 21:07

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 !!

via55 Messages postés 14504 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 21 décembre 2024 2 738 > Dum's
24 juin 2015 à 23:13

RE,

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

Dum's > via55 Messages postés 14504 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 21 décembre 2024
25 juin 2015 à 13:44

Discussions similaires