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:
Merci d'avance pour vos retours
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
Cordialement
Partager