> Tous les forums > Forum Bureautique
 libre office raccourci clavierSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
TJA435
  Posté le 17/03/2015 @ 15:03 
Aller en bas de la page 
Astucien

Bonjour,

Je n' arrive pas à mettre un raccourci clavier (CTRL + ;) à cette macro :

Sub insertDate

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 = "JJ/MM/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

Est ce normal ?

Merci pour votre aide.

Publicité
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
Ecouteurs intra-auriculaires sans fil Bluetooth Jabra Elite 3 à 49 €
49 € 79,99 € -39% @Acer
Batterie externe INIU Power Bank (10 000 mAh, 3A) à 14,69 €
14,69 € 21 € -30% @Amazon
SSD Crucial MX500 4 To à 299,99 €
299,99 € 398 € -25% @Amazon
Mini PC MINISFORUM GK41 (Celeron J4125, 8Go RAM, 256Go SSD) à 195,49 €
195,49 € 229,99 € -15% @Amazon
Clavier Logitech G213 Prodigy RVB + Norton 360 Deluxe (3 postes, 12 mois)à 36,99 €
36,99 € 70 € -47% @Cdiscount
Enceinte connectée Amazon Echo Dot (5ème génération) avec assistant Alexa + prise connectée Meross à 29,99 €
29,99 € 84,98 € -65% @Amazon
Kit de 32 Go (2 x 16 Go) de mémoire DDR4 Corsair Vengeance LPX 3600 MHz CL18 à 107,42 €
107,42 € 145 € -26% @Amazon Allemagne
Lot de 3 ventilateurs upHere 120 mm LED bleu à 5,99 €
5,99 € 12,99 € -54% @Amazon Allemagne
Webcam Logitech C922 Pro à 54,99 €
54,99 € 85 € -35% @Amazon
Routeur TP-Link Archer AX53 WiFi 6 à 59,99 €
59,99 € 80 € -25% @Amazon

Sujets relatifs
Libre office
LIBRE OFFICE CALC RECAPITULATION
mise à jour libre office
Libre Office Calc_J'aimerais un planning mensuel perpétuel
LIBRE OFFICE CALC
problème impression couleur Libre Office
document writer avec libre office
Mise à jour Libre Office
Alternative à Libre Office
Libre Office
Plus de sujets relatifs à libre office raccourci clavier
 > Tous les forums > Forum Bureautique