Macro LibreOffice et propriété NumberFormat

Objectif

Visualiser les correspondances entre NumberFormat et l'affichage d'une valeur numérique. Mais le doute persiste encore pour mon format monétaire...
A creuser...

Macro

Macro, crédit et LibreOffice

Recueil de liens

• https://berma.pagesperso-orange.fr/Files_fr/OOo_API_intro.pdf ++++
  Super document - A appliquer à la feuille crédit (pour mémoire)
• https://static.fnac-static.com/multimedia/editorial/pdf/9782212132472.pdf 
  
• https://wiki.documentfoundation.org/images/a/a8/CG3512FR-Macros.pdf
• https://wiki.documentfoundation.org/images/2/2d/GS4013FR-Macros.pdf
• https://fr.wikibooks.org/wiki/LibreOffice_et_Apache_OpenOffice/Writer/Macros
• https://wiki.documentfoundation.org/Macros/General/fr

Application des macros sur un classeur sur le crédit

Lien vers le classeur avec la macro LibreOffice Calc - classeur avec macro

Lien vers le support de cours sur le crédit Cours sur le crédit

Vidéo de présentation

Rq: Les boutons de la feuille 2 fonctionnent maintenant dès l'ouverture du classeur suite à la suggestion de Prog.amateur sur le forum d'entre aide de Libre Office ;)

Script de la macro commenté

LibreOffice - Macro pour supprimer les accents des lettres des mots des cellules de toute une feuille....

Fier de mon titre ;)

J'ai testé ça

Sub CalcSupprimerAccent
'J.P  Mai 2015
Dim oDoc,aTrouve,aRemplace,aTabCount,SetR,oSheet
oDoc = ThisComponent
aTrouve =    Array("Á","Â","Ã","Ä","Å","Ç","È","É","Ê","Ë","Ì","Í","Î","Ï","Ñ","Ò",_
                 "Ó","Ô","Õ","Ö","Ù","Ú","Û","Ü","Ý","à","á","â","ã","ä","å","ç",_
                 "è","é","ê","ë","ì","í","î","ï","ñ","ò","ó","ô","õ","ö","ù","ú","û","ü","ý","ÿ")
aRemplace = Array("A","A","A","A","A","C","E","E","E","E","I","I","I","I","N","O",_
                 "O","O","O","O","U","U","U","U","Y","a","a","a","a","a","a","c",_
                 "e","e","e","e","i","i","i","i","n","o","o","o","o","o","u","u","u","u","y","y")
aTabCount = 0
' on exécute la macro sur la feuille courante
osheet = odoc.CurrentSelection.Spreadsheet
'oSheet = oDoc.getSheets.getByName(oDoc.CurrentSelection.Spreadsheet.Name)
SetR = oSheet.createReplaceDescriptor
SetR.SearchCaseSensitive = true
SetR.SearchWords = false '  on cherche les lettres pas les mots
SetR.SearchRegularExpression = true
While aTabCount <= uBound(aTrouve)
SetR.setSearchString(aTrouve(aTabCount))
SetR.setReplaceString(aRemplace(aTabCount))
aTabCount = aTabCount + 1
oSheet.ReplaceAll(SetR)
Wend
End Sub

Et ça marche super...

Réalisé par JP alias Jurassic Pork sur developpez.com