Merci Yves Dutrieux, cela me dépasse un peu ...
Aussi j'identifie pas ton tableau (mescouleurs() ?) dans tes 2 macros ci
dessous :
REM ***** BASIC *****
sub DiffCouleur10cYD1
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent
curseur=ThisComponent.currentcontroller.ViewCursor
' change les 10 caractères qui suivent le curseur courant par une couleur
aléatoire
for i = 1 to 10
curseur.goright(1,true)
curseur.CharColor=rgb(i*24,0,0)
curseur.CharColor=rnd()*16581375
curseur.goleft(1,false)
curseur.goright(1,false)
next
end sub
ou
REM ***** BASIC *****
REM ***** BASIC *****
sub DiffCouleurAleatoire10cYD2
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent
curseur=ThisComponent.currentcontroller.ViewCursor
' change les 10 caractères qui suivent le curseur courant par une couleur
aléatoire
for i = 1 to 10
curseur.goright(1,true)
curseur.CharColor=rgb(i*24,0,0)
curseur.CharColor=rnd()*16581375
curseur.goleft(1,false)
curseur.goright(1,false)
next
end sub
-----
Utilise Libreoffice avec Ubuntu
--
Sent from:
http://document-foundation-mail-archive.969070.n3.nabble.com/Users-f1744091.html
--
Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy
