Bonjour,
Je dispose d'un UF comprenant une multitude de combobox. Nous nous intéresserons à un combobox qui gère une priorité. 4 Valeurs sont possibles: 0 , 1 , 2 ou 3. Pour chaque valeur une couleur différente.
J'ai 2 solutions:
* Soit je gère directement via l'UF et la valeur de la combobox.
* Soit je gère directement via la feuille en question, en controllant la valeur de la cellule où est sensé être transférée la combobox.value
Quel est le plus simple ? Avez-vous des pistes pour m'éclaircir ?
Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 Sub colorier() Dim i As Long For i = 0 To 3 Cells(4, 8).Value = i If i = 0 Then Cells(4, 8).Interior.Color = RGB(255, 0, 0) If i = 1 Then Cells(4, 8).Interior.Color = RGB(255, 168, 0) If i = 2 Then Cells(4, 8).Interior.Color = RGB(255, 255, 0) If i = 3 Then Cells(4, 8).Interior.Color = RGB(0, 255, 0) End If End If End If End If Next i End Sub
Partager