selection items combobox

Version imprimable

Bonjour,
je souhaiterai pouvoir faire varier les items dans un combobox (cboParoiAsso) en fonction de la selection d'un item d'un autre combobox (cboTypParoi) .Le soucis est que j'y arrive bien pour un (cboNatParoi) mais pas deux à la fois (partie souligné en gras) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub cboTypParoi_click() dim contenu as string Select Case cboTypParoi Case "Mur": Contenu = "G2:G4" Case "Plancher": Contenu = "K2:K8" End Select Me.cboNatParoi.RowSource = "Config!" & Contenu Me.cboParoiAsso.RowSource = "Config!" & Contenu end sub
je voudrai quand je selectionne la case plancher avoir dans cboParoiAsso les items dans C2:C10 et K2:K8 si je selectionne la case mur. Comment faire pour croiser plusieurs possibilités? Merci.

j'ai essaé en faisant ainsi mais ça fonctionne pas:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Select Case cboTypParoi dim contenu as string, contenu2 as string Case "Mur": Contenu = "G2:G4" Case "Plancher": Contenu = "K2:K8" Case "Mur": Contenu2 = "K2:K8" Case "Plancher": Contenu2 = "C2:C10" End Select Me.cboNatParoi.Text = Clear Me.cboNatParoi.RowSource = "Config!" & Contenu Me.cboParoiAsso.RowSource = "Config!" & Contenu2 end sub

Bonjour,

Teste ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub cboTypParoi_click()
Dim Rg1 As Range, Rg2 As Range
 
With Sheets("Config")
    Select Case cboTypParoi
    Case "Mur": Set Rg1 = .Range("G2:G4"): Set Rg2 = .Range("K2:K8")
    Case "Plancher": Set Rg1 = .Range("K2:K8"): Set Rg2 = .Range("C2:C10")
    End Select
End With
 
Me.cboNatParoi.List = Rg1.Value
Me.cboParoiAsso.List = Rg2.Value
 
End Sub

03/08/2012, 16h53
panda78

ça envoi un message d'eereur "permission refusée"
03/08/2012, 17h00
fring

:koi: sur quelle ligne de code ?

c'est bon super ça marche en utilisant ta technique :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub cboTypParoi_click()
Dim contenu as String, contenuA As String
Select Case cboTypParoi
 
     Case "Mur": Contenu = "G2:G4": contenuA = "K2:K8"
     Case "Plancher": Contenu = "K2:K8": contenuA = "C2:C10"
 
End Select
Me.cboNatParoi.Text = Clear
Me.cboNatParoi.RowSource = "Config!" & Contenu
Me.cboParoiAsso.RowSource = "Config!" & contenuA
 
End Sub

Merci du coup de main ;-)

03/08/2012, 17h20
panda78

Sinon saurais-tu comment faire si l'on veut selectionner des cellules et non une colonne, par exemple au lieu de

Code:

Contenu="K2:K8"

j'aimerai par exemple ne selecttionner dans Contenu que K2 K5 K7 et K8

Bonjour panda78,

La solution est d'"injecter" tes données dans un tableau de variables VBA. Par contre, cela suppose de changer la syntaxe que tu utilises jusqu'ici. Je te l'ai fait juste pour cboNatParoi (il te restera un exercice similaire à faire sur cboParoiAsso) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub cboTypParoi_click()
Dim tablo() As String
'chargement du tableau en fonction cboTypParoi
With Sheets("Config")
    Select Case cboTypParoi
         Case "Mur"
            ReDim tablo(3)
            For i = 2 To 4
                tablo(i - 2) = .Range("G" & i).Value
            Next
         Case "Plancher"
            ReDim tablo(4)
            tablo(0) = .Range("K2").Value
            tablo(1) = .Range("K5").Value
            tablo(2) = .Range("K7").Value
            tablo(3) = .Range("K8").Value
    End Select
End With
'initialise le combobox
Me.cboNatParoi.Clear
'rempli le combobox
For i = 0 To UBound(tablo) - 1
    Me.cboNatParoi.AddItem (tablo(i))
Next
End Sub

C'est ok ?

Bertrand

Une autre solution sans passer par un tableau

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub cboTypParoi_click()
Dim Rg1 As Range, Rg2 As Range, Cel As Range
 
With Sheets("Config")
    Select Case cboTypParoi
        Case "Mur": Set Rg1 = .Range("G2:G4"): Set Rg2 = .Range("K2,K5,K7,K8")
        Case "Plancher": Set Rg1 = .Range("K2,K5,K7,K8"): Set Rg2 = .Range("C2:C10")
    End Select
End With
 
With Me.cboNatParoi
    .Clear
    For Each Cel In Rg1
        .AddItem Cel.Value
    Next
End With
 
With Me.cboParoiAsso
    .Clear
    For Each Cel In Rg2
        .AddItem Cel.Value
    Next
End With
 
End Sub

06/08/2012, 00h12
panda78

Merci pour vos réponses!:ccool: