Actualiser le liens combobox / Cellules

**Defter** · 24/10/2011, 10h38

Bonjour,

J'ai actuellement trois combobox associées à trois cellules différentes

J'aimerai que lorsque j'effectue un choix dans la derniere des combobox les cellules reliés s'actualisent.

Je me sers de la maccro suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub ComboBox5_change()
 
    Range("D43").Value = ComboBox3.Value
    Range("D44").Value = ComboBox4.Value
    Range("D45").Value = ComboBox5.Value
 
End Sub

Mais cela ne marche pas, ou pas à tout les coups : Seulement les deux première combobox sont parfons actualisés.

Je pense que c'est une erreur à ce niveau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ComboBox5_change()

mais je ne sais pas quoi mettre d'autre.
J'ai essayé avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ComboBox5_click()

mais le résultat est le même.

Auriez-vous une idée ?

Cordialement,
Defter.

**jfontaine** · 24/10/2011, 10h49

Bonjour,

Si tu veux aussi une actualisation lors de la modification des Combo 3 et 4, il faut aussi mettre le code dans leurs évènements Change

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
Private Sub ComboBox3_change()
MAJ
End Sub
 
Private Sub ComboBox4_change()
MAJ
End Sub
 
Private Sub ComboBox5_change()
MAJ
End Sub
 
Sub MAJ
    Range("D43").Value = ComboBox3.Value
    Range("D44").Value = ComboBox4.Value
    Range("D45").Value = ComboBox5.Value
End Sub

**Defter** · 24/10/2011, 10h57

Bonjour jfontaine et merci pour ta réponse.

Enfaite mes combobox 3, 4 et 5 sont actualisées via un choix effectué dans la combobox 2

