Discussion :

[ValerieH34]

Bonjour
C'est encore moi et mes SELECT CASE
J'ai les données d'une ComboBox qui doivent me servir pour compléter 2 autres ComboBox
J'ai le message d'erreur "Erreur de compilation : Nom ambigu détecté : ComboBox5_Click"
Voici les 2 fonctions.
Comment régler ce problème ?

Code :

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

1
2
3
4
5
6
Private Sub ComboBox5_Click()
    Select Case ComboBox5.Value
        Case "LR": ComboBox6.List = Array("IT", "PAT", "LAN")
        Case "LE": ComboBox6.List = Array("CEN", "EST")
    End Select
End Sub

et

Code :

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

1
2
3
4
5
6
Private Sub ComboBox5_Click()
    Select Case ComboBox5.Value
        Case "LR": ComboBox8.List = Array("164", "35", "156")
        Case "LE": ComboBox6.List = Array("568", "659")
    End Select
End Sub

D'avance merci

[joe.levrai]

Tu ne peux pas avoir deux procédure portant le même nom

tu dois tout faire dans une macro

un seul select case suffit, pour chaque case tu alimentes tes deux combobox

[Invité]

d’abord, tu continues à écrire Private Sub ComboBox5_Click() et non change!
et tu ne trouves pas qu'écrire 2 événement identique soit un bonne raison de perturber VBA?

[ValerieH34]

Justement j'ai vu ma boulette et j'ai fait la modification
Mais j'ai ensuite le message "Erreur d'exécution '9' : L'indice n'appartient pas à la sélection"

un seul select case suffit, pour chaque case tu alimentes tes deux combobox

En ne faisant qu'un seul select j'ai le même message d'erreur "Erreur d'exécution '9' : L'indice n'appartient pas à la sélection"

Code :

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

1
2
3
4
5
6
7
8
Private Sub ComboBox5_Click()
    Select Case ComboBox5.Value
        Case "LR": ComboBox6.List = Array("IT", "PAT", "LAN")
        Case "LE": ComboBox6.List = Array("CEN", "EST")
        Case "LR": ComboBox8.List = Array("164", "35", "156")
        Case "LE": ComboBox8.List = Array("568", "659")
    End Select
End Sub

J'ai un conflit et je ne sais pas comment le régler

[vinc_bilb]

Bonjour,

Sur quelle ligne est l'erreur?

Code :

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

1
2
3
ComboBox5_Click()
    Select Case ComboBox5.Value
        Case "LR": ComboBox6.List = Array("IT", "PAT", "LAN")

=> Le 5 ou le 6? Quel est le type de ComboBox6.List ? (fonction VarType)

[ValerieH34]

Rdupupt,
Encore une fois tout fonctionne
Voila le résultat

Code :

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

1
2
3
4
5
6
Private Sub ComboBox5_Change()
    Select Case ComboBox5.Value
        Case "LR": ComboBox6.List = Array("IT", "PAT", "LAN"): ComboBox8.List = Array("164", "35", "156")
        Case "LE": ComboBox6.List = Array("CEN", "EST"): ComboBox8.List = Array("568", "659")
    End Select
End Sub

Merci pour ces partages d'expérience pour des personnes comme moi

[Invité]

ton code devrait ressembler à ça

Code :

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

1
2
3
4
5
6
Private Sub ComboBox5_Change()
    Select Case ComboBox5.Value
        Case "LR": ComboBox6.List = Array("IT", "PAT", "LAN"): ComboBox8.List = Array("164", "35", "156")
        Case "LE": ComboBox6.List = Array("CEN", "EST"): ComboBox8.List = Array("568", "659")
    End Select
End Sub

dit nous ou ce trouve lerreur N° de ligne, ou place le bout de code qui cloche si il ce trouve dans une autre procédure!