Error

Signaler
-
Messages postés
14723
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
17 septembre 2020
-
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

1 réponse

Messages postés
14723
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
17 septembre 2020
144
Sur quelle ligne ?