Re: [users-fr] "sommaire" calc

Mon, 09 May 2005 07:58:36 -0700

LE LOUARNE Serge a �crit : 
Laurent Broqu� a �crit :

Merci pour cette r�ponse. Mais (il y a toujours un mais :( ), c'est dommage qu'il n'existe pas une fonction automatique qui tienne compte des suppressions et ajouts ... comme un sommaire ! Apr�s tout la chose est pr�sent�e comme un classeur avec des feuilles et dans mes classeurs j'ai un sommaire ;)
Merci quand m�me : je mets en pratique ta solution.
� charge de revanche !
-----------------------------------------
Laurent Broqu�

Bonjour,

Tu peux cr�er la macro idoine ;-)

A+
Serge


Oui, oui : j'ai essay� et ca n'a pas �t� convainquant :(
voici ce que j'ai fait :

sub sommaire
        Dim oDoc As Object
        Dim oSheets As Object
        
        oDoc=ThisComponent
        oSheets=oDoc.Sheets
        oFirstSheet=oSheets(0)
   ' Now get an array of the names of the sheets.
   aSheetNames = oSheets.getElementNames()
   ' Please note that aSheetNames now contains an ARRAY of STRINGs.

   ' Now print out each element in the array.
   j=4
   For i = LBound( aSheetNames )+1 To UBound( aSheetNames )
      cName = aSheetNames( i ) ' access array element
      oCell=oFirstSheet.getCellByposition(0,j)
      oCell.SetString(cName)
      j=j+1
   Next
end sub

J'ai �videmment abondamment pomp� !
Je trouve �a moins bon que la solution de Christian car encore moins souple : j'ajoute une feuille et il me faut relancer la macro etc. mais peut-�tre est ce d� � ma grande inexp�rience en VB (d�s qu'il y a visual qqpart j'ai des boutons qui poussent ;) )
A+ 
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]



---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à