Calendrier, LibreOffice et Basic...

Et avec l'aide d'une IA... L'exercice est amusant, à tester avec des étudiants? Un truc du genre pour les BTSA AP:
"Créer une feuille de suivie de chantier avec date de départ, indication des WE et jours fériés" pour :

• montrer que le python du lycée sert à "sentir" le Basic de LibreOffice ou le VBA d'Excel
• que la macro existe
  

Bon, je dis ça mais les coordos me font remonter que trop d'informatique?!

Lancer Libre Office, activer les macros en abaissant la sécurité à Moyen pour quand même avoir une alerte.

Evidemment il faudra coller le script dans une macro puis le lancer =>

Remarque:
InputBox 1 = Nbre de colonnes par mois, dans la copie d'écran le mois de Septembre à 4 colonnes comme les mois suivants...

InputBox 2 = Le mois de départ de l'année désirée

Script en dessous

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