Par souci d'optimalisation, je me demandais si on peut am=C3=A9liorer ce bo=
ut de code.
Je pense surtout au collage des valeurs et formats en une seule ligne
With ActiveSheet
.Range("MonInsertion").Copy
.Range("A5").PasteSpecial Paste:=3DxlValues
.Range("A5").PasteSpecial Paste:=3DxlPasteFormats
Application.CutCopyMode =3D False
End With
Merci d'avance pour vos commentaires,
Tr=C3=A8s bonne journ=C3=A9e =C3=A0 tous.
Emile
Bonjour: ceci irait non... [moninsertion].Copy: [A1].PasteSpecial Paste:=xlPasteValues: Application.CutCopyMode = False P. Le 18-08-16 à 16:33, LSteph a écrit :
...alors on va dire plutôt au temps pour moi! on en aurait gagné en imaginant qu'il s'agissait non pas d'une cellule mais de plusieurs... -- LSteph Le jeudi 18 août 2016 15:38:27 UTC+2, Emile63 a écrit :
Re-Bonjour à tous, Oui LSteph, tu as raison, autant pour moi. :-) Le Nom [MonInsertion] correspond à une ligne d'une dizaine de cellules
Bonjour: ceci irait non... [moninsertion].Copy: [A1].PasteSpecial Paste:=xlPasteValues: Application.CutCopyMode = False P. Le 18-08-16 à 16:33, LSteph a écrit :
...alors on va dire plutôt au temps pour moi! on en aurait gagné en imaginant qu'il s'agissait non pas d'une cellule mais de plusieurs... -- LSteph Le jeudi 18 août 2016 15:38:27 UTC+2, Emile63 a écrit :
Re-Bonjour à tous, Oui LSteph, tu as raison, autant pour moi. :-) Le Nom [MonInsertion] correspond à une ligne d'une dizaine de cellules