XL 2019 Erreur Impossible de définir la propriété list. Le type ne correspond pas

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
K

kevindu63

XLDnaute Nouveau
Bonjour,

J'ai une erreur que je n'arrive pas a trouver malgré toute les recherches,

sur la ligne

VB: 
 .List(memoire, 0) = Me.ListBox1

message: Erreur d'exécution 2147352571 (80020005):
Impossible de définir la propriété list. Le type ne correspond pas.

VB: 
Private Sub CommandButton1_Click()
If Me.Txt_nombre <> "" And Me.cbx_type.ListIndex >= 0 Then

    With Me.List_order
     .AddItem
         .List(memoire, 1) = Me.Cbx_article1
         '.List(memoire, 2) = Me.Txt_nombre
         '.List(memoire, 0) = Me.Cbx_test
         .List(memoire, 0) = Me.ListBox1
         .List(memoire, 2) = Me.ListBox2
 
 
  End With
 
 memoire = memoire + 1
 Me.Cbx_article1 = ""
  Me.Cbx_test = ""
  Me.Txt_nombre = ""
  Me.ListBox1 = ""
  Me.ListBox2 = ""

End If
End Sub



Je vous remercie d'avance
 
Trier par date Trier par votes
mémoire n'est toujours pas initialisé dans ton fichier;...

VB: 
Private Sub CommandButton1_Click()
If Me.Txt_nombre <> "" And Me.cbx_type.ListIndex >= 0 Then
With Me.List_order
    .AddItem Me.Cbx_article1 'on créé la ligne
    memoire = .ListCount - 1 'numéro de la ligne
    
    .List(memoire, 1) = Me.Txt_nombre 'on rempli les éléments de la ligne ==1 = 2è colonne....
    '.List(memoire, 2) = Me.ListBox2
    .List(memoire, 3) = Me.Cbx_test
    '.List(memoire, 4) = Me.ListBox1

End With
 
    'memoire = memoire + 1
    Me.Cbx_article1 = ""
    Me.Cbx_test = ""
    Me.Txt_nombre = ""
    Me.ListBox1 = ""
    Me.ListBox2 = ""

End If
End Sub
 
Vote positif 0 Vote négatif
quelques recommandations pour ton code

1) sur les formulaires;. donner des noms explicites aux différentes controles avec des préfixes indiquant la nature du control
Lbx_NomList === pour les listbox
Cbx_NomCombo==> Combobox
Txb_NomTexte==>Textbox
Cbn_NomBouton===> Commande bouton

2) indenter correctement le code, pas de saut de ligne supperflu
3) fermer "explicitement" les boucles for
for i=...
next i (au lieu d'un simple next)==> plus pratique pour s'y retrouver en case de boucles imbriquées

4) sur ton fichier excel: idem.. donner des noms aux différentes tables : Tab_BDD, Tab_Fournisseurs......
on peut travailler plus facilement dessus en vba avec "ListObjects"..


Je ne comprend le besoin des listbox 1 et 2 de ton formulaire...
 
Vote positif 0 Vote négatif
autre suggestion.. plutot que des
Set ws_data = Worksheets(4),
quand on lit le code.. on ne sait pas de quelle feuille il s'agit..
dans l'explorateur du projet, je vois Feuil4 = "Mouvement de stock"
et ensuite.. quand je lis
For i = 6 To lstrw
Référence = ws_data.Cells(i, 2)

je me dis que ws_data.. c'est peut etre plutot la feuille "Article" ...

?? et donc;. c'est censé etre laquelle?
 
Vote positif 0 Vote négatif
un exemple de ce que deviendrait ton initialize, si tu nommes la table de la feuille Article "Tab_Articles"

VB: 
Private Sub UserForm_Initialize()
Dim ws_data As Worksheet
Dim lstrw As Long
Dim liste_valeur As String
Dim Référence As String
Dim Nom As String
Dim i
Dim j

