Copier une ligne d'une feuille à la fin d'une autre feuille

Résolu/Fermé
Signaler
Messages postés
2
Date d'inscription
lundi 10 juin 2013
Statut
Membre
Dernière intervention
10 juin 2013
-
Messages postés
2
Date d'inscription
lundi 10 juin 2013
Statut
Membre
Dernière intervention
10 juin 2013
-
Bonjour, Après des heures de recherche et de test avec l'aide de ce formidable forum, j'ai tenté de construire une macro pour copier une ligne qui est toujours la même d'une feuille sur la première ligne libre d'une autre feuille, dont le tableau à la même structure(il y a en plus 2boutons qui sont "insérer ligne" et "valider ligne" ) si je teste sur une même feuille, ça marche (exemple 1) mais si je demande de changer de feuille, ça bloque sur la sélection de la première ligne libre (Cells(65535, 1).End(xlUp)(2).Select de l'exemple 2), je vois dans ma première feuille la ligne se sélectionner, le presse papier à bien copié le contenu des cellules, la feuille de destination est affichée, et après plus rien.Merci d'avance à la personne qui pourra m'éclairer.

1-----------------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
CommandButton2.Visible = True
Sheets("feuil5").Select
Range("A3:g3").Select
Selection.Copy
Sheets("feuil5").Select
Cells(65535, 1).End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
CommandButton1.Visible = False
End Sub


Private Sub CommandButton2_Click()
CommandButton1.Visible = True
Rows("3:3").Select
Selection.insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
CommandButton2.Visible = False
End Sub
2---------------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
CommandButton2.Visible = True
Sheets("feuil5").Select
Range("A3:g3").Select
Selection.Copy
---->Sheets("feuil6").Select
Cells(65535, 1).End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
CommandButton1.Visible = False
End Sub

Private Sub CommandButton2_Click()
CommandButton1.Visible = True
Rows("3:3").Select
Selection.insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
CommandButton2.Visible = False
End Sub

2 réponses

Bonjour

Voila une macro
a tester bien sur

Sub Test()
'Feuil5 = CodeName de la feuille
Range("A3:G3").Copy
Lig = Feuil5.Cells(Rows.Count, 1).End(xlUp).Row + 1
Feuil5.Cells(Lig, 1).PasteSpecial xlPasteValues
End Sub

A+

Maurice
Messages postés
2
Date d'inscription
lundi 10 juin 2013
Statut
Membre
Dernière intervention
10 juin 2013

Merci Maurice, vachement mieux écris que la macro tortueuse que j'avais faite...
et en plus, celle là elle fonctionne.
encore MERCI, Hervé