Fonction si et combobox

Résolu/Fermé
Skyner68 Messages postés 3 Date d'inscription vendredi 13 octobre 2017 Statut Membre Dernière intervention 13 octobre 2017 - Modifié le 13 oct. 2017 à 09:16
Skyner68 Messages postés 3 Date d'inscription vendredi 13 octobre 2017 Statut Membre Dernière intervention 13 octobre 2017 - 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
A voir également:

1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
13 oct. 2017 à 10:05
Bonjour,

Ben oui, c'est tout ecrit dans votre deuxieme phrase.......
0
Skyner68 Messages postés 3 Date d'inscription vendredi 13 octobre 2017 Statut Membre Dernière intervention 13 octobre 2017
13 oct. 2017 à 10:07
Je me doute mais comment ? ^^ j'ai essayé plusieurs code trouver sur le net et ça ne marche pas :/
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Skyner68 Messages postés 3 Date d'inscription vendredi 13 octobre 2017 Statut Membre Dernière intervention 13 octobre 2017
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
0
Skyner68 Messages postés 3 Date d'inscription vendredi 13 octobre 2017 Statut Membre Dernière intervention 13 octobre 2017 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
13 oct. 2017 à 10:41
Parfait c'est nickel merci pour la réponse rapide
0