Bonjour Bob, Je te remercie de l'aide apporte mais je n'ai vraisemblablement pas les comptences pour suivre. Tes ides me semblent trs bonnes, mais mon dsir est de connatre le basic Ooo, j' ai donc continu sur la base Excel. Ce qui a donn : REM ***** BASIC ***** Option Explicit Sub Main Dim compt_colonne as integer, compt_ligne as integer, ligne_depart as integer, colonne_depart as integer Dim classeur as object, feuille_arrivee as object, feuille_depart as object, cellule_destination as object Dim cellule_arrivee as object, cellule_depart as object, I as integer, li as integer Dim valeur_cellule_arrivee as string, valeur_cellule_depart as string, ma_variable as integer Rem ---------------------------------------------------------------------- Rem define variables Dim document as object Dim dispatcher as object Rem ---------------------------------------------------------------------- Rem get access to the document Ma_variable = msgbox("Attention, cette procdure est rapide",1+48, EFFACEMENT DES COULEURS") If ma_variable = 1 then Document = ThisComponent.CurrentController.Frame Dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

Rem ---------------------------------------------------------------------- Dim args1(0) as new com.sun.star.beans.PropertyValue Args1(0).Name = "Nr" Args1(0).Value = 4

Dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())

Rem ---------------------------------------------------------------------- Args2(0) as new com.sun.star.beans.PropertyValue Args2(0).Name = "ToPoint" Args2(0).Value = "$E$6:$E$40"

Dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())

Rem ---------------------------------------------------------------------- Dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

Rem ---------------------------------------------------------------------- Dim args4(0) as new com.sun.star.beans.PropertyValue Args4(0).Name = "Nr" Args4(0).Value = 5

dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args4())

Rem ---------------------------------------------------------------------- Dim args5(0) as new com.sun.star.beans.PropertyValue Args5(0).Name = "ToPoint" Args5(0).Value = "$AL$7"

Dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())

rem ---------------------------------------------------------------------- Dim args6(5) as new com.sun.star.beans.PropertyValue Args6(0).Name = "Flags" (0).Value = "ST" Args6(1).Name = "FormulaCommand" Args6(1).Value = 0 Args6(2).Name = "SkipEmptyCells" Args6(2).Value = false Args6(3).Name = "Transpose" args6(3).Value = false Args6(4).Name = "AsLink" Args6(4).Value = false Args6(5).Name = "MoveMode" Args6(5).Value = 4

Dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args6())

Classeur = thiscomponent Feuille_arrivee = classeur.sheets.getbyname("plan_annee") 'feuille_depart = classeur.sheets.getbyname("recap_annee")

Ligne_depart = 6 Colonne_depart = 5

For I = 1 to 35 Cellule_depart = feuille_arrivee.getcellbyposition(37,5+I) Valeur_cellule_depart = cellule_depart.getString

For compt_colonne = 5 to 25 For compt_ligne = 6 to 58 Cellule_arrivee = feuille_arrivee.getcellbyposition(compt_colonne compt_ligne) Valeur_cellule_arrivee = cellule_arrivee.getstring If valeur_cellule_arrivee = valeur_cellule_depart then With cellule_arrivee .cellbackcolor = cellule_depart.cellbackcolor End with End if Next Next Li = li + 1 next Elseif ma_variable = 2 then Msgbox("L'xecution est annule",64, "EFFACEMENT DES COULEURS") exit sub End if

'retour

Dim args7(0) as new com.sun.star.beans.PropertyValue Args7(0).Name = "ToPoint" Args7(0).Value = "$F$7"

Dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args7())

End Sub

Certaines parties sont faites avec l'enregistreur, d'autres avec les infos fournie ou rcupres sur internet. Je pense que l'on peux amliorer la macro au niveau criture, afin de la rendre plus rapide ? J'attends vos remarques.

S'il y a un probleme par rapprt aux caracteres accentues, ne je sais d'ou cela vient !!