Additem [Fermé]

Signaler
Messages postés
6
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
13 mai 2018
-
Messages postés
15290
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
24 avril 2021
-
Bonjour à vous tous,
voilà j ai un problème avec une prg vba ,j ai Excel 2007 et j'ai un message (méthode introuvable ou de données introuvable, si quelqu'un pouvait m'aider se serait super déjà que je suis novice ,alors un peut d'aide serait la bienvenue merci
Option Explicit
Public memoire As Integer


Private Sub CommandButton1_Click()
With Me.list_order
.AddItem
.List(memoire, 0) = Me.Cbx_article
.List(memoire, 1) = Me.Txt_nombre
End With
memoire = memoire + 1
End Sub

Private Sub CommandButton2_Click()

End Sub



Private Sub Txt_nombre_Change()
If Not IsNumeric(Txt_nombre) And Txt_nombre <> "" Then
MsgBox "désoler uniquement que des chiffre"
Txt_nombre = ""
End If
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Me.Label_info.Caption = Sheets(8).Range("e20")
End Sub

2 réponses

Messages postés
15290
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
24 avril 2021
837
bonjour, chaque fois que tu as un message d'erreur, peux-tu nous dire sur quelle ligne il se produit?
Messages postés
6
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
13 mai 2018

Bonjour et merci de me répondre, c'est sur additem je suis perdu
Messages postés
15290
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
24 avril 2021
837
peut-être:
.AddItem  Me.Cbx_article 
.List(.ListCount - 1, 1) = Me.Txt_nombre 
Messages postés
6
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
13 mai 2018

non, cela ne fonctionne pas additem apparait toujours comme un Pb (message erreur :méthode introuvable ou de données introuvable)
Messages postés
15290
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
24 avril 2021
837 >
Messages postés
6
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
13 mai 2018

peux-tu partager ton fichier?
Messages postés
6
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
13 mai 2018

pour tableau:

Nr commande Date Nr article Nom Nombre Prix Prix total Fournisseur
Messages postés
6
Date d'inscription
dimanche 13 mai 2018
Statut
Membre
Dernière intervention
13 mai 2018

plutôt ce tableau-ci excusez moi

N° article Nom Description Prix unité Stock Valeur de stock Stock mini Flag Statuts vide