Transformer et copier colonnes en ligne.

[iliess]

Bonjour
J’ai une plage de 3 colonnes
SVP Comment transformer ces 3 colonnes en une seule ligne dans une autre feuille.
Merci

 

[ballmaster]

Re : Transformer et copier colonnes en ligne.

Slt,

Penses à enregistrer ton fichier en xls stp.

Merci

 

[JNP]

Re : Transformer et copier colonnes en ligne.

Bonsoir le fil 🙂,
Pour la première question

Sub test()
Dim Cellule As Range, I As Integer, Derligne As Integer
I = 3
With Sheets("table")
Derligne = .Range("A" & .Cells.Rows.Count).End(xlUp).Row + 1
.Cells(Derligne, 1) = Sheets("saisie").Range("D1")
.Cells(Derligne, 2) = Sheets("saisie").Range("D2")
For Each Cellule In Union(Sheets("saisie").Range("B5:B8"), Sheets("saisie").Range("B10:B15"), Sheets("saisie").Range("B17"))
.Cells(Derligne, I) = Cellule
I = I + 1
Next
For Each Cellule In Union(Sheets("saisie").Range("C5:C8"), Sheets("saisie").Range("C10:C15"), Sheets("saisie").Range("C17"))
.Cells(Derligne, I) = Cellule
I = I + 1
Next
End With
End Sub

pour la 2ème

Sub test2()
Sheets("saisie").Range("F11:G20").Copy
Sheets("GL").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Sheets("GL").Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

Bonne soirée 😎