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
 

si vous ne savez pas, pouvez-vous jeter un p'tit coup à ma question n°2:
 
voir 2°sujet combobox
SVP
Merci