Erreur Selection.autofill

Résolu/Fermé

Ludo2110 Messages postés 6 Date d'inscription mardi 18 février 2014 Statut Membre Dernière intervention 25 février 2014 - Modifié par pijaku le 25/02/2014 à 16:13
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 25 févr. 2014 à 13:50

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.

A voir également:

La méthode autofill de la classe range a échoué
Erreur 0x80070643 - Accueil - Windows
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
Erreur 1001 outlook - Accueil - Bureautique
Erreur 3005 france tv - Forum TV & Vidéo
Erreur 5000 france tv - Forum iPhone

3 réponses

Réponse 1 / 3

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
Modifié par Patrice33740 le 21/02/2014 à 22:28

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

Réponse 2 / 3

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
Modifié par pijaku le 25/02/2014 à 16:13

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

Réponse 3 / 3

Ludo2110 Messages postés 6 Date d'inscription mardi 18 février 2014 Statut Membre Dernière intervention 25 février 2014
25 févr. 2014 à 12:09

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.

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
25 févr. 2014 à 13:50

De rien, au plaisir de te relire sur le Forum

Cordialement
Patrice

Discussions similaires

Instagram "Désolé, une erreur s'est produite"

Erreur de lecture sur iptv smarters

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Code erreur 3000