Error

Signaler
-
Messages postés
14673
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
28 juin 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
14673
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
28 juin 2020
143
Sur quelle ligne ?