Normal 0 21 false false false FR X-NONE X-NONE /* Style Definitions */ table.MsoNormalTable {mso-style-name:"Tableau Normal"; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-priority:99; mso-style-parent:""; mso-padding-alt:0cm 5.4pt 0cm 5.4pt; mso-para-margin:0cm; mso-pagination:widow-orphan; font-size:11.0pt; font-family:"Calibri",sans-serif; mso-ascii-font-family:Calibri; mso-ascii-theme-font:minor-latin; mso-hansi-font-family:Calibri; mso-hansi-theme-font:minor-latin; mso-bidi-font-family:"Times New Roman"; mso-bidi-theme-font:minor-bidi; mso-font-kerning:1.0pt; mso-ligatures:standardcontextual; mso-fareast-language:EN-US;}

[Configuration automatique à compléter]
Windows 10/11
Firefox 149.0

Bonjour BZH35,

maFeuille = monDocument.Sheets.getByName("Feuille1")

maCellule = maFeuille.getCellRangeByName("D1")

maCellule.String = "Bienvenue"

maCellule = maFeuille.getCellRangeByName("D2")

maCellule.Formula = "=TODAY()"

monControleur = monDocument.CurrentController

maCellule = maFeuille.getCellRangeByName("E1")

monControleur.select(maCellule)

Le tout dans un module

Sub BZH35()

Dim maFeuille As Object, LesFeuilles As Object

monDocument = ThisComponent

lesFeuilles = monDocument.Sheets

maFeuille = monDocument.Sheets.getByName("Feuille1")

maCellule = maFeuille.getCellRangeByName("D1")

maCellule.String = "Bienvenue"

maCellule = maFeuille.getCellRangeByName("D2")

maCellule.Formula = "=TODAY()"

monControleur = monDocument.CurrentController

maCellule = maFeuille.getCellRangeByName("E1")

monControleur.select(maCellule)

end sub

Merci beaucoup

Mais quel est le code pour fermer la boite de dialogue

Re Bonjour,

(sur smartphone)

Tu peux t'inspirer des codes suivants :

Sub ExecuteFinDialog

'Dialogue de fin d'operation

oFinDialog = CreateUnoDialog(DialogLibraries.Standard.Fin)

oFinDialog.execute()

End Sub

'This Sub is linked to the button on oFinDialog but the button doesnt close it, i even put a MsgBox in it but the button can't even print that

Sub CloseDialogFinishedButton

oFinDialog.endExecute()

End Sub

https://ask.libreoffice.org/t/impossible-to-close-a-dialog-using-endexcute-when-macro-saved-in-the-spreadsheet/100419/5

Re ,

J'ajoute que lorsque tu ouvres une boîte de dialogue, le choix de l'utilisateur sur l'un des boutons ("Oui", "Non, "OK", "Annuler") fermera le dialogue sans code supplémentaire.

Bonjour BZH35,

C'est bon pour toi, sujet résolu ?