Partager via

ERROR 1004 Application-defined or Object defined-error

Anonyme
2022-12-12T14:53:12+00:00

Bonjour le forum,

Dans la procédure ci-dessous, l'instruction " .Range(.Cells(2, 8), .Cells(lastrow, 8)).Select" génère une erreur lors de l'exécution.

Un membre du forum pourrait-il me dire quelle serait la cause de l'erreur ?

D'avance merci

GiHem

Private Sub btn_Gender_begin_Click()

'UF_Param_Gen.Show

With Worksheets("Data") 

lastrow = .Cells(2, 1).End(xlDown).Row             'dernière ligne de la feuille Data 

.Range(.Cells(2, 8), .Cells(lastrow, 8)).Select '<------------ERROR 1004 Application-defined or Object defined-error 

Selection.Delete Shift:=xlUp                       'effacement de la mention "Sélection"

End With

With Worksheets("Accueil") 

For i = 1 To 10 

    .Shapes("shape" & i).Visible = False 

Next i

End With

UF_Gender_Initialize

UF_Gender.Show

End Sub

Microsoft 365 et Office | Excel | Pour la maison | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires
Réponse acceptée par l’auteur de la question
  1. DanielCo 107.7K Points de réputation
    2022-12-12T15:09:05+00:00

    Bonjour,

    Vraisemblablement, la feuille Data n'est pas la feuille active. Mets :

    .Select

.Range(.Cells(2, 8), .Cells(lastrow, 8)).Select

    Daniel

    1 personne a trouvé cette réponse utile.
    0 commentaires

1 réponse supplémentaire

Trier par : Le plus utile
Le plus utile Les plus récents Les plus anciens
  1. Anonyme
    2022-12-12T15:40:05+00:00

    Bonour Daniel,

    Merci pour la réponse.

    Effectivement, en sélectionnant la feuille "Data", je n'ai plus d'erreur.

    Une fois de plus, mes lacunes VBA sont comblées.

    GiHem

    0 commentaires