Re: [fr-qa] [calc] mémorisation des couleurs dans une cellule par une sauvegarde

Bonsoir

Je ne reproduis pas.
J'ai fait des tests sur Windows 10 et Debian 10 (toutes les mises à jour 
faites sur ces deux systèmes).
Avec les versions 7.2.7.2 puis 7.3.5.2 de Libre Office, et en ouvrant le 
fichier une première fois sans activer les macros, puis une seconde fois 
avec activation des macros.
La cellule B14 - titre Capacité raciale : - à un fond blanc et une 
écriture rouge foncé 2, dans tous les cas.

J'ai colorisé cette case comme la C21 (Voie 1), enregistré le fichier 
sous un autre nom, puis refait tous les tests et la case à bien le fond 
en rouge foncé 2 et les caractères en blanc.

Je n'ai pas fait les tests avec Loo 7.4 car, je n'ai pas encore installé 
cette version sur mes machines virtuelles.

Bien cordialement,
Patrick

----------------------------------------------------------
Lorsque tu arrives en haut de la montagne, continue de grimper. ;)

Le 26/08/2022 à 09:27, Bernard Siaud alias Troumad a écrit :
> Le 25/08/2022 à 19:16, Bernard Siaud alias Troumad a écrit :
> > Bonjour
> >
> > Voici un fichier test (vous l'avez déjà vu passer plus d'une fois...)
> >
> > https://troumad.org/COF/Feuille_Chronique.ods
> >
> > Si vous regardez par exemple la case B15 de la page recto, 
> > normalement le titre est d'une autre couleur. Il en est de même pour 
> > les cases de B23 à S27.
> >
> > Enfin normalement, ça veut dire quoi ?
> >
> > Elles ont été sauvegardées avec le titre en couleur. Quand on ouvre 
> > le document (sans lancer les macros) le texte dans les cases est tout 
> > en noir. Les lignes 21 à 27 des macros standard "armures" relancent 
> > les procédures qui colorient les cases afin de mettre les couleurs 
> > souhaitées. Elles s'exécutent automatiquement au démarrage : donc si 
> > on permet les macros, on ne se rend compte de rien.
> J'ai comme l'impression que le mise en forme à l'intérieur des cases 
> du tableur est très instable. La fonction ci-dessous parfois enlève la 
> mise en forme, et parfois, elle la maintient. Normalement, elle ne 
> devrait agir que sur la taille des caractères, pas leur couleur ou le 
> fait que les caractères soit en gras ou non. Sur des cases mises en 
> forme de la même manière, les résultats sont différents. Le plus 
> surprenant, c'est que j'ai toujours le même résultat, c'est toujours 
> les mêmes cases qui perdent leur mise en forme, parfois la couleur ou 
> la couleur + les caractères mis en gras
>
>
> sub taille_caract(page as integer,xj as integer,y as integer,dx as 
> integer,dy as integer,taille_c as single)
> rem 
> ----------------------------------------------------------------------
> rem define variables
> dim document   as object
> dim dispatcher as object
> dim xf as string
> dim i,j as integer
> dim x as string
>
>
> j=xj+1
>
> x=""
> while j>25
>  x=x+chr$(asc("A")+(j-1) mod 26)
>  j=j/26
> wend
> x= "$"+chr$(asc("A")+j-1)+x+"$"+y
>
>
> j=xj+dx+1
> xf=""
> while j>25
>  xf=xf+chr$(asc("A")+(j-1) mod 26)
>  j=j/26
> wend
> xf=x+":$"+chr$(asc("A")+j-1)+xf+"$"+(y+dy)
>
> rem 
> ----------------------------------------------------------------------
> rem get access to the document
> document   = ThisComponent.CurrentController.Frame
> dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
>
> rem 
> ----------------------------------------------------------------------
> rem dim args1(0) as new com.sun.star.beans.PropertyValue
> rem args1(0).Name = "ToPoint"
> rem args1(0).Value =x
> rem dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
>
> dim args1(0) as new com.sun.star.beans.PropertyValue
> args1(0).Name = "Nr"
> args1(0).Value =  page+1
>
> dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())
>
> rem 
> ----------------------------------------------------------------------
> dim args2(0) as new com.sun.star.beans.PropertyValue
> args2(0).Name = "ToPoint"
> args2(0).Value = xf
>
> dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
>
> rem 
> ----------------------------------------------------------------------
> dim args3(2) as new com.sun.star.beans.PropertyValue
> args3(0).Name = "FontHeight.Height"
> args3(0).Value = taille_c
> args3(1).Name = "FontHeight.Prop"
> args3(1).Value = 100
> args3(2).Name = "FontHeight.Diff"
> args3(2).Value = 0
>
> dispatcher.executeDispatch(document, ".uno:FontHeight", "", 0, args3())
>
>
> end sub

--
Envoyez un mail à qa+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/qa/
Privacy Policy: https://www.documentfoundation.org/privacy