R
rud@ï
Guest
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
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