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
--
Francois GATTO
Selon BRONCHART Philippe <[EMAIL PROTECTED]>:
> 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
>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
