Ajouter valeurs d'un tableau vers ComboBox
A
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
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
A
C'est bon, ca marche, merci pour votre code