Transposer un code Excel vers Calc
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:
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