Discussion :

[texas2607]

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

[Bidouille]

Il n'y a pas besoin de macro pour faire cela.
On passe par le formatage conditionnel.

[texas2607]

Bonjour et merci de ta réponse,
Mais par le formatage conditionnel comment faire pour mettre une série de cellule en fond rouge.
Ex sur ma 1ere condition en fonction de la cellule ciblée je change le fond sur une série de cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If Cells(Target.Row, 2) = "PI" Then
    Range("A" & Target.Row & ":L" & Target.Row).Interior.Color = RGB(255, 0, 0)

Cdt,
Fred

[texas2607]

Salut,
Est ce qu'une personne aurait la réponse ?
D'avance merci

Fred

[Z_662]

Bonjour texas2607

Si tu joignais un fichier exemple avec des explications sur le résultat attendu, ça multiplierait tes chances d'obtenir une réponse pertinente.

a+

[texas2607]

Bonsoir,
En fait l'explication est simple. J'ai des données qui vont des colonnes A à L, en fonction de la valeur sélectionnée dans une liste déroulante en colonne B je dois colorer la ligne complète.
Ex :
Si on sélectionne dans la liste déroulante "PI" en B2 alors la ligne de A2 à L2 doit être en fond rouge,
Si on sélectionne "ZR" en B5 alors la ligne de A5 à L5 doit se colorer en fond bleu.... Etc

Je suis sur ma tablette et sans mon fichier exemple, si besoin je peut mettre mon fichier Excel en exemple demain.

Cdt,
Fred

[Z_662]

Dans le fichier joint, sélectionne une entrée au choix dans la liste déroulante colonne B puis une autre sur une ligne différente ou la même ligne.
Pour comprendre, menu Format=>Formatage conditionnel.
Soit attentif au type d'adressage relatif ou absolu donné aux références de la colonne B

Texas2607.ods

a+

[texas2607]

Salut,
Merci énormément pour ta réponse. C'est exactement ça

Cdt,
Fred