Extraire données d'une feuille vers une autre feuille
Bonjour à tous,
Voici mon problème : je souhaite extraire des données de la première feuille excel et les mettre dans la feuille 2. Je souhaite prendre seulement les colonnes A, B, C, D puis les colonnes N à T.
Mais au dela de l'extraction, je souhaite que toutes les lignes que je vais rajouter dans la première feuille se retrouve dans la page 2.
Je vous joins le fichier.
Merci à tous pour votre aide, précieuse.
Bien cordialement,
Esther
Bonjour,
à tester,
Sub Test_transfert()
'seulement les colonnes A, B, C, D puis les colonnes N à T.
Set sh1 = Sheets("Suivi")
Set sh2 = Sheets("ext")
LastRow = sh1.Cells(Rows.Count, 1).End(xlUp).Row
addr1 = Range(Cells(1, 1).Address, Cells(LastRow, 4).Address).Address
addr2 = Range(Cells(1, 14).Address, Cells(LastRow, 20).Address).Address
sh2.Range(addr1).Value = sh1.Range(addr1).Value
sh2.Range(addr2).Value = sh1.Range(addr2).Value
End SubBonjour,
Merci, je teste et vous dis si ça fonctionne
Encore merci
Bonjour,
Merci beaucoup ça fonctionne, c'est top !
Y aurait-il un moyen pour que nous prenions les 10 dernières lignes de chaque colonne sélectionnée ?
Encore merci
Bien cordialement,
Bonjour,
Y aurait-il un moyen pour que nous prenions les 10 dernières lignes de chaque colonne sélectionnée ?
oui,
Sub Test_transfert()
'seulement les colonnes A, B, C, D puis les colonnes N à T.
Set sh1 = Sheets("Suivi")
Set sh2 = Sheets("ext")
LastRow = sh1.Cells(Rows.Count, 1).End(xlUp).Row
addr1 = Range(Cells(LastRow - 9, 1).Address, Cells(LastRow, 4).Address).Address
addr2 = Range(Cells(LastRow - 9, 14).Address, Cells(LastRow, 20).Address).Address
sh2.Range(addr1).Value = sh1.Range(addr1).Value
sh2.Range(addr2).Value = sh1.Range(addr2).Value
End Sub