[Résolu][Calc] mettre valeur par défaut dans combo

[sematimo]

Bonjour
J'ai une combo avec une liste d'années.
Je voudrai qu'au démarrage, la valeur par défaut de cette combo soit l'année en cours grace à une macro au démarrage.
Merci

[Bidouille]

Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.

Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche. Avez-vous remarqué comment étaient les autres questions postées ?

Lisez ce fil pour savoir quelle balise utiliser : http://forum.openoffice.org/fr/forum/su ... html#27295

N'oubliez pas que le terme "Macro" ou "OpenOffice" ne doit pas être employé car il est implicite. Essayer de synthétiser au mieux ce que vous cherchez à faire.

Un titre accrocheur vous permettra d'une part d'être aidé plus rapidement et d'autre part, d'enrichir notre base de connaissances.

Nous l'avons fait pour vous cette fois-ci mais lors de votre prochaine question, nous vous remercions de le faire vous-même sous peine de voir votre sujet verrouillé.

[Dude]

Salut,

Comment penses-tu être aidé sans fournir le document contenant la boîte combinée ?
On ne sait pas si le contrôle est sur un formulaire ou dans un dialogue, ni comment il est alimenté.

[sematimo]

Bonjour
Le contrôl est sur un formulaire et est alimenté par une liste sur une autre feuille

[micmac]

Bonjour,

fournir le document contenant la boîte combinée

Qu'attendez-vous pour fournir ce fameux document ?

• Comment joindre un fichier
  Comment dépersonnaliser un document

[Piaf]

Bonjour

Code : Tout sélectionner

Sub Main
Dim maFeuille as Object, oForm as Object, AnneeEnCours
'La feuille où est situé le formulaire
	maFeuille = thisComponent.Sheets.getByName("Feuille1")
'Le formulaire	
	oForm = maFeuille.DrawPage.Forms.getByName("Formulaire")
'L'année en cours	
	AnneeEnCours = Year(Now)
'La valeur par défaut de la zone combinée nommée zcAnnees du formulaire	
	oForm.getByName("zcAnnees").DefaultText = AnneeEnCours
   oForm.getByName("zcAnnees").refresh
End Sub

devrait le faire.
A+

[sematimo]

Merci PIAF mais ça ne fonctionne pas.

[Piaf]

Re

Je voudrai qu'au démarrage, la valeur par défaut de cette combo soit l'année en cours grace à une macro au démarrage.

Donc déjà affecter la macro à l'ouverture du document.

mais ça ne fonctionne pas.

Tu n'utilises pas le code envoyé, en l'utilisant ça fonctionne.
A+

[sematimo]

j'avais effacé ton code car ça ne fonctionnait pas.
j'explique:
j'avais mis ton code dans la macro et ensuite je l'avais assigné à l'ouverture du document et ça a fonctionné une seule fois.
Après avoir sélectionné une autre date avec le combo et sauvegardé le document, à la prochaine ouverture ça ne fonctionnait plus même en exécutant la macro manuellement.
Je ne sais pas pourquoi.

[Dude]

à la prochaine ouverture ça ne fonctionnait plus même en exécutant la macro manuellement.
Je ne sais pas pourquoi.

Qu'as tu répondu au dialogue d'avertissement de sécurité ?

[Piaf]

Bonjour

j'avais mis ton code dans la macro et ensuite je l'avais assigné à l'ouverture du document et ça a fonctionné une seule fois.
Après avoir sélectionné une autre date avec le combo et sauvegardé le document, à la prochaine ouverture ça ne fonctionnait plus même en exécutant la macro manuellement.
Je ne sais pas pourquoi.

C'est le comportement normal, une valeur par défaut n'est affichée que si aucune valeur n'a été saisie.
Si tu veux que l'année en cours soit sélectionnée automatiquement à l'ouverture, il ne s'agit plus d'une valeur par défaut

Code : Tout sélectionner

Sub Main
Dim maFeuille as Object, oForm as Object, AnneeEnCours
'La feuille où est situé le formulaire
   maFeuille = thisComponent.Sheets.getByName("Feuille1")
'Le formulaire   
   oForm = maFeuille.DrawPage.Forms.getByName("Formulaire")
'L'année en cours   
   AnneeEnCours = Year(Now)
'La vue du contrôle   
	vueCtrl = thisComponent.CurrentController.getControl(oForm.getByName("Annee"))
'l'entrée sélectionnée	
	vueCtrl.Text = AnneeEnCours
End Sub

Devrait le faire.
A+

[sematimo]

Je n'avais pas de message de sécurité car le fichier était dans un dossier qui est dans les sources de confiance.
Avec le nouveau code de Piaf ça marche nickel.
Problème résolu.
Merci à vous