Range.autofill

aline -  
f894009 Messages postés 17277 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 !

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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   Statut Membre Dernière intervention  
 
Bonjour,

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

Merci,
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

enlevez le point
0
algauthi Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
En enlevant le point c'est la ligne suivante qui bug
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,
quand vous avez l'erreur, clic sur debugage et passez le curseur souris sur drlig pour voir son contenu
0