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
Le 06/02/2018 à 18:56, Bernard Siaud alias Troumad a écrit :
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 ?
--
Envoyez un mail à [email protected] pour vous désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne
pourront pas être supprimés
