PB combobox

Re : PB combobox

Bonjour tout le monde,

Voici ce que quelqu'un m'a envoyé (à adapter pour ton code) :

Private Sub ComboBox1_Change()
Dim tabtemp As Variant
Dim O As Integer

With Worksheets("Feuil1")
O = .Range("a15000").End(xlUp).Row 'tout ce qui se trouve dans la colonne A
tabtemp = .Range("A2:aw" & O).Value 'prend les valeurs qui se trouvent dans les colonnes A à AW
End With

For O = 1 To UBound(tabtemp, 1)
If tabtemp(O, 1) = CStr(Me.ComboBox1.Value) Then 'lorsque ton combobox sera égale à ta valeur dans la colonne A

If tabtemp(O, 11) = True Then
Controls("ListBox8").AddItem Format(tabtemp(O, 12), "# ##0.00 $")
UsfInventaire.TextBox1.BackColor = RGB(204, 255, 255)
CheckBox9.Value = True
OptionButton1.Value = True
Else
If tabtemp(O, 14) = True Then
Controls("ListBox8").AddItem Format(tabtemp(O, 15), "# ##0.00 $")
UsfInventaire.TextBox4.BackColor = RGB(204, 255, 255)
CheckBox2.Value = True
OptionButton1.Value = True
Else
If tabtemp(O, 17) = True Then
Controls("ListBox8").AddItem Format(tabtemp(O, 18), "# ##0.00 $")
UsfInventaire.TextBox13.BackColor = RGB(204, 255, 255)
CheckBox11.Value = True
OptionButton1.Value = True
End If
End If
End If

Cela pourra peut-être t'aider.

Re : PB combobox

Salut Cougar

Merci pour le code que tu m'as fournit mais j'ai essayé sur mon programme et ça ne fonctionne pas...
Quand j'arrive sur mon userform et que je suis sur ma combobox je selectionne et rien n'apparait...
Comment cela se fait il ?

A+

Re : PB combobox

Salut lolo_bob2,

Excuse me retard pour te répondre, je n'étais pas à la maison.

Voici ce qu'il te manquais (je crois) :

Option Explicit
Dim myr1i As Range
Dim th1 As New Collection
Dim tabtemp As Variant
Dim tablo As Variant

Private Sub UserForm_Initialize()
Dim data As Collection
Dim L As Long
Dim c As Range

Set myr1i = Range("Feuil1!A2:a" & [65536:65536].End(xlUp).Row) 'Pour ajouter les données dans ton combobox les données dans la colonne A
Do While th1.Count > 0
th1.Remove 1
Loop
On Error Resume Next
For Each c In myr1i.Cells
th1.Add c, CStr(c)
Next c

ComboBox1.Clear

For L = 1 To th1.Count
ComboBox1.AddItem th1(L)
Next L

Set data = New Collection

On Error Resume Next
For L = 1 To UBound(tablo, 1)
If tablo(L, 1) <> "" Then
data.Add tablo(L, 1), CStr(tablo(L, 1))
End If
Next L
On Error GoTo 0

For L = 1 To data.Count
ComboBox1.AddItem data.Item(L)
Next L

Set data = Nothing

End Sub

À adapter pour tes besoin.

Re : PB combobox

Salut Lolo bob2, Cougar, le forum,

En piece jointe, ton fichier modifie.
J'utilise une autre methode que Cougar, mais le resultat est le meme ou a peu pres...

A toi de comprendre et adapter a tes besoins.

Bonne journee

Olivier

Re : PB combobox

Salut le fil

Merci beaucoup pour vos réponse je vais essayer d'adapter à mon besoin
Bonne soirée

A+