XL 2013 Coller la sélection vers une autre feuille au niveau de la dernière ligne vide !!!!

hamzaelouazzani

XLDnaute Nouveau
Bonjour,

Je souhaite coller une sélection (macro : coller_11) vers une feuille (synthèse) au niveau de la dernière ligne vide pour éviter de sélectionner cette ligne et coller avec un ctrl+v.
Voici le code que j'ai ;

Sub coller_11()
'
' coller_11 Macro
'

'
Range("V8").Select
Sheets("MAT").Select
Range("I4:U4").Select
Selection.Copy
Range("R18").Select
ActiveWindow.LargeScroll ToRight:=-1
Range("D6").Select
Sheets("synthèse").Select
Range("A12").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A13").Select
Application.CutCopyMode = False
End Sub


Merci d'avance.
 

Paf

XLDnaute Barbatruc
Bonjour,
connaissant la dernière ligne contenant des données, y ajouter 1 donne la première ligne vide.

pour connaitre la dernière ligne d'une colonne (ici colonne A):
VB:
Range("A" & Rows.Count).End(xlUp).Row

le code complet pourrait devenir :

Code:
Worksheets("MAT").Range("I4:U4").Copy
With Worksheets("synthèse")
dlig = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & dlig).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End With

A+

EDIT : Oups! erreur de lecture de la demande. ce code copie sur la première ligne vide et non sur la dernière
 

Discussions similaires

Réponses
2
Affichages
654

Statistiques des forums

Discussions
311 715
Messages
2 081 822
Membres
101 822
dernier inscrit
holale