Le code est un peu long mais si ça peut aider à comprendre :

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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
Private Sub ComboBox2_Click()
    Dim Poteau_Serreur As String, Poteau_VEC As String, Poteau_SOF As String, Poteau_VEP As String, Poteau_1100Serreur As String, Cadre_Serreur As String, Cadre_VEC As String, Cadre_SOF As String, Cadre_VEP As String, Cadre_1100Serreur As String, Joint_Serreur As String, Joint_VEC As String, Joint_SOF As String, Joint_VEP As String, Joint_1100Serreur As String
    Poteau_Serreur = "Data!C59:C65"
    Poteau_VEC = "Data!A59:A60"
    Poteau_SOF = "Data!D59:D60"
    Poteau_VEP = "Data!B59:B61"
    Poteau_1100Serreur = "Data!E59:E60"
    Cadre_VEC = "Data!G59:G62"
    Cadre_VEP = "Data!H59:H62"
    Cadre_Serreur = "Data!I59:I61"
    Cadre_SOF = "Data!J59:J61"
    Cadre_1100Serreur = "Data!K59:K60"
    Joint_VEC = "Data!A71:A75"
    Joint_VEP = "Data!B71:B73"
    Joint_Serreur = "Data!C71:C73"
    Joint_SOF = "Data!D71"
    Joint_1100Serreur = "Data!E71"
        With Sheets("Data")
            If .Range("B43").Value = "W80" And .Range("B49").Value = "VEC" Then
                ActiveSheet.ComboBox3.ListFillRange = Poteau_VEC
                ActiveSheet.ComboBox3.ListIndex = 0
                ActiveSheet.ComboBox3.ListRows = 2
            End If
            If .Range("B43").Value = "W80" And .Range("B49").Value = "VEP" Then
                Me.ComboBox3.ListFillRange = Poteau_VEP
                Me.ComboBox3.ListIndex = 0
                Me.ComboBox3.ListRows = 3
            End If
            If .Range("B43").Value = "W44" And .Range("B49").Value = "Serreur" Then
                Me.ComboBox3.ListFillRange = Poteau_Serreur
                Me.ComboBox3.ListIndex = 0
                Me.ComboBox3.ListRows = 6
            End If
            If .Range("B43").Value = "W44" And .Range("B49").Value = "Serreur+OF" Then
                Me.ComboBox3.ListFillRange = Poteau_SOF
                Me.ComboBox3.ListIndex = 0
                Me.ComboBox3.ListRows = 2
            End If
            If .Range("B43").Value = "1100" And .Range("B49").Value = "Serreur" Then
                Me.ComboBox3.ListFillRange = Poteau_1100Serreur
                Me.ComboBox3.ListIndex = 0
                Me.ComboBox3.ListRows = 2
            End If
            If .Range("B43").Value = "W80" And .Range("B49").Value = "VEC" Then
                Me.ComboBox4.ListFillRange = Cadre_VEC
                Me.ComboBox4.ListIndex = 0
                Me.ComboBox4.ListRows = 4
            End If
            If .Range("B43").Value = "W80" And .Range("B49").Value = "VEP" Then
                Me.ComboBox4.ListFillRange = Cadre_VEP
                Me.ComboBox4.ListIndex = 0
                Me.ComboBox4.ListRows = 4
            End If
            If .Range("B43").Value = "W44" And .Range("B49").Value = "Serreur" Then
                Me.ComboBox4.ListFillRange = Cadre_Serreur
                Me.ComboBox4.ListIndex = 0
                Me.ComboBox4.ListRows = 3
            End If
            If .Range("B43").Value = "W44" And .Range("B49").Value = "Serreur+OF" Then
                Me.ComboBox4.ListFillRange = Cadre_SOF
                Me.ComboBox4.ListIndex = 0
                Me.ComboBox4.ListRows = 3
            End If
            If .Range("B43").Value = "1100" And .Range("B49").Value = "Serreur" Then
                Me.ComboBox4.ListFillRange = Cadre_1100Serreur
                Me.ComboBox4.ListIndex = 0
                Me.ComboBox4.ListRows = 2
            End If
            If .Range("B43").Value = "W80" And .Range("B49").Value = "VEC" Then
                Me.ComboBox5.ListFillRange = Joint_VEC
                Me.ComboBox5.ListIndex = 0
                Me.ComboBox5.ListRows = 5
            End If
            If .Range("B43").Value = "W80" And .Range("B49").Value = "VEP" Then
                Me.ComboBox5.ListFillRange = Joint_VEP
                Me.ComboBox5.ListIndex = 0
                Me.ComboBox5.ListRows = 3
            End If
            If .Range("B43").Value = "W44" And .Range("B49").Value = "Serreur" Then
                Me.ComboBox5.ListFillRange = Joint_Serreur
                Me.ComboBox5.ListIndex = 0
                Me.ComboBox5.ListRows = 3
            End If
            If .Range("B43").Value = "W44" And .Range("B49").Value = "Serreur+OF" Then
                Me.ComboBox5.ListFillRange = Joint_SOF
                Me.ComboBox5.ListIndex = 0
                Me.ComboBox5.ListRows = 1
            End If
            If .Range("B43").Value = "1100" And .Range("B49").Value = "Serreur" Then
                Me.ComboBox5.ListFillRange = Joint_1100Serreur
                Me.ComboBox5.ListIndex = 0
                Me.ComboBox5.ListRows = 1
            End If
        End With
End Sub

Comme tu peux le remarquer la combobox 2 est définit en _Click,
Dois-je changer au profit de _Change ?

Dans ce cas précis, ou positioné la commande MAJ ?

Cordialement,
Defter

**Defter** · 24/10/2011, 11h23

Je reviens pour dire que j'ai résolu mon problème,

Merci JFontaine pour l'info !

Donc à la suite de mon code j'ai rajouté comme tu as précisé :

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
Private Sub ComboBox3_Click()
 
MAJ
 
End Sub
Private Sub ComboBox4_Click()
 
MAJ
 
End Sub
Private Sub ComboBox5_Click()
 
MAJ
 
End Sub
 
Sub MAJ()
 
    Sheets("Data").Range("D43").Value = ComboBox3.Value
    Sheets("Data").Range("D44").Value = ComboBox4.Value
    Sheets("Data").Range("D45").Value = ComboBox5.Value
 
End Sub

Ca marche parfaitement, merci beaucoup pour l'aide apportée

A bientôt
Defter

Actualiser le liens combobox / Cellules [XL-2007]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager