Bonjour Jacques

Pour le couleur de type entier long, je te l'ai mis dans le premier mail mais je
n'ai pas été assez préci peut être : Donc tu remplace la valeur entière par le code RGB(x,y,z) ou "x" est la valeur
du rouge comprise entre 0 et 255, "y" est la valeur du vert entre 0 et 255 et
"z" est la valeur du Bleu entre 0 et 255 Pour les cellules déclarées en texte ben si elle contienne des chiffres je ne
vois pas pourquoi les déclarer en texte. Sinon tu remplace MaCellule.Value par
MaCellule.String

François ----- Original Message ----- From: Jacques To: pr...@fr.openoffice.org Sent: Monday, May 28, 2007 7:49 PM Subject: Re: [prog] conversion macro excel vers Open

Bonjour François et merci pour ce coup de main, Ta colorisation est faite en fonction de valeur numérique, si je définie
ValeurCellule comme chaîne de caractère, cela peut-il fonctionner ? Pour les couleurs en entier type long comment avoir la couleur et son
équivalent en valeur numérique ? D'avance merci ------- Message d'origine ------- De: SEGUIN Franois Date: 28/05/2007 18:16:26 A: pr...@fr.openoffice.org Sujet: Re: [prog] conversion macro excel vers Open

Bonjour jacques

Voici un bout de code qui permet de coloris� le fond de cellules sous
calc. Moi je le fait pour 10 valeurs mais il suffit d'extrapoler. Les couleurs sont direbctement en entier type long mais tu peut le faire avec MaCellule.CellBackColor = RGB(x,x,x) ou x est l'indice de couleur
entre 0 et 255.

Voil� Bon courage

Fran�ois

rem * DECLARATION DES VARIABLES dim i as integer dim MaCellule as object dim ValeurCellule as integer

rem * BOUCLE DE COLORATION For i = 1 to 10

rem * ACCES A L'OBJET CELLULE EN FONCTION DE LA POSITION MaCellule = ThisComponent.Sheets.getByName("Feuille1").getCellByPosition(0,8+i)

rem * RECUPERATION DE LA VALEUR DE LA CELLULE ValeurCellule = MaCellule.Value

' print ValeurCellule

rem * COLORATION EN FONCTION DE LA VALEUR Select Case ValeurCellule Case 0 MaCellule.CellBackColor = 16711680 Case 1 MaCellule.CellBackColor = 16724736 Case 2 MaCellule.CellBackColor = 16737792 Case 3 MaCellule.CellBackColor = 16750848 Case 4 MaCellule.CellBackColor = 16763904 Case 5 MaCellule.CellBackColor = 16776960 Case 6 MaCellule.CellBackColor = 13827846 Case 7 MaCellule.CellBackColor = 10878727 Case 8 MaCellule.CellBackColor = 7929608 Case 9 MaCellule.CellBackColor = 4980489 Case 10 MaCellule.CellBackColor = 2031370 Case Else MaCellule.CellBackColor = -1 End Select Next i

----- Original Message ----- From: "jacques23270" <jacq...@laposte.net> To: <pr...@fr.openoffice.org> Sent: Monday, May 28, 2007 5:28 PM Subject: [prog] conversion macro excel vers Open

> Bonjour, > Suite � un transfert de fichiers d�Excel vers Calc, j�ai un probl�me
de > conversion de macro. > La macro sous Excel permet de mettre en couleur les cellules d�un
planning > de > 969 cases en fonction du contenu de la case et des infos d�une autre > feuille > contenant les codes couleurs et les diff�rents textes servant � la > comparaison > (35 infos diff�rentes). > Cela donne sous excel, le code suivant : > > Option Explicit > Sub mise_en_couleur() > Dim Compt_colonne, Compt_ligne, Spinner, Strings, i, texte1, li, col, > colo, > ColorIndex As Integer > Dim msg, Style, Title, R�ponse, MaChaine > msg = "Cette proc�dure dure de 30 � 60 secondes, Voulez-vous la lancer
?" > ' > D�finit le message. > Style = vbYesNo ' D�finit les boutons. > Title = "Mise en couleur du planning ann�e" ' D�finit les titres. > ' Affiche le message. > R�ponse = MsgBox(msg, Style, Title) > If R�ponse = vbYes Then ' L'utilisateur a choisi le bouton Oui. > MaChaine = "Oui" ' Accomplit une action. > 'mise en couleur > Sheets("4-plan-ann�e").Select > ActiveSheet.Unprotect > Range("F7").Select > li = 6 > col = 5 > For i = 1 To 35 > Sheets("3-R�capitulatif ann�e").Select > Cells(li, col).Activate > Strings = ActiveCell.Value > Sheets("3-R�capitulatif ann�e").Select > Cells(li, (col - 4)).Activate > texte1 = ActiveCell.Value > Sheets("4-plan-ann�e").Select > For Compt_colonne = 6 To 25 > For Compt_ligne = 7 To 58 > If Cells(Compt_ligne, Compt_colonne) = Strings Then > Cells(Compt_ligne, Compt_colonne).Interior.ColorIndex = > texte1 > End If > Next > Next > li = li + 1 > Next > End If > Range("F7").Select > End Sub > > Mon probl�me est de passer cette macro sous Calc. > Quelqu�un peut-il m�aider ? d�avance merci > > > > --------------------------------------------------------------------- > To unsubscribe, e-mail: prog...@fr.openoffice.org > For additional commands, e-mail: prog...@fr.openoffice.org > >
--------------------------------------------------------------------------------------- > Orange vous informe que cet e-mail a ete controle par l'anti-virus
mail. > Aucun virus connu a ce jour par nos services n'a ete detecte. > > > > > >

--------------------------------------------------------------------- To unsubscribe, e-mail: prog...@fr.openoffice.org For additional commands, e-mail: prog...@fr.openoffice.org