Sujet Précédent Sujet Suivant

Error

hbb12 - Modifié le 4 janv. 2020 à 19:47
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 - 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
Erreure d'execution 9 ✓ - Forum Visual Basic 6
Run time error 94 invalid use of null ✓ - Forum Visual Basic
Maximum execution time of 30 seconds exceeded - Forum PHP
Run time error 9 subscript out of range ✓ - Forum Visual Basic 6

1 réponse

Réponse 1 / 1

NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 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

erreur d'execution '9'

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

Votre réponse

Discussions similaires