Set ws_data = Worksheets(4)
Me.Label_info.Caption = Sheets("Config").Range("E21")
lstrw = ws_data.Cells(Rows.Count, 2).End(xlUp).Row
'liste_valeur = ""
ws_data.Activate 'juste pour etre sur qu'on travaille sur la bonne feuille

Me.Cbx_test.Clear
Me.Cbx_article1.Clear
With Sheets("Article").ListObjects("Tab_Articles")
    For i = 1 To .ListRows.Count
        Me.Cbx_test.AddItem .ListColumns("Référence").DataBodyRange(i)
        Me.Cbx_article1.AddItem .ListColumns("Nom").DataBodyRange(i)
    Next i
End With

''boucle
'For i = 6 To lstrw
'    Référence = ws_data.Cells(i, 2)
'    If InStr(liste_valeur, Référence) < 1 Then
'        Cbx_test.AddItem "" & Référence
'        If liste_valeur = "" Then
'            liste_valeur = Référence
'        Else
'            liste_valeur = liste_valeur & ";" & Référence
'        End If
'    End If
'
'    Set ws_data = Worksheets(4)
'    lstrw = ws_data.Cells(Rows.Count, 2).End(xlUp).Row
'    liste_valeur = ""
'
'    For j = 6 To lstrw
'        Nom = ws_data.Cells(i, 3)
'        If InStr(liste_valeur, Nom) < 1 Then
'            Cbx_article1.AddItem "" & Nom
'            If liste_valeur = "" Then
'                liste_valeur = Nom
'            Else
'                liste_valeur = liste_valeur & ";" & Nom
'            End If
'        End If
'    Next j
'Next i
End Sub
 
Vote positif 0 Vote négatif
vgendron à dit:
quelques recommandations pour ton code

1) sur les formulaires;. donner des noms explicites aux différentes controles avec des préfixes indiquant la nature du control
Lbx_NomList === pour les listbox
Cbx_NomCombo==> Combobox
Txb_NomTexte==>Textbox
Cbn_NomBouton===> Commande bouton

2) indenter correctement le code, pas de saut de ligne supperflu
3) fermer "explicitement" les boucles for
for i=...
next i (au lieu d'un simple next)==> plus pratique pour s'y retrouver en case de boucles imbriquées

4) sur ton fichier excel: idem.. donner des noms aux différentes tables : Tab_BDD, Tab_Fournisseurs......
on peut travailler plus facilement dessus en vba avec "ListObjects"..


Je ne comprend le besoin des listbox 1 et 2 de ton formulaire...
Cliquez pour agrandir...
Je te remercie pour tout sait un peu le bazar car je test plein de choses pour que ça fonctionne !! Alor pour les listbox 1 et 2 sait un peux compliqué mais je voudrais que quand on sélectionne un article ça nous ajoute sa référence automatiquement dans le tableau et et même chose quand on sélectionne un article je voudrais que sa référence s'ajoute automatiquement dans le tableau
 
Vote positif 0 Vote négatif
vgendron à dit:
autre suggestion.. plutot que des
Set ws_data = Worksheets(4),
quand on lit le code.. on ne sait pas de quelle feuille il s'agit..
dans l'explorateur du projet, je vois Feuil4 = "Mouvement de stock"
et ensuite.. quand je lis
For i = 6 To lstrw
Référence = ws_data.Cells(i, 2)

je me dis que ws_data.. c'est peut etre plutot la feuille "Article" ...

?? et donc;. c'est censé etre laquelle?
Cliquez pour agrandir...
Ah oui il faut que je regarde il y a peut-être un problème aussi ici à force de tout toucher je m'y suis perdu
 
Vote positif 0 Vote négatif
je pense que tes listbox 1 et 2 ne servent à rien.. tu peux directement remplir la Listbox principale à partir de la selection des combobox

après.. pourquoi uniquement 5 colonnes sur cette liste principale.. vu qu'elle sert à remplir la table de la feuille "Mouvement de stock" ??

