S
sebpecoud
Guest
Bonjour,
Ci-joint mon code :
Ce que je veux faire avec ce code :
Dans un premier temps dans afficher dans mon Combobox1 le texte de la colonne A de la feuille Traitement.
Puis afficher dans mon ListBox1, sur 6 colonnes, les infos correspondantes.
Je rencontre différent problème, celui signalé en Jaune.
Cependant, quand je remplace par If TC(I, 6) = Me.ComboBox1.Value Then alors je n'ai plus d'erreur mais je n'ai rien qui s'affiche dans mon ListBox1.
Voici mon tableau (j'ai évidemment caché les infos).
Je démarre dans UserForm.
Je vous remercie.
Sebastien
Ci-joint mon code :
VB:
Private Sub UserForm_Initialize()
Dim D As Object, I As Integer
Me.ListBox1.ColumnCount = 6
Me.ListBox1.ColumnWidths = "98;98;98;98;98;98"
Me.ListBox1.Width = 300
Set F = Sheets("Traitement")
TC = F.Range("A1").CurrentRegion
Set D = CreateObject("Scripting.Dictionary")
For I = 1 To UBound(TC, 1)
D(TC(I, 1)) = ""
Next I
Me.ComboBox1.List = D.keys
Me.TextBox1.Visible = True
Me.CommandButton1.Visible = True
End Sub
Private Sub ComboBox1_Change()
Dim I As Integer
For I = 1 To UBound(TC, 1)
[COLOR=#fac51c] If TC(I, 1) = Me.ComboBox1.Value Then (=> erreur Type 13 "incompatibilité de type"[/COLOR]
Me.ListBox1.AddItem TC(I, 1)
Me.ListBox1.List(ListBox1.ListCount - 1, 1) = TC(I, 1)
Me.ListBox1.List(ListBox1.ListCount - 1, 2) = TC(I, 2)
Me.ListBox1.List(ListBox1.ListCount - 1, 3) = TC(I, 3)
Me.ListBox1.List(ListBox1.ListCount - 1, 4) = TC(I, 4)
Me.ListBox1.List(ListBox1.ListCount - 1, 5) = TC(I, 5)
Me.ListBox1.List(ListBox1.ListCount - 1, 6) = TC(I, 6)
End If
Next I
End SubCe que je veux faire avec ce code :
Dans un premier temps dans afficher dans mon Combobox1 le texte de la colonne A de la feuille Traitement.
Puis afficher dans mon ListBox1, sur 6 colonnes, les infos correspondantes.
Je rencontre différent problème, celui signalé en Jaune.
Cependant, quand je remplace par If TC(I, 6) = Me.ComboBox1.Value Then alors je n'ai plus d'erreur mais je n'ai rien qui s'affiche dans mon ListBox1.
Voici mon tableau (j'ai évidemment caché les infos).
Je démarre dans UserForm.
Je vous remercie.
Sebastien