copie colle feuille excel ligne et colonne

[midox1406]

Bonjour j vais faire une copie colle des valeurs de la feuille copie et les collé dans en colonnes dans la feuille colle sans changer de la couleur en VBA si possible SVP pouvez vous m'aider?

 

[Robert]

Bonjour Midox, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim COP As Worksheet 'déclare la variable COP (onglet COPie)
Dim COL As Worksheet 'déclare la variable COL (onglet COLle)
Dim L1 As Variant 'déclare la variable L1 (Ligne 1)
Dim L2 As Variant 'déclare la variable L2 (Ligne 2)

Set COL = Worksheets("COLLE") 'définit l'onglet COL
Set COP = Worksheets("COPIE") 'définit l'onglet COL
L1 = Application.Transpose(COP.Range("A1:G1")) 'définit la ligne L1
L2 = Application.Transpose(COP.Range("A3:G3")) 'définit la ligne L2
COL.Range("A1").Resize(UBound(L1), 1).Value = L1 'renvoie dans A1 redimensionnée de l'onglet COL la ligne L1
COL.Range("C1").Resize(UBound(L2), 1).Value = L2 'renvoie dans C1 redimensionnée de l'onglet COL la ligne L2
End Sub