Bonjour Laurent.
Cela fonctionner à merveille, merci beaucoup
Cordialement
Stéphane
-----------------------------------
Stéphane PURNELLE Admin. Systèmes et Réseaux
Service Informatique Corman S.A. Tel : 00 32 (0)87/342467
Laurent Godard <[email protected]> wrote on 24/02/2010 17:05:50:
> Laurent Godard <[email protected]>
> 24/02/2010 17:08
>
> Veuillez répondre à
> [email protected]
>
> A
>
> [email protected]
>
> cc
>
> Objet
>
> Re: [users-fr] Question sur les OpenOffice.org basic
>
> Bonjour stefane
>
> penses à utiliser la liste [email protected]
>
> ecrit tres rapidement, je te propose le bout de code en fin de mail
>
> Bon courage
>
> laurent
>
> '-----------------
>
> Sub Main
>
> feuille = thisComponent.sheets(0)
>
> for ligne = 1 to 3
>
> chaine = feuille.getCellrangeByName("A"+cstr(ligne)).string
> decoupe = split(chaine,";")
>
> for col = 0 to ubound(decoupe)
> lettre = chr(asc("A") + col)
> cell = feuille.getCellrangeByName(lettre+cstr(ligne))
> cell.string = decoupe(col)
> next col
>
> next ligne
>
>
> End Sub
>
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [email protected]
> For additional commands, e-mail: [email protected]
>
