[fr-users] RE: [fr-users] Calculer l'adresse d'une cellule à partir de ses numéros de ligne / colonne

Bonsoir,





Je ne résiste pas au plaisir de vous présenter un bout de code extrait d'un Paolo_Mantovani_InSide :





Sub RetrieveTheActiveCell()


  Dim oActiveCell   'The current active cell


  Dim oConv         'The cell address conversion service


  Dim oDoc


  oDoc = ThisComponent


  oActiveCell = oDoc.CurrentSelection





  oConv = oDoc.createInstance("com.sun.star.table.CellAddressConversion")


  oConv.Address = oActiveCell.getCellAddress


  Print oConv.UserInterfaceRepresentation


  print oConv.PersistentRepresentation


End Sub





Le sub traite la cellule active, mais il est simple de passer en 
paramètre ligne et colonne pour adapter le code au taitement d'une 
cellule x,y.





Je n'utilise pas trop, préférant passer par AbsoluteName, mais j'adore....





;)

> Date: Sat, 23 Mar 2013 09:58:25 +0100
> From: jack.r@free.fr
> To: users@fr.libreoffice.org
> Subject: [fr-users] Calculer l'adresse d'une cellule à partir de ses  numéros de ligne / colonne
>
> Bonjour,
>
> Dans une macro, j'avais besoin de la fonction décrite en titre.
> Je n'ai pas trouvé, alors j'ai écrit cela.
> Si cela peut servir à d'autres...
>
> Function ConvertRowColumn(aRow As Long, aColumn As Long) As String
> ' Return cell address corresponding to aRow And aColumn
>       Dim remain As Long
>       Dim value As Long
>       Dim result As String
>       
>       result = aRow
>       value = aColumn
>       While value > 0
>               remain = value mod 26
>               value = value \ 26
>               If remain = 0 Then
>                       result = "Z" & result
>                       value = value - 1
>               else
>                       result =  chr(remain + 64) & result
>               end If
>       Wend
>       
>       ConvertRowColumn = result
> End Function
>
> -- 
> Jack.R
> http://jack.r.free.fr
>
> -- 
> Envoyez un mail à users+help@fr.libreoffice.org pour savoir comment vous désinscrire
> Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
> Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
> supprimés
                                          
-- 
Envoyez un mail à users+help@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés