1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60
| Private Sub Worksheet_Change(ByVal Target As Range)
'Target.Column = "N° de la colonne"
'Then Range("colonne en lettre ou l'on veux afficher une valeur" & Target.Row).Value = "Ce que l'on veux faire afficher"
'Else("colonne en lettre que l'on veux effacer si il n'y a rien dans la 1ère colonne désigné" & Target.Row).ClearContents
If Target.Column = 9 Then If Not (IsEmpty(Target.Value)) Then Range("J" & Target.Row).Value = Date _
Else Range("J" & Target.Row).ClearContents
'Coloration de ligne en fonction du texte
'Si qqch dans la colonne "I" => coloration de la ligne de la case "A" à "M"
'Si suppr dans la colonne "I" => la coloration s'efface de la case "A" à "M"
Dim Plg, Plage As Range
Set Plage = Range("I:I")
Set Plg = Range("A" & Target.Row & ":M" & Target.Row)
If Not Application.Intersect(Target, Plage) Is Nothing And Target.Count = 1 Then
Select Case Target
Case Is = "AN": Plg.Interior.Color = RGB(72, 198, 5) 'vert
Case Is = "HE": Plg.Interior.Color = RGB(225, 206, 154) 'Vanille
Case Is = "CH": Plg.Interior.Color = RGB(212, 115, 212) 'mauve
Case Is = "VE": Plg.Interior.Color = RGB(84, 249, 141) 'menthe a l'eau
Case Is = "FO": Plg.Interior.Color = RGB(255, 203, 96) 'aurore
Case Is = "NA": Plg.Interior.Color = RGB(44, 117, 255) 'bleu électrique
Case Is = "FG": Plg.Interior.Color = RGB(255, 255, 0) 'jaune
Case Is = "MZ": Plg.Interior.Color = RGB(231, 62, 1) 'abricot
Case Is = "ML": Plg.Interior.Color = RGB(254, 191, 210) 'rose dragée
Case Is = "CO": Plg.Interior.Color = RGB(128, 208, 208) 'givré
Case Else: Plg.Interior.Pattern = xlNone
End Select
End If
'Si "x" dans la colonne "M" => coloration de la ligne de la case "A" à "M"
'Si suppr du "x" dans la colonne "M" => suppr de la couleur de "x" de la case "A" à "M" puis retour à la couleur souhaiter en fonction de "I"
'Cette dernière ne fonctionne pas
Set Plage = Range("M:M")
Set Plg = Range("A" & Target.Row & ":M" & Target.Row)
If Not Application.Intersect(Target, Plage) Is Nothing And Target.Count = 1 Then
If Target.Value = "x" Then
Plg.Interior.Color = RGB(153, 51, 204) 'magenta foncé
ElseifTarget.Value = ""
Select Case Cells(Target.Row, 9).Value
Case Is = "AN": Plg.Interior.Color = RGB(72, 198, 5) 'vert
Case Is = "HE": Plg.Interior.Color = RGB(225, 206, 154) 'Vanille
Case Is = "CH": Plg.Interior.Color = RGB(212, 115, 212) 'mauve
Case Is = "VE": Plg.Interior.Color = RGB(84, 249, 141) 'menthe a l'eau
Case Is = "FO": Plg.Interior.Color = RGB(255, 203, 96) 'aurore
Case Is = "NA": Plg.Interior.Color = RGB(44, 117, 255) 'bleu électrique
Case Is = "FG": Plg.Interior.Color = RGB(255, 255, 0) 'jaune
Case Is = "MZ": Plg.Interior.Color = RGB(231, 62, 1) 'abricot
Case Is = "ML": Plg.Interior.Color = RGB(254, 191, 210) 'rose dragée
Case Is = "CO": Plg.Interior.Color = RGB(128, 208, 208) 'givré
Case Else: Plg.Interior.Pattern = xlNone
End Select
End If
End If
End Sub |
Partager