Range.autofill
aline
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
J'ai peaufiné un bout de macro grâce aux divers sujets sur les forums, mais un bug persiste.
De plus sur les .Range un message "Erreur de compilation" s'affiche, pouvez-vous m'aider ?
Application.ScreenUpdating = False
Columns("F:F").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("F2").FormulaR1C1 = "=IF(OR(RC[-1]=""E10"",RC[-1]=""E101"",RC[-1]=""E9 : IMPLEMENTATION""))"
drLig = .Range("F" & Rows.Count).End(xlUp).Row
Range("F2").AutoFill Destination:=Range("F2:F" & drLig)
Merci à tous !
J'ai peaufiné un bout de macro grâce aux divers sujets sur les forums, mais un bug persiste.
De plus sur les .Range un message "Erreur de compilation" s'affiche, pouvez-vous m'aider ?
Application.ScreenUpdating = False
Columns("F:F").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("F2").FormulaR1C1 = "=IF(OR(RC[-1]=""E10"",RC[-1]=""E101"",RC[-1]=""E9 : IMPLEMENTATION""))"
drLig = .Range("F" & Rows.Count).End(xlUp).Row
Range("F2").AutoFill Destination:=Range("F2:F" & drLig)
Merci à tous !
