[débutant] 1 combobox fonction d'une autre

Version imprimable

1 pièce(s) jointe(s)

Rebonjour (j'ai déjà posté ce matin...)

Je souhaites remplir un combobox1 en fonction des valeurs de ma ligne 1 (ça c'est ok).
Ensuite je souhaites, en fonction de la valeur de combobox1, remplir combobox2.
Pour ça j'utilise "Feuil2" :

Pièce jointe 434306

Voici mon code au changement de combobox1 (l'erreur est en commentaire) :
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 Option Explicit Private Sub Combobox1_Change() Dim Dernligne, DernColo, i As Byte Dim Cellu As Range Dim Feuille As Worksheet Set Feuille = Sheets("Feuil2") DernColo = Feuille.Range("A1").End(xlToRight).Column For Each Cellu In Feuille.Range(Cells(1, 1), Cells(1, DernColo)) 'Erreur d'execution ici : la methode range de l'objet worksheet a échouer If Cellu.Value = MissionP.Text Then Dernligne = Feuille.Range(Cellu & Rows.Count).End(xlUp).Row For i = 1 To Dernligne NomR.AddItem Feuille.Cells(i, Cellu.Column) Next i Exit Sub End If Next Cellu End Sub
Quelqu'un aurait une idée? je ne comprends pas l'erreur, en plus DernColo vaut bien 4 juste après son execution.

bonsoir (avant de partir :aie:)
un combo lors de linitialisation
et l'autre lors de changement de combobox

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
26
27
Dim dernLigne As Long
Private Sub ComboBox1_Change()
Dim CodeR As String
ComboBox2.Clear
With Sheets("feuil1")
  CodeR = ComboBox1.Value
  Set rg = .range("A1:A" & dernLigne)
 For Each cell In rg
  If cell.Value = CodeR Then
   ComboBox2 = .range("B" & cell.Row)
   If ComboBox2.ListIndex = -1 Then ComboBox2.AddItem .range("B" & cell.Row)
  End If
  Next cell
End With
End Sub
 
Private Sub UserForm_Initialize()
dernLigne = Sheets("feuil1").range("A" & Rows.Count).End(xlUp).Row
Dim i As Integer
dernLigne = Sheets("feuil1").range("A" & Rows.Count).End(xlUp).Row
For i = 2 To dernLigne
  ComboBox1 = Sheets("feuil1").range("A" & i)
  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("feuil1").range("A" & i)
Next i
TextBox1.Value = ""
ComboBox2.Value = ""
End Sub

13/12/2018, 16h55
MarcelG

Bonjour,

C'est ce que l'on appelle des combobox en cascades.
Si tu fais une recherche sur ces termes, tu auras beaucoup de ressources.

Entre autres, cette discussion.

Si j'ai bien compris, la valeur selectionnée dans ta combo box 1 te permet de determiner quelle liste de la feuille2 tu vas mettre dans ta combo box 2.

Je ne suis pas un spécialiste des range.

Je te propose une methode qui peux fonctionner mais pas forcément être optimale:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 i = 1 while Application.Workbooks(1).Worksheets(2).Cells(1, i).Value <> myuserform1.combobox1.value and Application.Workbooks(1).Worksheets(2).Cells(1, i).Value <> "" i=i+1 wend 'ici normalement tu as trouvé ta valeur, tu peux néanmoins rajouter une gestion d'erreur pour le cas ou tu es tombé sur une colonne vide, ce qui signifie que tu n'as pas trouvé ta valeur j=1 while Application.Workbooks(1).Worksheets(2).Cells(j, i).Value <> "" myuserform1.combobox2.additem Application.Workbooks(1).Worksheets(2).Cells(j, i).Value j=j+1 wend 'Ta combo box 2 est remplie
C'est probablement pas beau, y'a probablement plus efficace, mais ca devrait marcher.

Attention, il vaut mieux utiliser les vrais noms des classeurs / feuilles pour eviter des problèmes quand tu as plusieurs classeurs ouverts.