Bonjour,
Je l'avoue, VBA n'est pas trop mon point fort ;-(
J'essaye de mettre une combobox avec la condition d'une autre combobox:
Je m'explique:
La combobox4 est reliée a une liste de 2 éléments et je voudrai, que la Combobox1 s'adapte à 2 listes différentes (si combobox4 = 0 alors rowsource.combobox1 = liste n°1 ; si combobox4 = 1 alors rowsource.combobox1 = liste n°2)
Voilà, j'ai développé le "truc" suivant qui dans la logique devrait fonctionner...
Private Sub ComboBox4_Change()
If ComboBox4.ListIndex = 0 Then
ActiveWorkbook.Names.Add Name:="ListeEqu", RefersTo:=("liste!$A$31:$A$" & Range("$A$31" ).End(xlDown).Row)
Else
ActiveWorkbook.Names.Add Name:="ListeEqu", RefersTo:=("liste!$C$31:$C$" & Range("$C$31" ).End(xlDown).Row)
End If
Range("A" & 4).Value = ComboBox1.Text
End Sub
La combobox4 marche cependant la combobox1 reste vide en mode fonctionnement
Il n'y aucun message d'erreur.
Est-ce que quelqu'un a la solution?
Merci d'avance
