Vincenzozo
XLDnaute Junior
Bonjour à tous,
Voilà, j'aimerai "optimiser" mon autofill... C'est à dire que je souhaiterai après le remplissage automatique, copier/coller les valeurs uniquement (pour trier)...
J'ai ceci comme code :
Vous sauriez me dépatouiller ce truc svp?? Merci
Voilà, j'aimerai "optimiser" mon autofill... C'est à dire que je souhaiterai après le remplissage automatique, copier/coller les valeurs uniquement (pour trier)...
J'ai ceci comme code :
VB:
dern_ligne_tableau1 = Sheets("Avancement_tri").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Avancement_tri").Range("F9:P9").Select
Sheets("Avancement_tri").Range(Selection, Selection.End(xlDown)).Delete Shift:=xlUp
Sheets("Avancement_tri").Range("F8:P8").AutoFill Destination:=Range("F8:P" & dern_ligne_tableau1)
'Jusque là, tout va bien...
'C'est le bloc en dessous qui merdouille
Sheets("Avancement_tri").Range("A8:P" & dern_lign_tableau1).select
Selection.copy
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").SelectVous sauriez me dépatouiller ce truc svp?? Merci