Bonjour,

Alors, voilà mon petit 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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Private Sub ComboBox1_Change()
 
    'var
   Dim etude As String
    Dim A As Integer
 
    'debut
    A = 1
    While Sheets("etude").Cells(A, 1).Text <> Sheets("Plannifier étude").ComboBox1.Text
         A = A + 1
        Sheets("plannifier étude").TextBox1 = Sheets("etude").Cells(A, 2)
    Wend
 
End Sub
 
 
Private Sub ComboBox2_Change()
 
'var
    Dim b As Integer
 
    'debut
    b = 1
    While Sheets("equipes").Cells(b, 1).Text <> Sheets("Plannifier étude").ComboBox2.Text
         b = b + 1
        Sheets("plannifier étude").TextBox4 = Sheets("equipes").Cells(b, 2)
        Sheets("plannifier étude").TextBox5 = Sheets("equipes").Cells(b, 3)
    Wend
 
End Sub
 
 
Private Sub Worksheet_Activate()
 
    'var
    Dim étude As String
    Dim A As Integer
    Dim b As Integer
 
    'debut
    Sheets("Plannifier étude").ComboBox1.Clear
    A = 2
    étude = Sheets("etude").Cells(A, 1).Value
    Sheets("Plannifier étude").ComboBox2.Clear
    b = 2
    étude = Sheets("equipes").Cells(b, 1).Value
 
    While étude <> ""
        Sheets("Plannifier étude").ComboBox1.AddItem étude
        Sheets("Plannifier étude").ComboBox2.AddItem étude
        A = A + 1
        b = b + 1
        étude = Sheets("etude").Cells(A, 1).Value
        étude = Sheets("equipes").Cells(b, 1).Value
    Wend
 
End Sub
C'que je comprends pas, c'est que, si ma ComboBox2 est indépendante du Worksheet_Activate(), elle ne marche pas, et vis-versa pour la ComboBox1. Avec ce code, c'est la ComboBox2 qui marche pas

Quelqu'un pourrait-il m'aider à comprendre d'où vient le problème ???

J'ai sans doute du cafouiller dans la boucle et mal placer mes instructions

Merci d'avance de votre aide

Au plaisir de vous lire

Aphroditeuh