Discussion :

[panda78]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

Bonjour,

Teste ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[panda78]

ça envoi un message d'eereur "permission refusée"

[fring]

sur quelle ligne de code ?

[panda78]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ;-)

[panda78]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Contenu="K2:K8"

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