Résolution :Sheets("Feuille1").Range(Cells(i, 2), Cells(i, 4) )
Sub copier_Plage()
Dim i As Long
i = 5
With Sheets("Feuil1")
.Range(.Cells(i, 2), .Cells(i, 4)).Copy Destination:=Sheets("Feuil2").Range("G11")
End With
End Sub
sauf que pour moi les colonnes s'arrêtaient à IV !!
si je déclare je ferais DIM i as integer ( entier naturel)
Pas le temps tout de suite mais voyez du côté de EntireRow.RowHeight et EntireColumn.ColumnWidthSinon ou je bloque c'est pour ajouter le format dimensions des cellules
Sub cop1()
i = 5
Sheets("Feuil1").Range("B" & i & ":D" & i).Copy Destination:=Sheets("Feuil2").Range("G11")
Sheets(2).Columns(7).ColumnWidth = Sheets(1).Columns(2).ColumnWidth
Sheets(2).Columns(9).ColumnWidth = Sheets(1).Columns(4).ColumnWidth
Sheets(2).Rows(11).RowHeight = Sheets(1).Rows(i).RowHeight
End Sub
Sub cop1()
i = 5
Dim r As Range
Set r = Application.Union(Sheets("Feuil1").Range("B" & i), Sheets("Feuil1").Range("D" & i))
'MsgBox r.Areas.Item(1).Address '/ = Sheets("Feuil1").Range("B" & i)
'MsgBox r.Areas.Item(2).Address '/ = Sheets("Feuil1").Range("B" & i)
With r.Areas.Item(1)
.Copy
Sheets("Feuil2").Range("G11").PasteSpecial Paste:=xlPasteFormats
For i = 1 To r.Areas.Count: Txt = Txt & r.Areas.Item(i).Value2 & " ": Next i
Sheets("Feuil2").Range("G11") = Trim(Txt)
Sheets("Feuil2").Range("G11").Columns.AutoFit
Sheets("Feuil2").Range("G11").RowHeight = .RowHeight
.Application.CutCopyMode = False
End With
End Sub