Bonjour, Je viens de découvrir le rapport IZ 33807 qui indique l'introduction de la tournure For Each dans Basic (pour faire comme VBA). Contrairement à la date prévisionnelle (OOo Later) ceci est déjà disponible, au moins dans les cas simples, sur 1.9 depuis quelques mois. Exemples :

Dim tata, toto tata = Array("un", pi, -237, "fini") for each toto in tata MsgBox(toto) next

dim familles as object, nomfam as variant familles = ThisComponent.StyleFamilies for each nomfam in familles.ElementNames MsgBox(nomfam) next

Comme d'habitude le Help n'est pas mis à jour, et j'ai donc intuité l'utilisation.

Bernard