Bonsoir,
Regarde cet exemple :
oCombo = oDialog.getControl("leCombo")
Do While oSheet.getCellByPosition(0, i).String <> ""
'oCombo.removeItems(i,oCombo.ItemCount)
oCombo.addItem(oSheet.getCellByPosition(0, i).String, i)
i = i + 1
Loop
Selon BRONCHART Philippe <phil...@laposte.net>:
Bonjour à tous
Jai 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 nest 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
13 messages in org.openoffice.fr.progRe: [prog] Remplir un combo ooo2.01
