Sub Macro_Urgente()
With Application
.ScreenUpdating = False
Range("A:C").Clear
Range("A1:B" & .RandBetween(16, 1600)) = Array(Chr(65) & Chr(66), Chr(66) & Chr(65))
Range("C1").Resize(Cells(Rows.Count, 1).End(3).Row) = "=A1&B1"
Range("A1").CurrentRegion.Borders.LineStyle = 1
.ScreenUpdating = True
End With
End Sub
Un chouia mais ma macro fonctionne, non ?Bonjour,
tu charries Staple, c'était urgent...
Sub MacGyver_Angus()
Dim lig&, f$
f = "=IF(OFFSET(R1C1,(ROWS(R[-1]C[-1]:R1C[-1])-1)*10+COLUMNS(C1:C[-1])-1,)=0,"""",OFFSET(R1C1,(ROWS(R[-1]C[-1]:R1C[-1])-1)*10+COLUMNS(C1:C[-1])-1,))"
lig = Cells(Rows.Count, 1).End(3).Row
With Range("B2:K" & lig)
.FormulaR1C1 = f: .Value = .Value
End With
Range("B:B,D:D,F:F,H:H,J:J").Delete Shift:=xlToLeft: Range("F2:F" & lig).NumberFormat = "m/d/yyyy"
Range("B1:F1") = Array("Couleurs", "Nom", "Prénom", "Age", "Date de naissance")
End Sub
Sub Test_2()
Dim Source As Range, c As Range, lig&, i&
lig = Feuil1.Cells(Rows.Count, 1).End(3).Row
Set Source = Feuil1.Range("A2:E" & lig)
i = 0
Application.ScreenUpdating = False
For Each c In Source.Rows
c.Copy
Feuil2.[A1].Offset(i, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Application.CutCopyMode = False
i = i + c.Columns.Count
Next
End Sub