Fonction si et combobox [Résolu]

Skyner68 3 Messages postés vendredi 13 octobre 2017Date d'inscription 13 octobre 2017 Dernière intervention - 13 oct. 2017 à 09:15 - Dernière réponse : Skyner68 3 Messages postés vendredi 13 octobre 2017Date d'inscription 13 octobre 2017 Dernière intervention
- 13 oct. 2017 à 10:41
Bonjour,

J'ai créé une petite application pour le boulot dans laquelle j'utilise des combobox situé dans des userform que j'ai paramétré au niveau de la source de données de cette façon

private sub userform_initialize()
Combobox1.list = sheets ("param"). Range ("a2:a17").value
End sub


Cela fonctionne parfaitement !

Ma question est
Peut-on, en utilisant la fonction if (ou autre), modifier automatiquement la plage de données en fonction de la valeur d'une cellule donné ?

En gros si A1=maison alors on prend pour combobox1 la plage A1:A12 et si c'est garage alors on prend la plage B1:B12

Merci d'avance
Afficher la suite 

4 réponses

Répondre au sujet
f894009 12542 Messages postés dimanche 25 novembre 2007Date d'inscription 16 décembre 2017 Dernière intervention - 13 oct. 2017 à 10:05
0
Utile
3
Bonjour,

Ben oui, c'est tout ecrit dans votre deuxieme phrase.......
Skyner68 3 Messages postés vendredi 13 octobre 2017Date d'inscription 13 octobre 2017 Dernière intervention - 13 oct. 2017 à 10:07
Je me doute mais comment ? ^^ j'ai essayé plusieurs code trouver sur le net et ça ne marche pas :/
f894009 12542 Messages postés dimanche 25 novembre 2007Date d'inscription 16 décembre 2017 Dernière intervention > Skyner68 3 Messages postés vendredi 13 octobre 2017Date d'inscription 13 octobre 2017 Dernière intervention - 13 oct. 2017 à 10:14
Re,
Ah oui, mais les instructions sont en anglais pas en francais......

Petite plaisanterie

Private Sub userform_initialize()
    With Sheets("param")
        If .Range("A1") = "maison" Then
            Set plage = .Range("A2:A17")
        ElseIf .Range("A1") = "garage" Then
            Set plage = .Range("B2:B17")
        Else
        End If
        ComboBox1.List = plage.Value
    End With
End Sub
Skyner68 3 Messages postés vendredi 13 octobre 2017Date d'inscription 13 octobre 2017 Dernière intervention > f894009 12542 Messages postés dimanche 25 novembre 2007Date d'inscription 16 décembre 2017 Dernière intervention - 13 oct. 2017 à 10:41
Parfait c'est nickel merci pour la réponse rapide
Commenter la réponse de f894009