Sujet Précédent Sujet Suivant

Error

hbb12 - Modifié le 4 janv. 2020 à 19:47
NHenry Messages postés 15090 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 6 novembre 2023 - 4 janv. 2020 à 20:30

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

A voir également:

Run-time error 9 subscript out of range
Erreur d'execution 9 ✓ - Forum Visual Basic 6
Erreur d'execution '9' ✓ - Forum Visual Basic 6
Erreure d'execution 9 ✓ - Forum Visual Basic 6
Run time error 94 invalid use of null ✓ - Forum Visual Basic
Fatal error maximum execution time of 300 seconds exceeded - Forum PHP

1 réponse

Réponse 1 / 1

NHenry Messages postés 15090 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 6 novembre 2023 159
4 janv. 2020 à 20:30

Sur quelle ligne ?

Discussions similaires

Runtime error 9 Subscript out of range

il me dit: vector subscript out of range!!!

erreur d'execution 9

runtime error 9: subscript out of range

Erreur d'exécution '9' : l'indice n'appartient pas à la sélection

Votre réponse

Discussions similaires