Ajouter valeurs d'un tableau vers ComboBox Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
A
Arnaud_lm
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 16 décembre 2019
Version d'Excel : 2016

Message par Arnaud_lm » 16 décembre 2019, 17:11

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
V1.xlsm
(23.18 Kio) Téléchargé 3 fois
Avatar du membre
ThauThème
Passionné d'Excel
Passionné d'Excel
Messages : 3'859
Appréciations reçues : 176
Inscrit le : 19 octobre 2014
Version d'Excel : 2010 FR

Message par ThauThème » 16 décembre 2019, 17:35

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
1 membre du forum aime ce message.
À plus,

ThauTheme


Je suis Charlie
VBA m'éclate, les formules m'ennuient ! Je n'y peux rien c'est comme ça...
A
Arnaud_lm
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 16 décembre 2019
Version d'Excel : 2016

Message par Arnaud_lm » 16 décembre 2019, 17:40

C'est bon, ca marche, merci pour votre code
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message