shizuu
-
25 juil. 2021 à 22:49
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024
-
26 juil. 2021 à 08:17
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...
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 26 juil. 2021 à 08:17
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