Bug lié à autofil

[jipeh]

Bonjour,

J'ai un petit soucis avec la requette suivante :

Dim i As Integer

i = Range("B5").End(xlDown).Row
Range("N6").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[11],'Processus !R3C1:R2000C28,9,FALSE)"
Range("N6").Select
Selection.AutoFill Destination:=Range("N6:n" & i)
Range("N6:n" & i).Select


Je met en forme les données de la colonne N à partir de la ligne 6. J'ai le soucis lorsque je n'ai qu'une seule ligne à traiter. Le recopiage fonctionne bien dès que j'ai une ligne 7 et donc une deuxieme ligne à traiter.

Deja suis-je clair ?

Comment m'en sortir ?

Merci d'avance pour vos réponses.

 

[mutzik]

Re : Bug lié à autofil

bonjour,

i = Range("B5").End(xlDown).Row
replace par
i = Range("B" & rows.count).end(xlup).row

 

[jipeh]

Re : Bug lié à autofil

Bonjour,

Merci pour la réponse rapide.

Malgrès cela, j'ai toujours le même soucis. La méthode Autofil classe range a échoué.

La valeur de i est à 6 lors du bug. De plus la ligne 6 ne se met pas en forme correctement.

 

[jipeh]

Re : Bug lié à autofil

Euh, veuillez m'excuser pour le dérangement mais si j'encadre le Selection.AutoFill Destination:=Range("N6:n" & i)
par If i>6 then
et end if
ca fonctionne.... c'est surement pas optimisé mais je pense que ça me suffit. En tout cas merci et encore désolé pour cette question trop rapide !