Range.autofill

Fermé
aline - Modifié le 27 févr. 2018 à 17:02
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 - 28 févr. 2018 à 09:15
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 !

1 réponse

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
27 févr. 2018 à 17:44
Bonjour,

Chez moi, l'erreur de compil est sur cette ligne
drLig = .Range("F" & Rows.Count).End(xlUp).Row
a cause du point devant range, ce qui est normal comme erreur vu le code a dispo
0
algauthi Messages postés 6 Date d'inscription mardi 27 février 2018 Statut Membre Dernière intervention 27 mars 2018
28 févr. 2018 à 08:58
Bonjour,

Qu'entends-tu par normal ?
Et comment suis-je censée remplacer ce .range ?

Merci,
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
28 févr. 2018 à 08:59
Bonjour,

enlevez le point
0
algauthi Messages postés 6 Date d'inscription mardi 27 février 2018 Statut Membre Dernière intervention 27 mars 2018
28 févr. 2018 à 09:10
En enlevant le point c'est la ligne suivante qui bug
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
Modifié le 28 févr. 2018 à 09:16
Re,
quand vous avez l'erreur, clic sur debugage et passez le curseur souris sur drlig pour voir son contenu
0