Discussion :

[abdellahtadjine31]

bonjours,
bonjour yg_be, voici le lien de mon fichier qui consiste a faire une application de gestion d’école (privée), mais la je bloque...
mon problème c'est quand je sélectionne feuil1 dans la combobox2 je souhaite que la valeur combobox1 soit alimentée par feuil1 range a2:a3(par exemple)

et quand je sélectionne feuil2 dans la combobox2 je souhaite que la valeur de la combobox1 = feuil2 range a2:a3(par exemple) et ainsi de suite car j'ai plusieurs feuils.

https://www.cjoint.com/c/JDlq5w8Taax

merci cordialement abdallah

https://www.cjoint.com/c/JDlq5w8Taax

[ARTURO83]

Bonjour,

2 Problèmes détectés
-La première ligne du tableau des feuilles 1,2 et 3 commence à la ligne 3 au lieu de la ligne 2.
-Attention à l'orthographe: trouvé "feui1" au lieu de "feuil1", idem pour les autres noms de feuilles.

le code corrigé:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Combobox2_Change()
    Select Case combobox2.Value
        Case Is = "feuil1"
            ComboBox1.RowSource = "feuil1!a2:a20"
        Case Is = "feuil2"
            ComboBox1.RowSource = "feuil2!a2:a20"
        Case Is = "feuil3"
            ComboBox1.RowSource = "feuil3!a2:a20"
    End Select
End Sub

le fichier
Pièce jointe 555357

Cdlt

[Menhir]

Plus simple :

Code :

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

1
2
3
Private Sub Combobox2_Change()
    ComboBox1.RowSource = "'" & Combobox2.Value & "!a2:a20"
End Sub