Fonction si et combobox

Résolu
Skyner68 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
Skyner68 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Ben oui, c'est tout ecrit dans votre deuxieme phrase.......
0
Skyner68 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Je me doute mais comment ? ^^ j'ai essayé plusieurs code trouver sur le net et ça ne marche pas :/
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > Skyner68 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention   > f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention  
 
Parfait c'est nickel merci pour la réponse rapide
0