Macro copier coller à la 1ere ligne disponible

Staple1600

XLDnaute Barbatruc

• 18 Mars 2008

• #2

Re : Macro copier coller à la 1ere ligne disponible

Bonjour

feuille 2: colle à la première ligne disponible

Cliquez pour agrandir...

Dans quelle colonne?


exemple pour coller dans la colonne A de la feuille 2
Sheets(1).Range("A1:B9").Copy Sheets(2).Range("A" & Sheets(2).[A65536].End(xlUp).Row+1)

 

Dernière édition: 18 Mars 2008

Vote positif 0 Vote négatif

corate92

XLDnaute Junior

• 18 Mars 2008

• #3

Re : Macro copier coller à la 1ere ligne disponible

Bonjour Staple,

dans la colonne A de la feuille 2

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Mars 2008

• #4

Re : Macro copier coller à la 1ere ligne disponible

Re


C'est ce que faisait la macro exemple de mon précédent message

En voici une autre plus lisible

Code:

Sub testII()
Dim Source As Range
Dim Destination As Range
'Définition de la plage à copier
Set Source = Sheets(1).Range("A1:B9")
'Détermination de la 1ère cellue vide de la colonne A de la feuille 2
Set Destination = Sheets(2).Range("A" & Sheets(2).[A65536].End(xlUp).Row + 1)
'Recopie de de la Source vers sa Destination
Source.Copy Destination
End Sub

 

Vote positif 0 Vote négatif

corate92

XLDnaute Junior

• 18 Mars 2008

• #5

Re : Macro copier coller à la 1ere ligne disponible

Décidemment aujourd'hui je ne suis vraiment réveillée!

désolée de t'avoir déranger Staple!

Merci sincèrement pour ton aide

 

Vote positif 0 Vote négatif