Erreur Selection.autofill

Résolu
Ludo2110 Messages postés 6 Statut Membre -  
Patrice33740 Messages postés 8930 Statut Membre -
Bonjour,

Voici le problème que je rencontre dans mon code:

-Une variable renvoie le numéro de la dernière ligne non vide de la colonne B: f
-je sélectionne la dernière cellule non vide de la colonne C
-je veux étirer sa formule sur la cellule (C;f+1) mais j'ai l'erreur: La méthode Autofill de la classe Range a échoué.

Voici mon code:
Dim f As Integer

f = Range("B65536").End(xlUp).Row
Cells(f, 3).Select
Selection.AutoFill Destination:=Range("C" & (f + 1))


Merci pour vote aide!

Cordialement.

Ludovic.

3 réponses

Patrice33740 Messages postés 8930 Statut Membre 1 780
 
Apprends à te passer des « Select » :
Sub test() 
Dim f As Integer
Dim cel As Range
f = Range("B65536").End(xlUp).Row
Set cel = Cells(f, 3)
cel.AutoFill Destination:=cel.Resize(2)
End Sub
--
Cordialement
Patrice
2
f894009 Messages postés 17413 Statut Membre 1 715
 
Bonjour,

Sub test()
Dim f As Integer

f = Range("B65536").End(xlUp).Row
Cells(f, 3).Select
Selection.AutoFill Destination:=Range("C" & f & ":C" & f + 1)

End Sub
0
Ludo2110 Messages postés 6 Statut Membre
 
Bonjour,

Désolé je n'avais pas vu vos réponses. Merci beaucoup Patrice cela fonctione. En effet les select et selection.qqc sont un peu limités....

Bonne journée!

Cordialement.

Ludovic.
0
Patrice33740 Messages postés 8930 Statut Membre 1 780
 
De rien, au plaisir de te relire sur le Forum

Cordialement
Patrice
0