Combobox fonction d'une autre combobox

[Erplast]

Bonjour,

Pouvez vous me dire pourquoi ce code ne fonctionne pas ?

Private Sub ComboBox15_Change()

With sheets(Feuil1!)

If ComboBox1.Value = "Menuiseries Extérieures" Then ComboBox15.rowlist = ("B17:B29")

End Sub


Merci d'avance !

 

[jpb388]

Re : Combobox fonction d'une autre combobox

bonjour a tous
essayer ceci

Private Sub ComboBox15_Change()

 With sheets(Feuil1!)

 If ComboBox1.Value = "Menuiseries Extérieures" Then ComboBox15.rowsource = "B17:B29"

 End Sub

 

[Si...]

Re : Combobox fonction d'une autre combobox

salut

une mauvaise utilisation de With.

Private Sub ComboBox15_Change()
  If ComboBox1 = "Menuiseries Extérieures" Then ComboBox15.List = Sheets(Feuil1).[B17:B29].Value
 End Sub

 

[Erplast]

Re : Combobox fonction d'une autre combobox

Bonjour,

Cela ne marche pas et je ne comprends pas pourquoi ...

 

[Pierrot93]

Re : Combobox fonction d'une autre combobox

Bonjour,

avec les guillemets dans le "sheets" :

If ComboBox1 = "Menuiseries Extérieures" Then ComboBox15.List = Sheets("Feuil1").[B17:B29].Value

bonne journée
@+

 

[Si...]

Re : Combobox fonction d'une autre combobox

re

merci Ppierrot

 

[Erplast]

Re : Combobox fonction d'une autre combobox

Bonjour,

J'avais bien rajouté les " " pour sheets("Données") . Mais cela ne marche toujours pas. Peut être y'a t il une autre solution ?

 

[Pierrot93]

Re : Combobox fonction d'une autre combobox

Re,

Mais cela ne marche toujours pas

cela veut dire quoi ? message d'erreur ou pas le résultat attendu ?

 

[Erplast]

Re : Combobox fonction d'une autre combobox

Quand je selectionne "Menuiseries Extérieures" dans ma Combobox1 rien ne s'affiche dans ma combobox15...

Par contre, il me vient à l'esprit une nouvelle donnée, je suis dans un userform. Cela change t il qq ch ?

 

[kingfadhel]

Re : Combobox fonction d'une autre combobox

Bonsoir forum,

il faut mettre un fichier pour mieux comprendre le problème.
J'ai créé un fichier comme j'ai cru qu'il ressemble au tien.