si je comprend bien.. dans le formulaire. tu prépares plusieurs mouvements (= plusieurs lignes dans la Listbox principale) et quand tu enregistres;. tu copies colle tout dans la feuille "Mouvement de stock"??
 
Vote positif 0 Vote négatif
vgendron à dit:
je pense que tes listbox 1 et 2 ne servent à rien.. tu peux directement remplir la Listbox principale à partir de la selection des combobox

après.. pourquoi uniquement 5 colonnes sur cette liste principale.. vu qu'elle sert à remplir la table de la feuille "Mouvement de stock" ??

si je comprend bien.. dans le formulaire. tu prépares plusieurs mouvements (= plusieurs lignes dans la Listbox principale) et quand tu enregistres;. tu copies colle tout dans la feuille "Mouvement de stock"??
Cliquez pour agrandir...
Oui je pense qu'il y a une façon bien plus simple pour avoir ce résultat mais je n'ai pas trouvé le moyen d'y arriver et oui c'est bien ça je ne sais pas comment faire pour que quand je remplis la combobox référence ça m'ajoute le nom de l'article correspondant dans l'autre combobox c'est pour ça que je l'ai détourné avec des listbox
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

H
  • Question Question
XL 2016 Impossible de définir la propriété currentpage de la classe pivotfied
Réponses
4
Affichages
497
Hamadou
H
T
  • Question Question
XL 2016 Erreur d'exécution 1004 : Impossible de définir la propriété Hidden de la classe Range
Réponses
3
Affichages
573
Phil69970
Phil69970
O
  • Question Question
XL 2019 Impossible de définir la propriété list valeur de propriété non valide
Réponses
3
Affichages
765
ogou
O
Lu76Fer
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
648
Lu76Fer
Lu76Fer
Blaster
  • Question Question
Microsoft 365 Erreur code : Control Listbox
2
Réponses
17
Affichages
2 K
Blaster
Blaster
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
861
Mody200
M
J
  • Résolu(e)
Microsoft 365 Erreur else sans if
Réponses
3
Affichages
920
Jacko17
J
T
  • Question Question
XL 2019 Comparer la valeur numérique de 2 textbox
Réponses
6
Affichages
1 K
terrier
T
Z
  • Résolu(e)
Microsoft 365 Créer une gestion de stock
Réponses
9
Affichages
1 K
Zangief
Z
cathodique
  • Résolu(e)
XL 2010 Impossible de lire la propriété .List
Réponses
6
Affichages
2 K
cathodique
cathodique
A
  • Question Question
XL 2019 ajout automatique de quantités de sortie de stock au méme produit existant deja au tableau
Réponses
3
Affichages
1 K
vgendron
vgendron
P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
2 K
pelerin65
P
P
  • Résolu(e)
XL 2010 afficher numero de telephne dans TextBox4
Réponses
11
Affichages
1 K
Philo
P
M
  • Question Question
XL 2016 erreur d'exécution
3 4 5
Réponses
68
Affichages
8 K
Etoto0026
Etoto0026
L
  • Question Question
XL 2016 Atteinte de la limite de zones d'impression
Réponses
8
Affichages
1 K
fanch55
fanch55
P
  • Question Question
Microsoft 365 Erreur d'execution '5': Argument ou appel de procédure incorrect sur copie vers listBox dans un formulaire
Réponses
3
Affichages
767
sylvanu
sylvanu
B
  • Question Question
XL 2013 [RESOLU] Erreur de compilation End with sans with
Réponses
5
Affichages
3 K
BENAM69
B
W
  • Question Question
XL 2013 Incompatibilité de type .FormulaArray = .FormulaR1C1
Réponses
3
Affichages
847
Bernard_XLD
Bernard_XLD
B
  • Question Question
XL 2010 Erreur 1004 : Impossible de lire la propriété Insert de la classe Pictures
2
Réponses
15
Affichages
6 K
isramail
I
I
  • Question Question
XL 2010 Erreur d’exécution '9' L'indice n'appartient pas à la sélection
Réponses
0
Affichages
994
Ismagapi
I
Retour