Erreur Selection.autofill
Résolu
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:
Merci pour vote aide!
Cordialement.
Ludovic.
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
-
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 -
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 -
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.
