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

LibreOffice sur Chrome OS

Notes pour l'installation de LibreOffice sur le Chromebook d'un étudiant.

Caractéristiques de la bête:

• Chrome OS version 107.0.5304.110 64 bits (via les Paramètres)
• Processeur Intel core i3-81130u (via l'appli Diagnostiques)

Numérotation des lignes sélectionnées avec LibreOffice

Pour les profs de lettres qui ne veulent plus compter les lignes afin de les numéroter, voir la suite:

Tuto vidéo

Procédure sous Libre Office

•  Modifier le style par défaut de votre paragraphe
• Repérer le style via la barre latérale / Styles
• Clic droit / Modifier
• Onglet Plan et liste
• Décocher Inclure les lignes de ce paragraphe
  => toutes les lignes s'appuyant sur ce style ne seront plus numérotées
• Création d'un style "Numérotation des lignes"
• Sélectionner le style par défaut précédent
• Clic droit / Nouveau
• Onglet Gestionnaire, nommer ce nouveau style
• Onglet Plan et liste, recocher Inclure les lignes de...
• Affectation des numéros de lignes
• Sélectionner les lignes que vous voulez numéroter
• Affecter à votre sélection le style "Numérotation des lignes"