WDForge.org - Forums

Re: Pilotage Excel via OLE

Sujet: Re: Pilotage Excel via OLE
par R&B sur 8/6/2006 21:03:11

J'ai la macro suivante qui sélectionne toute le range de totes les cellules d'une fenêtre. Cela peut accélerer les choses.

' compteur cellules
' Ligs = nombre de lignes
' cols = nombre de colonne
Dim ligs As Integer
Dim cols As Integer
ligs = ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows.Count()
cols = ActiveWorkbook.ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Columns.Count()
' Sélectionne le tout !
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
' autre méthode
Range(Cells(1, 1), Cells(ligs, cols)).Select

bon courage.

ps : je découvre, pour l'occasion, que Ooo ouvre les classeur MSOffice et peut en lire les macros !