Staroffice 8 calc: récupérer le contenu d'un champ date dans une c

[Invité guy62]

Staroffice 8 calc

Dans une plage de cellules j'ai créé des champs "date" au moyen de "contrôles de formulaires" avec un menu déroulant (calendrier). L' utilisateur pouvait donc saisir facilement une date. Je croyais à tort avoir affecté ainsi mes cellules, or elles sont considérées comme vides. Comment récupérer une date qui est affichée (donc le contenu du champ) dans cette cellule ou à la rigueur dans une autre ?

J'ai besoin de comptabiliser le nombre de dates affichées dans la plage.

[guyguy59]

Bonsoir

 

si c'est OpenOffice que vous parlez:

 

Déclaration des variables

 

Dim monDocument as object '-> le classeur

Dim maFeuille as object '-> la feuille

Dim maCell as object '-> une cellule

Dim maDate as long

Acce aux composants

 

monDocument = ThisComponent '->le classeur actif

 

maFeuille = monDocument.Sheets(0) '-> Pour la première feuille

 

on peu aussi acceder à la feuille par son nom

maFeuille = monDocument.Sheets.GetByName("Feuille 1")

 

pour une cellule:

maCell = maFeuille.GetCellByPosition(0,0) ->Cellule "A1"

 

ou par son nom

maCell = maFeuille.GetCellByName("A1")

 

Pour la valeur retour du Calendrier:

formulaire = maFeuille.drawpage.forms.getByName("Standard")

maDate = formulaire.getByName("monCalendrier").CurrentValue

 

après on peut remplir une cellule avec cette date, qui au préalable a été formater pour accueillir des dates

maCell.Value = maDate

[guy62]

Bonjour,

Toujours pour résoudre mon pb,

J'ai récupéré sur le net la macro suivante "lier_Contrôle_Formulaire_Cellule"

 

Sub Liste OnClick(oEvt as object)

'Le contrôle qui appelle la macro

oControl=oEvt.source

 

'Le Tag contient le "complément d'information" du contrôle

'Les 3 informations sont séparées par un ;

Separateur=";"

Arguments=split(oControl.model.tag,Separateur)

if ubound(Arguments)<2 then

print "Erreur =>Il doit y avoir 3 arguments dans <Complément d'informations>"

exit sub

endif

CelluleLiee=Arguments(0) 'Adresse de la cellule qui va recevoir le résultat

TypeAffichage=Arguments(1) 'Renvoie le N° (0) ou le texte(1) sélectionné

Feuille=Arguments(2) 'Indique la feuille qui va recevoir le résultat

 

'oSheet contient l'objet Feuille

oDocument=thisComponent

oSheet = oDocument.Sheets.getByName(Feuille)

 

'Affichage du résultat

if TypeAffichage="0" then

oSheet.getcellRangebyName(CelluleLiee).formula = oControl.SelectedItemPos+1

else

oSheet.getcellRangebyName(CelluleLiee).formula = oControl.SelectedItem

endif

End Sub

 

Dans le "Général/complément d'information" du contrôle j'ai indiqué lenom de ma cellule; 1 pour récupérer le texte; le nom de ma feuille.

J'obtiens un "runtime basic erreur propriété ou méthode introuvable" à l'avant-avant dernière ligne; de osheet...SelectedItem avec en bas à droite dans "Appels, 0:Liste_onclick(oEvt=)

 

Le pb est que je veux récupérer une date pas du texte et l'emploi de "TypeAffichage=Arguments(1) n'est certainement pas indiqué.

Y-a-il un site où je pourrais trouver la syntaxe et les commandes des macros pour Ooo ou Staroffice ?

[guyguy59]

Bonsoir

 

Il y a un site où je vais souvent pour prendre des exemples et les adapter à ce que je veux faire.

http://fr.openoffice.org/Documentation/Index.html

Après il faut chercher et prendre le temps de bien lire pour une meilleure compréhension.