bonjour , il me vient encor une question relative à ce meme sujet
si sur ma page 1 , je dois oprer une selection de cellules éparpillées
est il valable d'ecrire
Sub transposer()
Application.ScreenUpdating = False
On Error Resume Next ' Au cas ou pas de constantes
with sheets("page1"). Range("A1,C2,D12,K8,J11,H9").SpecialCells(xlCellTypeConstants, 23).Copy
end with
With Sheets("page2")
.Range("D" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial _
Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
.Range("E" & Rows.Count).End(xlUp).Font.ColorIndex = 3 ' ligne à mettre pour la macro avalant
End With
Range("F10").Font.ColorIndex = 3
Application.CutCopyMode = False
End Sub
merci pour toute correction