Bonjour à tous,
Je rencontre un souci de "débutant" sous OpenOffice.
Sous Excel j'utilise un simple code afin de détecter une sélection dans une liste déroulante et de modifier la couleur d'une plage donnée, mais je n'arrive pas à le transposer sous Calc.
Pourriez vous me donner un coup de main ?
Voici mon code Excel
Code vba : 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 Private Sub Worksheet_Change(ByVal Target As Range) If Cells(Target.Row, 2) = "PI" Then Range("A" & Target.Row & ":L" & Target.Row).Interior.Color = RGB(255, 0, 0) ElseIf Cells(Target.Row, 2) = "A RAP" Then Range("A" & Target.Row & ":L" & Target.Row).Interior.Color = RGB(255, 128, 100) ElseIf Cells(Target.Row, 2) = "RDV" Then Range("A" & Target.Row & ":L" & Target.Row).Interior.Color = RGB(0, 255, 0) Else Range("A" & Target.Row & ":L" & Target.Row).Interior.Color = RGB(255, 255, 255) End If With Range("A" & Target.Row & ":L" & Target.Row) .Borders.LineStyle = xlContinuous .Borders.ColorIndex = 15 End With End Sub
D'avance merci
Fred
Partager