Excel VBA “remplissage automatique de la Méthode de la Classe Range a Échoué”

Suivants du code VBA (Excel 2007) échoue avec l'Erreur 1004, "remplissage automatique de la Méthode de la Classe Range a Échoué.". Quelqu'un peut-il me dire comment résoudre ce problème?

Dim src As Range, out As Range, wks As Worksheet

Set wks = Me
Set out = wks.Range("B:U")
Set src = wks.Range("A6")
src.AutoFill Destination:=out

(note: j'ai Googlé, etc. pour cela. Il arrive assez souvent, mais toutes les réponses que j'ai vu avait à voir avec la malformation de gamme, qui aborde autant que je sache, n'est pas mon problème.

À quelqu'un de la suggestion, j'ai essayé de remplacer le remplissage automatique de la ligne avec les éléments suivants:

src.Copy out

Cela a eu pour effet de jeter mon Excel session dans une apparente boucle infinie consommation à 100% de l'UC et puis, juste suspendu pour toujours.

OK, apparemment, la source doit être une partie de la plage de destination pour le remplissage automatique. Donc, mon code ressemble maintenant à ceci:

Dim src As Range, out As Range, wks As Worksheet

Set wks = Me
Set out = wks.Range("B1")
Set src = wks.Range("A6")
src.Copy out

Set out = wks.Range("B:U")
Set src = wks.Range("B1")
src.AutoFill Destination:=out, Type:=xlFillCopy

Même erreur sur la dernière ligne.

OriginalL'auteur RBarryYoung | 2009-10-07

  1. 19

    De MSDN:

    La destination doit inclure l'
    source de gamme.

    B:U ne contient pas de A6 et donc il y a une erreur. Je crois que vous voulez probablement out être mis à A6:U6.

    Spécifiant simplement le nom de la colonne signifie que vous voulez remplir chaque ligne de cette colonne qui est peu probable à l'souhaité behvaiour

    Mise à jour

    Plus à l'OP de commentaire ci-dessous et mise à jour de l'original de la réplique, ce qui pourrait faire l'affaire:

    Dim src As Range, out As Range, wks As Worksheet

Set wks = Me
Set out = wks.Range("B1")
Set src = wks.Range("A6")
src.Copy out

Set out = wks.Range("B1:U1")
Set src = wks.Range("B1")
src.AutoFill Destination:=out, Type:=xlFillCopy

Set out = wks.Range("B:U")
Set src = wks.Range("B1:U1")
src.AutoFill Destination:=out, Type:=xlFillCopy

    AutoFill est limitée à une seule direction (c'est à dire à l'horizontale ou à la verticale) à la fois. Pour remplir un deux dimensions à partir d'une seule cellule, vous devez d'abord remplir automatiquement une ligne le long d'un bord de la zone puis étirez-vous que la ligne de l'ensemble de la zone

    Pour le cas spécifique de la copie la mise en forme et d'effacer le contenu (en vertu de la cellule source étant vide), c'est mieux:

    Dim src As Range, out As Range, wks As Worksheet

Set wks = Sheet1
Set out = wks.Range("B:U")
Set src = wks.Range("A6")
src.Copy out
    En fait, j'ai suis de la réinitialisation de la mise en forme(de quoi A6) et effacer le contenu de toutes les lignes dans la colonne de la gamme. Cela fonctionne très bien quand je le fais manuellement.

    OriginalL'auteur barrowc

  2. 2

    De faire AutoFill travail, vous devez vous rendre à la plage de AutoFill plus de la source de gamme. Si le remplissage automatique de la gamme est la même que celle de la Source de gamme alors il n'y a rien à la saisie automatique dans cette gamme et, par conséquent, vous obtiendrez une erreur

    1004: remplissage automatique de la méthode de la classe Range a échoué.

    Donc, assurez-remplissage automatique de la gamme de plus de la plage source d'erreur et aura disparu.

    Merci, mais ce n'était pas le problème dans ce cas. Vous pourrez le constater avec mon code que la source était une cellule, alors que la fourchette a été plusieurs colonnes.

    OriginalL'auteur MIHIR PATEL

  3. 1

    Si vous voulez remplissage automatique vous venez de faire quelque chose comme...

    Private Sub Autofill()

'Select the cell which has the value you want to autofill
Range("Q2").Select

'Do an autofill down to the amount of values returned by the update
Selection.AutoFill Destination:=Range("Q2:Q10")

End Sub

    Ce serait remplissage automatique vers le bas à la plage spécifiée.

    Ne sat aider?

    Comment est-ce différent de ce que je suis en train de faire?

    OriginalL'auteur Dom

  4. 0

    Ne sais pas si cela aide quelqu'un, mais j'avais besoin de quelque chose de similaire. En sélectionnant les cellules de destination œuvres;

    dim rowcount as integer
Sheets("IssueTemplate").Select ' Whatever your sheet is
rowcount = 0
rowcount = Application.CountA(Range("A:A"))'get end range
Cells(4, 3).Select 'select the start cell
'autofill to rowcount
Selection.AutoFill Destination:=Range("C4:C" & rowcount), Type:=xlFillDefault

    dans mon exemple, j'ai eu de générer automatiquement une liste de noms de dossier de OA100 à OA###?, et cela a bien fonctionné.

    OriginalL'auteur Richard Hilder