Il me semble que additem ne fonctionne pas avec les combos (voir avec Xray)
Il faut travailler sur la liste, tu remplis une variable tableau et tu
l'atribue de la manière suivante
Form.getByName("CtrlNom").StringItemList = Tabl()
BRONCHART Philippe a écrit :
Bonjour à tous
J’ai un souci avec mon code qui me revoit une erreur. Ce doit être un
souci de variable, mais je ne comprends pas
Dim i As integer
Dim oSheets As Object
Dim combo as String
Odocument=ThisComponent
oSheet = oDocument.Sheets.getByName("Config")
bibli = DialogLibraries.GetByName("Standard")
monDialogue = bibli.GetByName("Dialog2")
Odialog = CreateUnoDialog(monDialogue)
‘ On alimente le combo avec la plage de cellule de la colonne A ( de
la feuille config)
Do While oSheet.getCellByPosition(0, i).String <> "" ‘ tant que la
cellule de la colonne A n’est pas vide
oDialog.getControl(Combo).additem(oSheet.getCellByPosition(0,
i).String, oDialog.getControl(Combo).ItemCount) ‘ on alimente le combo
i = i + 1
Loop
End Sub
Une idée ?
Amicalement Philippe
------------------------------------------------------------------------
Antivirus avast! <http://www.avast.com>: message Sortant sain.
Base de donnees virale (VPS) : 0605-0, 29/01/2006
Analyse le : 30/01/2006 20:27:24
avast! - copyright (c) 1988-2005 ALWIL Software.
13 messages in org.openoffice.fr.progRe: [prog] Remplir un combo ooo2.01
