inhiber ComboBox

[rud@ï]

Bonsoir XLDnautes
une tite question!
J'ai trois comboBoxs et je voudrais que si l'on fait fait un choix dans une des comboboxs, les deux autres soient inhibées!

J'utilise ce code:
If ComboBox3.Value = 'Création de TS' Then
.Range('N' & L) = 'ý'
.Range('S' & L).Interior.Color = RGB(0, 99, 33)
.Range('T' & L).Interior.Color = RGB(0, 99, 33)
.Range('U' & L).Interior.Color = RGB(0, 99, 33)
.Range('V' & L).Interior.Color = RGB(0, 99, 33)
End If
If ComboBox3.Value = 'Création de TM' Then
.Range('N' & L) = 'ý'
.Range('S' & L).Interior.Color = RGB(0, 99, 33)
.Range('T' & L).Interior.Color = RGB(0, 99, 33)
.Range('U' & L).Interior.Color = RGB(0, 99, 33)
.Range('V' & L).Interior.Color = RGB(0, 99, 33)
End If

If ComboBox4.Value = 'Refonte BT' Then
.Range('O' & L) = 'ý'
.Range('S' & L).Interior.Color = RGB(0, 99, 33)
.Range('T' & L).Interior.Color = RGB(0, 99, 33)
.Range('U' & L).Interior.Color = RGB(0, 99, 33)
.Range('V' & L).Interior.Color = RGB(0, 99, 33)
End If

If ComboBox5.Value = 'Migration' Then
.Range('P' & L) = 'ý'
.Range('S' & L).Interior.Color = RGB(0, 99, 33)
.Range('T' & L).Interior.Color = RGB(0, 99, 33)
.Range('U' & L).Interior.Color = RGB(0, 99, 33)
.Range('V' & L).Interior.Color = RGB(0, 99, 33)
End If
If ComboBox5.Value = 'Changement n° de TI' Then
.Range('P' & L) = 'ý'
.Range('V' & L).Interior.Color = RGB(0, 99, 33)
End If
If ComboBox5.Value = 'Changement n° de tranche' Then
.Range('P' & L) = 'ý'
.Range('S' & L).Interior.Color = RGB(0, 99, 33)
.Range('V' & L).Interior.Color = RGB(0, 99, 33)
End If
If ComboBox5.Value = 'Modification valeur max TM' Then
.Range('P' & L) = 'ý'
.Range('S' & L).Interior.Color = RGB(0, 99, 33)
.Range('V' & L).Interior.Color = RGB(0, 99, 33)
End If

Merci d'avance

 

[porcinet82]

Salut rud@ï,

Comme je ne sais pas trop ce que tu voulais, je t'ai préparé un peit fichier dans lequel j'espère tu trouveras ton bonheur. Si ce n'est pas le cas, n'hesite pas a refaire signe.

[file name=test_20060227204541.zip size=8727]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20060227204541.zip[/file]

@+

 

[rud@ï]

Bonsoir porcinet82!
Merci c nickel c ce que je voulais!
juste un tite chose, quand on fais un choix pour la combobox2 et que l'on change le choix avec le button, la combobox1 n'est pas valide et il faut reclicker sur le button pour la revalider.

Mais bon je vais chercher et sinon si tu as une explication, je suis preneur!

Merci beaucoup

 

[porcinet82]

Salut rud@ï,

J'ai effectivement une explication, quand tu executes le code avec la touche F8, tu vois que comme j'utilisais dans le code Private Sub ComboBox3_Change(), lorsqu'avec le bouton, je voulais changer le choix, la combo2 changeait, et donc le code de celle-ci remettait la combo1 en 'inaccessible'.

Il faut donc mettre plutot Private Sub ComboBox3_Click() a la place de Private Sub ComboBox3_Change() pour les 3 combo et ca devrait le faire.

@+

 

[rudymagny]

Bonsoir le forum, Porcinet82!
Ouais faudrait que je pense plus souvent à utiliser le pas à pas!
Enfin c cool merci!

@+ tard
Salut