Discussion :

[sbobi]

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

[a_diard]

Je ne comprend pas la question ????

au moment du transfert de la valeur dans la cellule

tu as : la valeur et l'adresse de la cellule

il te suffit donc de mettre la couleur qui correspond eu même temps ?????

[sbobi]

Oui c'est exactement cela. Lorsque je clique sur le bouton "Valider" de mon UF, cela transfert les données dans la feuille Excel.
J'avais mis cela comme 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
priorite.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

Seulement, quelque soit la valeur de ma combobox, la couleur de fond de la cellule reste au rouge.

[a_diard]

c'est normal

dans ton code tu as :

For i = 0 To 3

la couleur à la fin du code correspond à i =3

il faut que tu mette la valeur du comobox dans i

[Menhir]

Sans compter que ta série de If ne tient pas la route.

L'action après If i = 1 ne se déclenchera jamais puisque déjà pour arriver jusqu'à ce If, il faut que i soit égal à 0.

Bref, la structure de ton code est à revoir.