Erreur de compilation.
MzKcfrans
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
MzKcfrans Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
MzKcfrans Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Erreur de compilation.
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
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