Jean-Francois Nifenecker a écrit :
Et pour parcourir toutes les lignes de la sélection, une boucle ?
Comment trouve-t-on la première et la dernière lignes de la zone ?
Bonsoir Jean-François,
Une solution qui appartient à Troumad
Sub AdresseCoordZone
'*******************************************
'*** Merci Troumad pour AdresseCoordZone ***
'*******************************************
Dim MonDoc As Object, NomFeuille As String, Selection, SelectRange,
AdrSelection
MonDoc = ThisComponent
Selection = MonDoc.CurrentSelection
SelectRange = Selection.RangeAddress
NomFeuille = MonDoc.sheets(SelectRange.sheet).name
'Coordonnées
X1 = SelectRange.StartColumn
Y1 = SelectRange.StartRow
X2 = SelectRange.EndColumn
Y2 = SelectRange.EndRow
'Adresse
AdrSelection = AdrCell(X1, Y1) '1ére cellule
if (X1-X2)+(Y1-Y2) <> 0 then
AdrSelection = AdrSelection & ":" & AdrCell(X2,Y2)
End if
print X1, Y1, X2, Y2 'pour info
print NomFeuille & "." & AdrSelection 'pour info
End sub
Function AdrCell(X as long, Y as long) as String
Dim param as variant , AccesFonction as object
AccesFonction = createUnoService("com.sun.star.sheet.FunctionAccess")
param = Array(Y+1,X+1,4)
AdrCell = AccesFonction.CallFunction("ADDRESS",param())
End function
Voila, pour lire tu fais un For..Next et normalement ça roule.
Bonne prise de tête, pardon, bonne soirée ;-)
Bon surf,
Christian
9 messages in org.openoffice.fr.progRe: [prog] Appliquer une macro à la s...
