Erreur d'exécution '1004' : la Méthode 'Range' de l'objet'_Global' a échoué

J'ai un problème avec excel, avec un formulaire qui génère une référence no. Mais quand j'essaie de générer le n ° de référence. il a un message d'erreur disant :

Erreur d'exécution '1004' : la Méthode 'Range' de l'objet'_Global' a échoué

Quand je clique sur le bouton Debug , il montre le code ci-dessous:

Il mettre en surbrillance l'erreur sur la 4ème ligne de code 

Sub clearTemplate()
    ' Clear Template Content
    Range(inputTemplateHeader) = NO_ENTRY
    Range(inputTemplateContent) = NO_ENTRY     - (highlighted error)
End Sub

Sub clearRefNo()
    ' Clear cell G2 reference number
    Range(cellRefNo) = NO_ENTRY

    ' Open "Report_ref_no.xls"
    If Not (IsFileOpen) Then Workbooks.Open filename:=ThisWorkbook.Path & "\" & FACCESS

    ' Activate "Report_ref_no.xls"
    Windows(FACCESS).Activate

    ' Access column D
    Range(cellFirstRefNo).Select
    Selection.End(xlDown).Select

    If refNo = Cells(ActiveCell.Row, ActiveCell.Column - 1).Value Then
        ' Log Development Code column
        Cells(ActiveCell.Row, ActiveCell.Column) = NO_ENTRY

        ' Log Issuer column
        Cells(ActiveCell.Row, ActiveCell.Column + 1).Value = NO_ENTRY

        ' Log Date column
        Cells(ActiveCell.Row, ActiveCell.Column + 2).Value = NO_ENTRY
    End If

    ' Save & Close workbook
    ActiveWindow.Close True
End Sub

Quelqu'un peut m'aider avec ce problème ? Je ne sais pas ce qui a mal tourné?

  • Quelles sont les valeurs de inputTemplateContent et NO_ENTRY lorsque vous obtenez le message d'erreur? Est-ce de travailler avec Set Range(inputTemplateContent) = NO_ENTRY?
  • Juste au cas où quelqu'un a le même problème: si vous utilisez la Gamme de la spécification de livre et de la feuille et vous vous retrouvez avec cette erreur, vérifiez le livre de nom n'ont pas d'espaces blancs (c'est peut-être évident, mais si vous avez l'héritage des Macros et vous n'avez jamais utilisé de VBA pour Excel cela peut être difficile).
InformationsquelleAutor Melissa Charn | 2012-08-29
  1. 28

    Lorsque vous l'intervalle de référence comme ça, c'est appelé un franc référence parce que vous n'avez pas spécialement dire de quelle feuille, la gamme est sur. Références non qualifiés sont gérées par le "_Global" de l'objet qui détermine l'objet, vous faites allusion, et qui dépend de l'endroit où votre code.

    Si vous êtes dans un module standard, sans réserve Plage reportez-vous à Activesheet. Si vous êtes dans une feuille de module de classe, sans réserve Plage se référer à cette fiche.

    inputTemplateContent est une variable qui contient une référence à une plage, probablement une plage nommée. Si vous regardez la RefersTo propriété de la plage nommée, il est probable que des points sur une feuille autre que le Activesheet au moment où le code s'exécute.

    Le meilleur moyen de résoudre ce problème est d'éviter les non qualifiés Gamme de références en spécifiant la feuille. Comme

    With ThisWorkbook.Worksheets("Template")
    .Range(inputTemplateHeader).Value = NO_ENTRY
    .Range(inputTemplateContent).Value = NO_ENTRY
End With

    Ajuster le classeur et de la feuille de calcul des références pour s'adapter à votre situation particulière.

    InformationsquelleAutor Dick Kusleika