Bonjour,

Une macro Mdp qui affiche une boite de dialogue contenant une simple Lisbox (AOUB)avec 4 lettres A B C D (la lettre A est par défaut paramétré dans la listbox). Exécution d'une autre macro module1(dans onglet événements exécuter action de la listbox). La macro module1 affiche toujours le chiffre 0 (chiffre de l'item) malgré le choix des autres lettres autres que le A.Je n'arrive pas à comprendre ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Mdp
 
Dim oDialog1 as Object
Dim monDialogue As Object
    DialogLibraries.LoadLibrary("Standard")
    oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Mdpdialog)
    oDialog1.Execute()
    oDialog1.Dispose()
End Sub
 
Module1
 
oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Mdpdialog)
oDialog1Model = oDialog1.Model
ligne = oDialog1.getControl("AOUB").getSelectedItemPos() 
msgbox ligne