Impossible de définir la propriété "Value" le type ne correspond pas

Bien le bonjour le forum, c'est encore moi.

J'essaye cette fois d'ouvrir mon formulaire "pièce" dans ma GMAO mais je suis confroté à l'erreur "Impossible de définir la propriété "Value" le type ne correspond pas". J'ai utilisé F8 pour voir où se situe l'erreur mais je suis un peu perdu et je ne la trouve pas. S'il vous plaît aidez moi à résoudre ce problème je vous en serai reconnaissant. Ci-joint mon logiciel.

Merci infiniment,

Cordialement.

38projet-vb-gmao1.xlsm (389.99 Ko)

Bonjour

With Sheets("GestionLISTE")
    For Each cell In .Range("J3:J" & .[J100].End(xlUp).Row)
        If cell.Value <> "" Then list1.Item(cell.Value) = cell.Value
    Next cell
    piece.TextBox_delai_fournisseur1_piece = list1.Items

End With

 'remplissage de la liste Delais (TextBox_delai_fournisseur2_piece)
Set list1 = CreateObject("Scripting.Dictionary")
With Sheets("GestionLISTE")
    For Each cell In .Range("J3:J" & .[J100].End(xlUp).Row)
        If cell.Value <> "" Then list1.Item(cell.Value) = cell.Value
    Next cell
    piece.TextBox_delai_fournisseur2_piece = list1.Items

End With

Vous ne pouvez pas mettre une liste dans un textbox:

piece.TextBox_delai_fournisseur1_piece = list1.Items

et :

piece.TextBox_delai_fournisseur2_piece = list1.Items

Ces lignes sont à supprimer

Bye

Bonjour,

Tu peux mettre une liste dans un TextBox mais dans ton cas, ça n'a pas de sens car je pense qu'il te faut récupérer la valeur choisie. Une ListBox ou ComboBox conviendrait mieux !

A tout hasard, voici un code pour avoir les valeurs les unes au dessous des autres dans un TextBox :

Dim Cle
Cle = list1.Keys

TextBox_delai_fournisseur1_piece.MultiLine = True
TextBox_delai_fournisseur1_piece.ScrollBars = fmScrollBarsVertical

For i = 0 To list1.Count - 1
    TextBox_delai_fournisseur1_piece = TextBox_delai_fournisseur1_piece & Cle(i) & vbCrLf
Next i
Rechercher des sujets similaires à "impossible definir propriete value type correspond pas"