Copier la valeur des données sur autre feuille en VBA

Bonjour à Tous,

Je veux copier les valeurs par macro VBA, de A1 à A5 de l'onglet RKIT,

sur la feuille Compilation à la suite des autres données déjà copiées.

Mais si possible, une ligne blanche entre chaque copie. (Voir ex sur l'onglet Compilation).

Je dois copier ces valeurs à chaque semaine.

Je joins mon fichier.

Merci

Jean

Salut Jean,

à tester,

Sub test()
Set sh1 = Sheets("RKIT")
Set sh2 = Sheets("Compilation")
LastRow = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 2
sh1.Range("A1:B5").Copy sh2.Range("A" & LastRow)
End Sub

bonjour

salut sabV

et si on travaillait avec une simple table de données (en colonnes toutes simples) ?

aucun report

pas de VBA

possibilité de tris et de filtres automatiques

TCD faciles

c'est moins joli, mais est-ce important ?

si oui, alors le mieux est Access ou autre SGBD.

mais ce n'est que mon avis

bon travail à tous

amitiés excelliennes

Bonjour sabV,

C'est ce que j'ai besoin. Est-ce possible de coller seulement les valeurs, car j'ai des formules

de B2 à B5.

Merci de ton AIDE.

Jean.

Bonjour Jean,

Voici la modification pour transférer les valeurs,

Sub test()
Set sh1 = Sheets("RKIT")
Set sh2 = Sheets("Compilation")
LastRow = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 2
sh2.Range("A" & LastRow & ":B" & LastRow + 4).Value = sh1.Range("A1:B5").Value
End Sub

Bonjour sabV,

Un Gros MERCI, ça fonctionne très bien.

Jean.