Error

-
Bonjour,
J'ai besoin de votre aide sur ce code afin d'enregistrer les données de mon userform dans ma BD excel. ça écrit toujours erreur membre de méthhode ou de données introuvable. Merci pour tout!

Private Sub CommandButton1_Click()
Dim DL As Integer

If Me.Txt_nom <> "" And Me.Txt_description <> "" And Me.Text_prix <> "" And Me.Txt_stock_min <> "" Then
  
  Sheets(2).ListObjects(1).ListRows.Add
  DL = Sheets(2).Range("b9999").End(xlUp).Row
  

  'ajouter dans le tableau
  Sheets(2).Range("b" + DL) = Me.Labe_info.Caption
  Sheets(2).Range("c" + DL) = Me.Txt_nom
  Sheets(2).Range("d" + DL) = Me.Txt_description
  Sheets(2).Range("e" + DL) = CCur(Me.Txt_prix)
  Sheets(2).Range("H" + DL) = CInt(Me.Txt_min)
  Sheets(2).Range("j" + DL) = "Active"
  
  Sheets(8).Cells("d19") = Sheets(8).Range("d19") + 1
  ThisWorkbook.Save
  Unload Add_article
End If
End Sub
Afficher la suite 

1 réponse

Messages postés
14617
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
14 janvier 2020
138
0
Merci
Sur quelle ligne ?
Commenter la réponse de NHenry