Macro Date et macro heure avec double clic

Adrien -  
yclik Messages postés 3872 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 3
yclik Messages postés 3872 Date d'inscription   Statut Membre Dernière intervention   1 561
 
Bonsoir
voir la macro date et heure
0
Réponse 2 / 3
Adrien
 
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
Réponse 3 / 3
yclik Messages postés 3872 Date d'inscription   Statut Membre Dernière intervention   1 561
 
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

Discussions similaires

Connaitre la date d'une photo.
Lilouu.UK -
o -

18 réponses
Comment trouver une photo date et heure préci
scoubidou -
sam -

6 réponses