Discussion :

[saosimao]

Bonjour,

J’ai un code VBA qui me permet de copier un tableau à la suite d’une ligne vide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub test_calude()
rw = Cells(Rows.Count, 1).End(xlUp).Row + 2
Range("A3:C10").Copy Range("A" & rw)
End Sub

Je souhaite pouvoir copier le tableau qui se trouve sur la feuille 1 vers la feuille 2.
Sur la feuille 2, le tableau serait à positionner après la première ligne vide.

Merci pour votre aide

[EricDgn]

Bonjour,

Une possibilité:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Option Explicit
 
Sub test_calude()
    Dim wF2 As Worksheet, kR As Long
    Set wF2 = ThisWorkbook.Worksheets("Feuil2")
    kR = wF2.Cells(Rows.Count, 1).End(xlUp).Row + 2
    Range("A3:C10").Copy wF2.Range("A" & kR)
End Sub

Cordialement.

[saosimao]

Bonjour,

Le code transmis fonctionne et répond à mon attente.

Merci pour le travail.

Cordialement

[Philippe Tulliez]

Bonjour,
En précisant la parentalité totale des objets que vous traitez, vous n'aurez jamais de problème et donc lorsque l'on copie un cellule ou une plage de cellules, on précise le classeur et la feuille de l'objet Range de la source ainsi que ceux de la cible

Pour an savoir plus sur le sujet, Excel VBA - La parentalité d’un objet