Bonjour le forum,

Je souhaite relier la combobox 2 à la combobox 1 ainsi que la combobox 3 à la combobox 1. J'ai pris le code Boigontier, mais je n'arrive pas a adapter le code apres de nombreux essais.
Alors qsi une âme charitable passe par là !!!!!!

Merci d'avance.
Voici le code :

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
Private Sub ComboBox1_Change()
  Set f = Sheets("BD1")
  i = 0
  Me.ComboBox2.Clear
  Me.ComboBox3.Clear
 
  For Each c In Range(f.[A2], f.[A65000].End(xlUp))
   If c = Me.ComboBox1 Then
 
       Me.ComboBox2.AddItem
       Me.ComboBox2.List(i, 0) = c.Offset(0, 1).Value
       Me.ComboBox2.List(i, 0) = c.Offset(0, 2).Value
       Me.ComboBox2.List(i, 0) = c.Offset(0, 3).Value
 
       i = i + 1
   End If
  If c = Me.ComboBox1 Then
 
   '.Offset (1,0)= saut de 1 ligne et colonne 0 c'est à dire A
   '.Offset (0,1)= 0 pas de saut de ligne et colonne 1 c'est à dire B
       Me.ComboBox3.AddItem
       Me.ComboBox3.List(i, 0) = c.Offset(0, 1).Value
       Me.ComboBox3.List(i, 0) = c.Offset(0, 2).Value
       Me.ComboBox3.List(i, 0) = c.Offset(0, 3).Value
 
       i = i + 1
   End If
 
  Next c
  Me.ComboBox2.SetFocus
 
  SendKeys "{F4}"
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ComboBox2_Change()
   If Me.ComboBox2.ListIndex > -1 Then
     ActiveCell = Me.ComboBox1
     ActiveCell.Offset(2) = Me.ComboBox2
     ActiveCell.Offset(3) = Me.ComboBox2.Column(1)
     'ActiveCell.Offset(4) = Me.ComboBox2.Column(2)
     'ActiveCell.Offset(5) = Me.ComboBox2.Column(3)
 
   End If
   Unload Me
 
End Sub

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ComboBox3_Change()
 
If Me.ComboBox3.ListIndex > -1 Then
     ActiveCell = Me.ComboBox1
     ActiveCell.Offset(2) = Me.ComboBox3
     ActiveCell.Offset(3) = Me.ComboBox3.Column(1)
     'ActiveCell.Offset(4) = Me.ComboBox3.Column(2)
     'ActiveCell.Offset(5) = Me.ComboBox3.Column(3)
 
   End If
   Unload Me
End Sub