Bonjour le forum,
Lorsque je choisis dans Userform => Nouveau traitement je veux que ma cellule devienne jaune et lorsque je fais un autre choix rose saumon

Voici le 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
Private Sub ComboBox1_Change()
    Set q = Range("Traitements")
    For N = 1 To q.Rows.Count
    If q.Cells(N, 1) = "" Then       'And q.Cells(N, 1).Offset(0, -6) = Date Then
    q.Cells(N, 1).Value = CStr(ComboBox1)
    Exit For
    End If
    Next N
    q.Cells(N, 1).Activate
    If q.Cells(N, 1) = "Nouveau Traitement" Then
    q.Cells(N, 1).Interior.ColorIndex = 6
    End If
    If q.Cells(N, 1) <> "Nouveau Traitement" Then
    q.Cells(N, 1).Interior.ColorIndex = 38
    End If
    Unload Traitements
 
End Sub
Merci d'avance pour vos retours
Cordialement