Re: [fr-users] Calc 5.4 : raccourci clavier pour l'heure

Bonsoir Jean-Michel,

Le 13/10/2017 à 18:59, Jean Michel PIERRE a écrit :
> Sub AfficherTemps
>
> Dim oDocument As Object, oSheet As Object, oCell As Object
>
>     oDocument=ThisComponent
>
>     oCell=thiscomponent.currentSelection
>
> Call FixTemp(oCell)
>
> end sub
>
> Sub FixTemp(oCell)
>
> Dim sTemps as String
>
> sTemps = Time
>
> oCell.String = sTemps
>
> End Sub

oui, mais attention, ThisComponent.currentSelection peut ne pas être une 
cellule et alors... bang. Et puis j'ai pas bien compris pourquoi tu fais 
si tarabiscoté.

Autre proposition :

8< ------------------------------------------------

Option Explicit

Sub AfficheTemps()
'Insère le temps dans la cellule actuellement sélectionnée.
'Si la sélection n'est pas une cellule, ne fait rien.

        Dim o_Sel As Object

        oSel = ThisComponent.currentSelection
        If oSel.supportsService("com.sun.star.sheet.SheetCell") Then
                oSel.String = Time()
        End If
End Sub 'AfficheTemps

------------------------------------------------- >8

Note : Pour avoir la date et l'heure courants, il suffit de remplacer la 
référence à la fonction Time() par Now().

Ensuite, yapluka combiner ça avec un raccourci clavier, et hop !

Bien cordialement,
--
Jean-Francois Nifenecker, Bordeaux


--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés