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