La méthode ‘_Default’ de l’objet ‘Range’ a échoué

Signaler
-
Messages postés
7531
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 septembre 2021
-
Bonjour,

J'ai créé il y a quelques semaines un code qui me permettait d'ajouter, à partir d'un Userform, des données dans un tableau se trouvant sur une feuille excel.

Tout marchait bien jusqu'à maintenant où, à chaque fois que je valide l'ajout des données, l'erreur "La méthode ‘_Default’ de l’objet ‘Range’ a échoué" apparait suivie d'un plantage d'excel.

Je vous mets le code ci-dessous car je ne comprends pas pourquoi ça ne fonctionne plus...

Private Sub Ajouter_Click()

Dim lastlig As Long
Dim sht As Worksheet

Set sht = Worksheets("Feuil1")
lastlig = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row + 1

Cells(lastlig, "A") = Me.Ref.Value
Cells(lastlig, "B") = Me.Titre.Value
Cells(lastlig, "C") = Me.Createur.Value

End Sub

1 réponse

Messages postés
7531
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
16 septembre 2021
127
Bonjour,

comme ceci:

Private Sub Ajouter_Click()

Dim lastlig As Long
Dim sht As Worksheet

Set sht = Worksheets("Feuil1")
lastlig = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row + 1
        
        Cells(lastlig, 1) = Me.Ref.Value
        Cells(lastlig, 2) = Me.Titre.Value
        Cells(lastlig, 3) = Me.Createur.Value
       
End Sub