Bonjour,
Le code couleur d’arrière plan des cellules de calc affiché par le générateur de macro ne correspond pas au code RVB
par ex RVB jaune 255 233 54
Macro 167 76 960 ??
Où trouver ce code ?
Merci
Bonjour
En basic tu peux utiliser la fonction RGB (Rouge, Vert, Bleu) qui renvoie une valeur de couleur de type entier long comprenant les composants rouge, vert et bleu.
Par exemple le code suivant affiche 16711680 pour le rouge :
thiscomponent.currentselection.cellBackColor = rgb(255,0,0)
print thiscomponent.currentselection.cellBackColor
Dans Calc tu peux utiliser la fonction COULEUR.
Par exemple =COULEUR(255;0;0) donne 16711680 (rouge)
Cette page d’aide recense par ailleurs ls valeurs des 16 couleurs de base.
Cordialement
Merci pour ta réponse rapide
Je joint une copie de macro où j’ai remplacé le code généré par une de tes propositions
En fait le but est d’afficher des drapeaux d’état pour lesquels les couleurs sont définies en code RVB (entre autres)
C’est plus simple de pouvoir afficher ce code que de pêcher dans la palette
Cordialement
Sub Macro1
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
'code générateur macro mis en remarque'
'dim args17(0) as new com.sun.star.beans.PropertyValue'
'args17(0).Name = "ToPoint"'
'args17(0).Value = "$F$14:$f$20"'
'dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args17())'
rem ----------------------------------------------------------------------
'dim args26(0) as new com.sun.star.beans.PropertyValue'
'args26(0).Name = "BackgroundColor"'
'args26(0).Value =16711680'
'rouge'
dim args17(0) as new com.sun.star.beans.PropertyValue
args17(0).Name = "ToPoint"
args17(0).Value = "$F$14:$f$20"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args17())
'ligne ci-dessous pour remplacer arg26'
thiscomponent.currentselection.cellBackColor = rgb(255,0,0)
End Subeuh… désolé mais je ne comprends pas si ma réponse est suffisante ou si tu as besoin d’autres éclaircissements ?
euh…effectivement j’ai oublié de conclure en disant que les renseignements fournis avaient résolus mes interrogations ,toutes mes excuses et merci encore