Fonction si et combobox

Résolu
Skyner68 Messages postés 3 Statut Membre -  
Skyner68 Messages postés 3 Statut Membre -
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

1 réponse

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

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