Re: [fr-users] Calc : Comment insérer automatiquement le mois courant et l'année après la saisie du jour

Le 20/03/2017 à 14:45, AmélieM a écrit :
> Bonjour,
> Sur Openoffice la saisie des 2 premiers chiffres d'une date suivie d'un
> slash permettait l'affichage automatique du mois et de l'année en cours.
> Par exemple si je souhaitais afficher le 18 mars 2017 alors que nous sommes
> le 20, je saisissais 18/ et le système affichait automatiquement la suite
> 03/17.
> Je ne retrouve pas cette fonction sous libreoffice et arrive au mieux à
> avoir l'affichage automatique de l'année: je dois saisir 18/03
> Je suppose qu'il s'agit de paramétrer correctement l'outil avec lequel je ne
> suis pas encore familiarisée...
> Il s'agit de mon premier post et, malgré une lecture des différents tutos et
> consignes, je ne réponds peut-être pas aux attendus. N'hésitez pas à
> m'aiguiller!
> Je vous remercie de votre indulgence et du temps que vous voudrez bien me
> consacrer.
Autre possibilité, une petite Macro associée à une icône de ton cru qui 
sera placée dans la Barre de Menu.
Le code :

Sue TableurDateJour

   Dim aLocale as new com.sun.star.lang.Locale, vNumFormat

   Dim oDoc as Object : oDoc = ThisComponent

   Dim oCell as Object : oCell = oDoc.CurrentSelection

   Dim sFormat as String : sFormat = "JJJJ JJ MMMM AAAA"

   If oCell.supportsService( "com.sun.star.sheet.SheetCell" ) Then

      oCell.setValue( Now() )

      vNumFormat = oDoc.getNumberFormats().queryKey( sFormat, aLocale, TRUE )

      If ( vNumFormat = -1 ) Then

         vNumFormat = oDoc.getNumberFormats().addNew( sFormat, aLocale )

      End If

      oCell.NumberFormat = vNumFormat

   End If

End Sub


Je viens de tester, la Macro fonctionne très bien avec  LO 5.3.1.2 (x64) 
sur Windows 10

Pour les formats, soit tu gardes le format long JJJJ JJ MMMM AAAA, soit 
tu choisis un format plus court.


--
Jean-Michel PIERRE


--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment 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