Problèmes me.control + combobox
Bonjour,
Je commence la programmation VBA , je souhaite programmer une marcro afin de gerer 4 ComboBox en cascade.
Le contenu de la ComboBox 2 est géré par le choix de la ComboBox 1 et ainsi de suite...
Voici le bout de programme que j'ai fait et essayer d'utiliser la formule du Control mais je n'ai pas bien compris.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Private Sub Alim_ComboBox(CbxIndex As Integer, Optional Cible As Variant)
Dim ProchaineCombo As Control
Dim ProchainTableau As Control
Sheets("Feuil1").Range("K2").Value = Cible
Sheets("Feuil1").Range("K3").Value = CbxIndex
tableau_0 = Range("C10:C13").Value
tableau_1 = Range("E10:E13").Value
tableau_2 = Range("G10:G13").Value
tableau_3 = Range("I10:I13").Value
Set ProchaineCombo = Me.Controls("ComboBox" & CbxIndex)
Sheets("Feuil1").Range("K4").Value = ProchaineCombo
Set ProchainTableau = Me.Controls("tableau_" & Cible)
Sheets("Feuil1").Range("K5").Value = ProchainTableau
ProchaineCombo.List() = Application.Transpose(ProchainTableau)
End Sub |
Pouvez-vous m'aider s'il vous plaît.
Merci par avance
