Bonsoir,
Je souhaite copier un tableau A1:C6, sur la premiere ligne vide d'une autre feuille.
(Le nombre de lignes du tableau pourra varié).
Comment puis-je copier un tableau de 6 lignes en A1:C6, A7:C12, A13:C18 etc...?
Le code suivant copie le tableau en se basant sur la première cellule vide:
Merci pour votre aide.
Cordialement,
BChaly
Je souhaite copier un tableau A1:C6, sur la premiere ligne vide d'une autre feuille.
(Le nombre de lignes du tableau pourra varié).
Comment puis-je copier un tableau de 6 lignes en A1:C6, A7:C12, A13:C18 etc...?
Le code suivant copie le tableau en se basant sur la première cellule vide:
Code:
Sub CopieTab()
Sheets("Sheet2").Select
For MaLigne = 1 To 65536
If IsEmpty(Cells(MaLigne, 1)) Then Exit For
Next MaLigne
Sheets("Sheet1").Select
Range("A1:C6").Select
Selection.Copy
Sheets("Sheet2").Select
Cells(MaLigne, 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Merci pour votre aide.
Cordialement,
BChaly