Ajouter valeurs d'un tableau vers ComboBox

Bonjour, pour un travail pour mon école, j'aimerais : selon le choix fait dans la combobox1, pouvoir sélectionner les valeurs de la colonne correspondante et les insérer dans la combobox2

pour l'instant ca ne marche pas et je ne trouve pas mon erreur, merci

Je vous joins la feuille de code

Private Sub OptionButton1_Click()
ComboBox1.Clear
    'valeur=string
    With ComboBox1
        ComboBox1.AddItem "0.5"
        ComboBox1.AddItem "0.8"
        ComboBox1.AddItem "1"
        ComboBox1.AddItem "1.2"
        ComboBox1.AddItem "1.5"
        ComboBox1.AddItem "1.8"
        ComboBox1.AddItem "2"
        ComboBox1.AddItem "2.5"
        ComboBox1.AddItem "3"
        ComboBox1.AddItem "3.5"
    End With
    If ListIndex = "0.8" Then
        Worksheets(abaquemono).Select
        ComboBox2.Clear
            For i = 3 To 21
                If Range(C & " i ").Value <> 0 Then
                    ComboBox2.AddItem (Worksheets(abaquemono).Range(C & "i").Value)
                End If
            Next
    End If
    If ListIndex = "1" Then
        Worksheets(abaquemono).Select
        ComboBox2.Clear
            For i = 3 To 21
                If Range(D & " i ").Value <> 0 Then
                    ComboBox2.AddItem (Worksheets(abaquemono).Range(D & "i").Value)
                End If
            Next
    End If

End Sub
8v1.xlsm (23.18 Ko)

Bonsoir Arnaud, bonsoir le forum,

je n'ai pas le temps de commenter les codes comme je le fait d'habitude. Si tu as as besoin je repasserai plus tard.

Essaie comme ça :

Private OAO As Worksheet
Private OAI As Worksheet

Sub userform_initialize()
Set OAO = Worksheets("abaquemono")
Set OAI = Worksheets("abaquemulti")
OptionButton1.Value = True
End Sub

Private Sub OptionButton1_Click()
ComboBox1.Clear
With ComboBox1
    .AddItem "0.5"
    .AddItem "0.8"
    .AddItem "1"
    .AddItem "1.2"
    .AddItem "1.5"
    .AddItem "1.8"
    .AddItem "2"
    .AddItem "2.5"
    .AddItem "3"
    .AddItem "3.5"
End With
End Sub
Private Sub OptionButton2_Click()
ComboBox1.Clear
With ComboBox1
    .AddItem "1.8"
    .AddItem "2"
    .AddItem "2.5"
    .AddItem "3"
    .AddItem "4"
    .AddItem "4.5"
    .AddItem "5"
    .AddItem "6"
    .AddItem "7"
    .AddItem "8"
End With
End Sub

Private Sub ComboBox1_Change()
Dim COL As Byte

Select Case ComboBox1.Value
    Case Is = "0.8"
        COL = 3
    Case Is = "1"
        COL = 4
    Case Else
        COL = 0
End Select

Me.ComboBox2.Clear
If COL <> 0 Then
    For I = 3 To 21
        If OAO.Cells(I, COL).Value <> 0 Then ComboBox2.AddItem OAO.Cells(I, COL).Value
    Next I
End If
End Sub

Private Sub CommandButton1_Click()
If IsNull(ComboBox1.Value) = True Then
MsgBox ("saisir epaisseur")
End If
End Sub

C'est bon, ca marche, merci pour votre code

Rechercher des sujets similaires à "ajouter valeurs tableau combobox"