Copié collé des données par macro

Question

J'ai un tableau dans la feuille 1 de excel. Je veux récupérer les données ( via un copié collé ou autre ) dans l a feuille 2 des colonnes correspondante. Je vous joins un fichier test pour aider à la compréhension. Cdlt...

ThauThème · Answer

Bonjour Clemroussi, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)
Dim TL() As Variant 'déclare la variable TL (Tableau des Lignes)

Set OS = Worksheets("Feuil1") 'définit l'onglet source OS
Set OD = Worksheets("Feuil2") 'définit l'onglet destination OD
OD.Range("C7").CurrentRegion.Offset(1, 0).ClearContents 'efface les éventuelles anciennes données de l'onglet OD
TV = OS.Range("Tableau1") 'définit le tableau des valeurs TV
ReDim TL(1 To UBound(TV, 1), 1 To 3) 'redimensionne le tableau des lignes TL (autant de ligne que TV, 3 colonnes)
For I = 1 To UBound(TV, 1) 'boucle sur toutes les lignes I de TV
    TL(I, 1) = TV(I, 2) 'recupère dans la colonne 1 de TL la donnée en colonne 2 de TV
    TL(I, 2) = TV(I, 6) 'recupère dans la colonne 2 de TL la donnée en colonne 6 de TV
    TL(I, 3) = TV(I, 8) 'recupère dans la colonne 3 de TL la donnée en colonne 8 de TV
Next I 'prochaine ligne de la boucle
OD.Range("C8").Resize(UBound(TL, 1), 3).Value = TL 'renvoie le tableau TL dans C8 redimensionnée
End Sub