Bonjour,
A partir d’un formulaire avec 4 ComboBox
J’aimerai inscrire dans un Label la valeur de la colonne juste à droite du choix de la ComboBox 4

Cb1 Cb2 Cb3 Cb4 Label
A A1 A11 A111 TYPE A111
A A1 A12 A112 TYPE A112
B B1 B11 A112 TYPE A112

Merci de votre aide

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Dim f, a()
 
Private Sub UserForm_Initialize()
  Set f = Sheets("Cv_Tapis")
  Set mondico = CreateObject("Scripting.Dictionary")
  a = f.Range("A3:E" & f.[A65000].End(xlUp).Row).Value
  For i = LBound(a, 1) To UBound(a, 1)
    mondico(a(i, 1)) = ""
  Next i
  Me.ComboBox1.List = mondico.keys
End Sub
 
Private Sub ComboBox1_click()
  Me.ComboBox2.Clear
  Me.ComboBox3.Clear
  Me.ComboBox4.Clear
  Set mondico = CreateObject("Scripting.Dictionary")
  For i = LBound(a, 1) To UBound(a, 1)
     If a(i, 1) = Me.ComboBox1 Then mondico(a(i, 2)) = ""
  Next i
  Me.ComboBox2.List = mondico.keys
  'Me.TextBox1 = Me.ComboBox1
End Sub
 
Private Sub ComboBox2_click()
  Me.ComboBox3.Clear
  Me.ComboBox4.Clear
  Set mondico = CreateObject("Scripting.Dictionary")
  For i = LBound(a, 1) To UBound(a, 1)
     If a(i, 1) = Me.ComboBox1 And a(i, 2) = Me.ComboBox2 Then mondico(a(i, 3)) = ""
  Next i
  Me.ComboBox3.List = mondico.keys
  'Me.TextBox1 = Me.ComboBox2
End Sub
 
Private Sub ComboBox3_click()
  Me.ComboBox4.Clear
  Set mondico = CreateObject("Scripting.Dictionary")
  For i = LBound(a, 1) To UBound(a, 1)
    If a(i, 1) = Me.ComboBox1 And a(i, 2) = Me.ComboBox2 And a(i, 3) = Me.ComboBox3 Then mondico(a(i, 4)) = ""
  Next i
  Me.ComboBox4.List = mondico.keys
  'Me.TextBox1 = Me.ComboBox3
End Sub
 
''--------------------------------------
 
Private Sub ComboBox4_click()
 
  Me.TextBox1 = Me.ComboBox4
  'Me.Label22 = Me.ComboBox4     'resultat de la combobox 4 decale d'une cellule a droite
 
End Sub