[Résolu][Calc] Cellule suivante

[Deimos43]

Bonjour,

J'ai trouvé une macro qui fonctionne bien pour insérer le jour de la date dans une cellule mais je n'arrive pas a trouver une ligne de commande à ajouter qui me ferait décaler automatiquement d'une cellule vers la droite. Je n'ai jamais fait de programmation, j'ai juste copier-coller le code, d'où mon problème !!!
J'ai essayé pas mal de lignes trouvées sur le net, mais je ne dois pas avoir la bonne syntaxe...systématiquement une erreur ! Donc, après avoir cherché longuement et n'ayant rien trouvé qui corresponde à mon cas, je me tourne vers "ceux qui savent" !!
Ca doit être tellement simple que je dois chercher trop compliqué.

J'espère avoir été assez clair, j'ajoute tout de même le code sur lequel je voudrais avoir cette commande :

Code : Tout sélectionner

REM  *****  BASIC  *****

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"
   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

Voilà, j'espère que je n'ai pas fait de bêtise pour ma première demande et que je pourrais bientôt marquer ce sujet comme résolu !

Merci d'avance.

[Grenouille]

Bonjour,

J'ai trouvé une macro

Il est d'usage de donner un lien de l'endroit où tu as eu la macro.

systématiquement une erreur !

Laquelle ?
Le mieux est de fournir un classeur qui permette de tester de notre côté.

As-tu simplement essayé l'enregistreur de macro pour cette action ?

A+

[joel275]

Bonjour,

Essaie de rajouter les lignes suivantes à ton code:

Code : Tout sélectionner

Rem Cellule à droite sélectionnée
Dim jAdresse as Variant, jCellule as Object, Li as Long, Col as Long
	jAdresse = oCell.CellAddress
	Li = jAdresse.Row
	Col = jAdresse.Column
	jCellule = oCell.SpreadSheet.getCellByPosition(Col+1,Li)
	ThisComponent.CurrentController.Select(jCellule)

A plus,
Joël

[Deimos43]

Bonjour,

Merci pour la rapidité de réponse !

Alors désolé pour le code, je ne me souviens plus d'où il vient, je l'ai copié il y a quelques mois de ca.
Pour les erreurs, j'ai essayé tellement de chose qu'il est difficile de mettre un exemple ! Les deux erreurs que j'avais eu le plus, de mémoire, étaient : Sub non autorisé dans une formule ou un truc comme ca et pas de valeur à un objet renvoyé.
Je pense que tu vois mieux que moi ce que ce doit être.

En attendant c'est parfait, j'ai ajouté le bout de code à ma macro et cela fonctionne impec !

J'avais aussi essayé avec l'enregistreur mais je ne pense pas de la bonne manière; j'ai en fait enregistré le changement de cellule et ajouté l'enregistrement à la macro existante... Ca doit paraitre absurde mais je pensais que ca allait fonctionner !!! Ben non...pas aussi simple que ca.

Bref merci beaucoup pour cette aide qui me fait gagner un peu de temps lors de mes saisies.
J'ai une autre demande beaucoup plus compliquée (enfin pour moi !), j'ai compris qu'il faut que je créé un autre post.

Merci encore joel275.

[micmac]

Bonjour,

J'ai une autre demande beaucoup plus compliquée (enfin pour moi !), j'ai compris qu'il faut que je créé un autre post.

Mais auparavant, n'oubliez pas de baliser [Résolu]

Merci

[Deimos43]

Oui, merci, je viens de m'en rendre compte !!!!

Balisage dans le titre du premier message SVP.Merci.