'----------------
Sub Demo_Video ()
'----------------
'Ceci est une procédure de démonstration
Dim RepMessage As Boolean
Dim ValMessage As Integer

RepMessage = Demo_Message
If RepMessage = True Then
ValMessage = 1
MsgBox "Un message a été affiché.", 64, "Résultats"
Ecrire_Valeur ("Feuille1", "D5", ValMessage )
Else
ValMessage = 0
MsgBox "Aucun message n'a été affiché.", 64, "Résultats"
Ecrire_Valeur ("Feuille1", "D5", ValMessage )
End If
'------
End Sub

'----------------------------------
Function Demo_Message () As Boolean
'----------------------------------
'-- Ceci est une macro de démonstration.
'-- Déclaration des variables
Dim Message1 As String
Dim Message2 As String
Dim MessageFinal As String
Dim Titre As String
Dim MesON As Boolean
Dim Kp As Integer
Dim Rep As Integer

'-- Fin de déclaration des variables

Message1 = "OpenObfuscatOr" & chr(13) & chr(10)
Message2 = "Ceci est une démonstration du classeur OpenObfuscatOr." & chr(13) & chr(10)
'-- chr(13) : Carriage return et chr(10) : Line feed
Kp = Len( Message1 )

If Kp = 16 Then
'-- On met la variable MesON à True
MesON = True
Else
'-- On met la variable MesON à False
MesON = False
End If

'-- Contenu du message :
Titre = "OpenObfuscatOr : Vidéo de démonstration"
MessageFinal = Message1
MessageFinal = MessageFinal & Message2
MessageFinal = MessageFinal & "Téléchargez la version originale sur www.joseouin.fr" & chr(13) & chr(10)
MessageFinal = MessageFinal & "Auteur : José OUIN - Site Internet : www.joseouin.fr"

'On teste la valeur de la variable MesON
If MesON = True Then
Rep = MsgBox( MessageFinal , 64 , Titre )
End If
'------
Demo_Message = MesON
'-----------
End Function

'-------------------------------------------------------
Function Ecrire_Valeur (ZNomFeuille,ZNomCellule,ZValeur)
'-------------------------------------------------------
Dim OOODoc As Object
Dim OOOFeuille As Object
Dim OOOCellule As Object

'Définition d'un objet Classeur
OOODoc = ThisComponent
'Définition d'un objet Feuille de ce classeur
OOOFeuille = OOODoc.getSheets.getByName(ZNomFeuille)

'Identification par l'adresse de la cellule
OOOCellule = OOOFeuille.getCellRangeByName(ZNomCellule)
'Affectation de la valeur dans la cellule
OOOCellule.Value = ZValeur
'-----------
End Function