Erreur de compilation.
MzKcfrans
Messages postés
7
Statut
Membre
-
MzKcfrans Messages postés 7 Statut Membre -
MzKcfrans Messages postés 7 Statut Membre -
Bonjour,
J'ai un problème de compilation j'ai suivie les information d'une vidéo qui fonctionne dans la démonstration de cette macro
je travail avec excel 2010
j'ai reproduit tout la séquence mais a l’exécution un message
Erreur de compilation.
Membre de méthode ou de données introuvable
voici
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
Merci
J'ai un problème de compilation j'ai suivie les information d'une vidéo qui fonctionne dans la démonstration de cette macro
je travail avec excel 2010
j'ai reproduit tout la séquence mais a l’exécution un message
Erreur de compilation.
Membre de méthode ou de données introuvable
voici
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
Merci
1 réponse
-
Bonjour,
la variable memoire représente quoi ?
S'elle n'est pas attribuée, c'est normal d'avoir l'erreur-
Bonjour voila tout le processus re copier comme dans la video 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 Txt_nombre_Change()
'Uniquement des chiffres
If Not IsNumeric(Txt_nombre) And Txt_nombre <> "" Then
MsgBox "Désoler uniquement des chiffres !"
Txt_nombre = ""
End If
End Sub
Private Sub UserForm_Initialize()
Me.Label_info.Caption = Sheets(8).Range("E20").Value
End Sub -
-
