Dans le code suivant (pas de mon cru), les valeurs affichées dans mon
userform (listbox1 à 8) sont celles se trouvant de D à K.
With Worksheets("feuil1")
O = .Range("a15000").End(xlUp).Row
tabtemp = .Range("A2:ae" & O).Value
End With
For O = 1 To UBound(tabtemp, 1)
If tabtemp(O, 1) = CStr(Me.ComboBox1.Value) And tabtemp(O, 2) =
CStr(Me.ComboBox2.Value) _
And tabtemp(O, 3) = CStr(Me.ComboBox3.Value) Then
For N = 1 To 30 'J'ai changé la valeur à 30
If tabtemp(O, N + 3) <> "" Then
If N = 5 Or N = 8 Then 'Ici le N=5 Or N=30
Controls("ListBox" & N).AddItem Format(tabtemp(O, N +
3), "# ##0.00 $")
Else
Controls("ListBox" & N).AddItem tabtemp(O, N + 3)
'L'indice n'appartient pas à la sélection ???
End If
End If
Next N
End If
Next O
Ayant modifié mon tableau, j'aimerai que les valeurs D à J soient afficher
dans mon userform (listbox1 à 7) et la valeur en AE soit affichée dans le
listbox8.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Si j'ai bien compris : For N = 1 To 30 suppose que tu as 30 listboxes : Controls("ListBox" & N).AddItem tabtemp(O, N + 3) Si tu n'en as que 8, tu vas planter à N=9 Cordialement. Daniel "Linebaker" a écrit dans le message de news: Dv40g.4330$
Bonjour,
Dans le code suivant (pas de mon cru), les valeurs affichées dans mon userform (listbox1 à 8) sont celles se trouvant de D à K.
With Worksheets("feuil1") O = .Range("a15000").End(xlUp).Row tabtemp = .Range("A2:ae" & O).Value End With
For O = 1 To UBound(tabtemp, 1) If tabtemp(O, 1) = CStr(Me.ComboBox1.Value) And tabtemp(O, 2) = CStr(Me.ComboBox2.Value) _ And tabtemp(O, 3) = CStr(Me.ComboBox3.Value) Then
For N = 1 To 30 'J'ai changé la valeur à 30 If tabtemp(O, N + 3) <> "" Then If N = 5 Or N = 8 Then 'Ici le N=5 Or N0 Controls("ListBox" & N).AddItem Format(tabtemp(O, N + 3), "# ##0.00 $") Else Controls("ListBox" & N).AddItem tabtemp(O, N + 3) 'L'indice n'appartient pas à la sélection ??? End If End If Next N End If Next O
Ayant modifié mon tableau, j'aimerai que les valeurs D à J soient afficher dans mon userform (listbox1 à 7) et la valeur en AE soit affichée dans le listbox8.
Merci
Bonjour.
Si j'ai bien compris :
For N = 1 To 30
suppose que tu as 30 listboxes :
Controls("ListBox" & N).AddItem tabtemp(O, N + 3)
Si tu n'en as que 8, tu vas planter à N=9
Cordialement.
Daniel
"Linebaker" <try@again.com> a écrit dans le message de news:
Dv40g.4330$4c2.470550@weber.videotron.net...
Bonjour,
Dans le code suivant (pas de mon cru), les valeurs affichées dans mon
userform (listbox1 à 8) sont celles se trouvant de D à K.
With Worksheets("feuil1")
O = .Range("a15000").End(xlUp).Row
tabtemp = .Range("A2:ae" & O).Value
End With
For O = 1 To UBound(tabtemp, 1)
If tabtemp(O, 1) = CStr(Me.ComboBox1.Value) And tabtemp(O, 2) =
CStr(Me.ComboBox2.Value) _
And tabtemp(O, 3) = CStr(Me.ComboBox3.Value) Then
For N = 1 To 30 'J'ai changé la valeur à 30
If tabtemp(O, N + 3) <> "" Then
If N = 5 Or N = 8 Then 'Ici le N=5 Or N0
Controls("ListBox" & N).AddItem Format(tabtemp(O, N +
3), "# ##0.00 $")
Else
Controls("ListBox" & N).AddItem tabtemp(O, N + 3)
'L'indice n'appartient pas à la sélection ???
End If
End If
Next N
End If
Next O
Ayant modifié mon tableau, j'aimerai que les valeurs D à J soient afficher
dans mon userform (listbox1 à 7) et la valeur en AE soit affichée dans le
listbox8.
Bonjour. Si j'ai bien compris : For N = 1 To 30 suppose que tu as 30 listboxes : Controls("ListBox" & N).AddItem tabtemp(O, N + 3) Si tu n'en as que 8, tu vas planter à N=9 Cordialement. Daniel "Linebaker" a écrit dans le message de news: Dv40g.4330$
Bonjour,
Dans le code suivant (pas de mon cru), les valeurs affichées dans mon userform (listbox1 à 8) sont celles se trouvant de D à K.
With Worksheets("feuil1") O = .Range("a15000").End(xlUp).Row tabtemp = .Range("A2:ae" & O).Value End With
For O = 1 To UBound(tabtemp, 1) If tabtemp(O, 1) = CStr(Me.ComboBox1.Value) And tabtemp(O, 2) = CStr(Me.ComboBox2.Value) _ And tabtemp(O, 3) = CStr(Me.ComboBox3.Value) Then
For N = 1 To 30 'J'ai changé la valeur à 30 If tabtemp(O, N + 3) <> "" Then If N = 5 Or N = 8 Then 'Ici le N=5 Or N0 Controls("ListBox" & N).AddItem Format(tabtemp(O, N + 3), "# ##0.00 $") Else Controls("ListBox" & N).AddItem tabtemp(O, N + 3) 'L'indice n'appartient pas à la sélection ??? End If End If Next N End If Next O
Ayant modifié mon tableau, j'aimerai que les valeurs D à J soient afficher dans mon userform (listbox1 à 7) et la valeur en AE soit affichée dans le listbox8.