Problème sur la fonction SELECT CASE (ter)

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:

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:

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

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

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?

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"

Citation:

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:

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

ton code devrait ressembler à ça
Code:

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!

Bonjour,

Sur quelle ligne est l'erreur?
Code:

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)

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

Code:

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 moi8O