Bonsoir,
michel a écrit :
Bonjour,
j'avais un classeur sous excel dans lequel j'utilisais une macro (trouvée sur un
site d'internautes) qui me permettait de récupérer les coordonnées de la cellule
active (colonne et ligne).
J'ai transporté ce classeur sous calc et bien entendu les macros ne fonctionnent
plus et je n'ai aucune connaissance me permettant de transformer la macro excel
pour qu'elle soit interprétable par calc.
Quelqu'un a t-il déjà réalisé ce type de macro ?
Merci d'avance.
Michel
Une idée :
Sub ActiveCellAddress
Dim oDoc
Dim aCurrentAdress
Dim sSheetName as String
Dim LF
LF = CHR(10)
oDoc = ThisComponent
aCurrentAdress = oDoc.getCurrentSelection.getCellAddress
sSheetName = oDoc.getSheets().getByIndex(aCurrentAdress.Sheet).getName()
With aCurrentAdress
MsgBox "=== Feuille ===" & LF & _
"N° = " & .Sheet & LF & _
"NOM = " & chr(34) & sSheetName & chr(34) & _
LF & LF & _
"=== Active Cell ===" & LF & _
"COL = " & .Column & LF & _
"LIG = " & .Row
End With
End Sub
Variante :
Sub ActiveCellLitteral
Dim sActiveSheetName
sActiveSheetName =
ThisComponent.getCurrentController().getActiveSheet().getName()
MsgBox "Feuille active = " & sActiveSheetName & chr(10) & _
"Cellule active = " &
ThisComponent.getCurrentSelection.ColumnDescriptions(0) & _
", " & ThisComponent.getCurrentSelection.RowDescriptions(0)
End Sub
Francois
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
