[writer][macro]Nombre d'élément dans une zone liste.

fr-users
#1

Bonjour

je fais le test suivant et ça marche :

Sub Main

Dim FormulaireArticles as Object
    Dim ListeFamille as Object

FormulaireArticles = ThisComponent.DrawPage.Forms.getByName("control_2")
    ListeFamille = FormulaireArticles.getByName("scontrol_2")

Items = ListeFamille.selectedItems(0)

If Items >= 3 then

Items = 0

Else

Items = Items + 1

EndIf

ListeFamille.selectedItems() = array(Items)

End Sub

Mon problème, c'est que le 3 est un peu mis au hasard... J'aimerai le remplacer par le nombre d'éléments de de la zone liste. mais, comment le trouver ?

#2

Bonjour Bernard,

Mon problème, c'est que le 3 est un peu mis au hasard... J'aimerai le
remplacer par le nombre d'éléments de de la zone liste. mais, comment le
trouver ?

regarde la propriété .ItemCount de la zone de liste.

Si vous répondez, merci de penser à utiliser la fonction "répondre à tous" de votre logiciel de courrier électronique de façon que la liste reçoive une copie de votre réponse.

Bien cordialement,

#3

Bonsoir Bernard,

n'ayant pas ton fichier avec la macro je ne peux pas essayer ma proposition

NombreD Items = Items.Count  ???

tu peux aussi vérifier avec la fonction Xray si il ya le paramètre que tu cherches

Cordialement Jean-Luc

#4

Bonjour

Je remercie les deux réponses. C'est bien Item.Counbt (le Count) que je cherchais.
Le Xray est aussi pas mal du tout ! Je l'avais déjà utilisé il y a quelques années, mais, je l'avais complètement oublié.

Je passe donc au point suivant de mon programme et à la question suivante... (Je croyais avoir déjà remercié pour ces réponses !)