Discussion :

[anarchiste-mouton]

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" :

Voici mon code au changement de combobox1 (l'erreur est en commentaire) :

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
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.

[BENNASR]

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

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

[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.

[Tylert]

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 :

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

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.