Erreur de compilation.

Fermé
MzKcfrans Messages postés 7 Date d'inscription lundi 30 avril 2018 Statut Membre Dernière intervention 9 mai 2018 - 30 avril 2018 à 10:51
MzKcfrans Messages postés 7 Date d'inscription lundi 30 avril 2018 Statut Membre Dernière intervention 9 mai 2018 - 9 mai 2018 à 10:25
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


1 réponse

M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 283
30 avril 2018 à 11:35
Bonjour,

la variable memoire représente quoi ?
S'elle n'est pas attribuée, c'est normal d'avoir l'erreur
0
MzKcfrans Messages postés 7 Date d'inscription lundi 30 avril 2018 Statut Membre Dernière intervention 9 mai 2018
30 avril 2018 à 13:43
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
0
MzKcfrans Messages postés 7 Date d'inscription lundi 30 avril 2018 Statut Membre Dernière intervention 9 mai 2018
9 mai 2018 à 10:25
mon problèmes a été résolu il se trouvait dans sa conception . Merci
0