remplir une combobox avec condition

Version imprimable

Bonjour je souhaiterai quand je selectionne "Chape béton" dans la combobox cboNatparoi limiter les valeurs dans cboEpaisParoi à 2;3;4;5;6;7;8;9 et 10 et de 10 à 30 dans le cas contraire

Code:

1
2
3
4
5
6
7
8
9
For i = 0 To 40
    Me.cboSurFen.AddItem i
    If i < 21 Then
        Me.cboEpaisParoi.AddItem 10 + i
        Me.cboEpaisAsso.AddItem 10 + i
        Me.cboEpaisVoile.AddItem 10 + i
        Me.cboEpaisMit.AddItem 10 + i
     End If
Next i

j'ai fait cmme ça mais ça marche pas

Code:

1
2
3
4
5
6
7
8
9
10
11
 for i=0 To 40 
   if cboNatParoi.text="Chape béton" then
     if i<8 then
     Me.cboEpaisParoi.AddItem 2 + i
     end if
   else
     if i<21 then
     Me.cboEpaisParoi.AddItem 10 + i
     end if 
   end if
next i

Bonjour,

Sauf erreur :

Code:

1
2
3
4
5
6
7
8
9
10
Me.cboEpaisParoi.Clear
If cboNatParoi.Text = "Chape béton" Then
     For i = 2 To 10
        Me.cboEpaisParoi.AddItem i
     Next i
Else
     For i = 10 To 30 Step 10
        Me.cboEpaisParoi.AddItem i
     Next i
End If

ça ne marche toutjours pas vba semble ne pas tenir compte d ela condition :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
For i = 0 To 40
    Me.cboSurFen.AddItem i
 
    If i < 21 Then
        'Me.cboEpaisParoi.AddItem 10 + i
        Me.cboEpaisAsso.AddItem 10 + i
        Me.cboEpaisVoile.AddItem 10 + i
     End If
 
 
   Next i
    Me.cboEpaisParoi.Clear
If Me.cboNatParoi.Text = "Chape béton" Then
     For i = 2 To 10
        Me.cboEpaisParoi.AddItem i
     Next i
Else
     For i = 10 To 30 'Step 10
        Me.cboEpaisParoi.AddItem i
     Next i
End If

Tu as ajouté des lignes de code par rapport à la problématique initiale. J'ai testé le code que je t'ai fourni. Il fonctionne. Sors-le de la boucle :

Code:

For i = 0 To 40

Tel que testé, voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub UserForm_Activate()
    Me.cboEpaisParoi.Clear
    Me.cboNatParoi.Clear
    Me.cboNatParoi.AddItem "Chape béton"
    Me.cboNatParoi.AddItem "Autre chose"
End Sub
 
Private Sub cboNatParoi_Change()
    Me.cboEpaisParoi.Clear
    If cboNatParoi.Text = "Chape béton" Then
         For i = 2 To 10
            Me.cboEpaisParoi.AddItem i
         Next i
    Else
         For i = 10 To 30 Step 10
            Me.cboEpaisParoi.AddItem i
         Next i
    End If
End Sub

04/09/2012, 17h18
panda78

en effet ça marche ! Merci pour votre aide ;)