Discussion :

[Un Internaute]

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

[Un Internaute]

J'ai trouvé c'était un problème d'ordre dans mon tableau!
Oui c'était bien tout C$N!!!
Avec toutes mes excuses
Bonne journée à tous