Macro Date et macro heure avec double clic

Fermé
Adrien - 11 avril 2021 à 18:38
yclik Messages postés 3764 Date d'inscription vendredi 25 juillet 2014 Statut Membre Dernière intervention 14 février 2025 - 12 avril 2021 à 20:12
Bonjour,

j'utilisais auparavant des tableaux excel où des macros étaient paramétrées afin que lorsque l'on double clic sur une cellule, une action se fasse.

Dans un premier tableau, il s'agissait d'ajouter l'heure
Dans un second tableau, il s'agissait d'ajouter la date.

J'ai beau essayer, impossible de remettre ces macros sur Libreoffice.

J'ai pourtant ajouter ce code pour la date :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Value = Date
End Sub


Mais rien à faire, lorsque je veux activer la macro, ça me met

Une erreur de structure de script s'est produite lors de l'exécution du script Standard.Module1.Worksheet_BeforeDoubleClick en Basic.

Message : wrong number of parameters!

Bref, si quelqu'un a une solution et peut me copier les codes pour les dates dans un premier tableau et, dans un second temps, pour l'heur. Sachant que lorsque je double clic une première fois, ça m'affiche l'heure et lorsque je redouble clic, ça l'enlève.

Merci à ceux qui pourront m'aider.
A voir également:

3 réponses

yclik Messages postés 3764 Date d'inscription vendredi 25 juillet 2014 Statut Membre Dernière intervention 14 février 2025 1 535
11 avril 2021 à 19:42
0
Merci beaucoup.

J'ai récupérer les codes et ainsi, je peux mettre de nouveau les macros.

Par contre, j'aimerais que lorsque l'on double clic de nouveau sur la cellule où figure l'heure, celle-ci disparaisse. Que dois-je ajouter au code et à quelle endroit surtout ?

Merci pour vos réponses.
0
yclik Messages postés 3764 Date d'inscription vendredi 25 juillet 2014 Statut Membre Dernière intervention 14 février 2025 1 535
12 avril 2021 à 20:12
Bonsoir
tester macro à associer à un bouton (Source)

sub vide
dim document as object
dim oSheet as object
dim oCell as object
' nom de la feuille = feuille1
oSheet = ThisComponent.sheets.GetByName("feuille1")
oCell = oSheet.getCellRangeByName("E5")
oCell.clearContents(_
com.sun.star.sheet.CellFlags.VALUE + _
com.sun.star.sheet.CellFlags.DATETIME + _
com.sun.star.sheet.CellFlags.STRING + _
com.sun.star.sheet.CellFlags.ANNOTATION + _
com.sun.star.sheet.CellFlags.FORMULA + _
com.sun.star.sheet.CellFlags.HARDATTR + _
com.sun.star.sheet.CellFlags.STYLES + _
com.sun.star.sheet.CellFlags.OBJECTS + _
com.sun.star.sheet.CellFlags.EDITATTR)
end sub
0