Je viens de ré-installer la version 7.1.5. Le dernier cas pour lequel
cela ne fonctionne pas et renvoie une erreur est le cas d'une sélection
de cellules non contiguës.
A tester
/sub RenvoiAdresse()//
//
//' feuille active colonne cellule active ligne cellule active//
//Dim document As Object//
//Dim feuille_active As Object//
//Dim cellule_active As Object//
//document = ThisComponent//
//feuille_active = document.currentController.activeSheet//
//'Ne fonctionne que si la sélection en cours est une cellule //
//dim y as object//
//y = document.getCurrentSelection//
//if
ThisComponent.currentSelection.supportsService("com.sun.star.sheet.SheetCell")
then//
// Dim c as integer//
// cellule_active = document.getCurrentSelection//
// 'OOo travaille avec un index commençant à 0 : on ajoute donc + 1//
// c = cellule_active.CellAddress.Column + 1//
// r = cellule_active.CellAddress.Row + 1//
// msgbox c &", " &r//
// else//
// if
ThisComponent.currentSelection.supportsService("com.sun.star.sheet.SheetCellRange")
then//
//
// dim x as object//
// x = document.getCurrentSelection.rangeaddress//
// msgbox "début sélection colonne" & x.startcolumn+1 & ", ligne
" & x.startrow+1 & " fin sélection colonne " & x.endcolumn+1 & ",
ligne " &x.endrow+1//
// else//
// msgbox "non traité sélections multilples"//
// end if//
//end if//
//
//End sub/
Le 13/09/2021 à 17:17, [email protected] a écrit :
Bonjour,
Celladdress n'est valable que si la sélection est une cellule.
Sinon il faut utiliser rangeaddress
Tu peux vérifier avec ce bout de code.
Claude
/sub RenvoiAdresse()//
//
//' feuille active colonne cellule active ligne cellule active//
//Dim document As Object//
//Dim feuille_active As Object//
//Dim cellule_active As Object//
//document = ThisComponent//
//feuille_active = document.currentController.activeSheet//
//'Ne fonctionne que si la sélection en cours est une cellule //
//if
ThisComponent.currentSelection.supportsService("com.sun.star.sheet.SheetCell")
then//
// Dim c as integer//
// cellule_active = document.getCurrentSelection//
// 'OOo travaille avec un index commençant à 0 : on ajoute donc
+ 1//
// c = cellule_active.CellAddress.Column + 1//
// r = cellule_active.CellAddress.Row + 1//
// msgbox c &", " &r//
// else//
// dim x as object//
// x = document.getCurrentSelection.rangeaddress//
// msgbox "début sélection colonne" & x.startcolumn+1 & ",
ligne " & x.startrow+1 & " fin sélection colonne " & x.endcolumn+1 &
", ligne " &x.endrow+1//
//
//end if//
//
//End sub/
Le 13/09/2021 à 08:41, François SEGUIN a écrit :
Bonjour,
Je viens de mettre à jour ma version libre office en V7.1.5 et j'ai
une macro qui fonctionnait dans les versions précédentes qui
maintenant génère une erreur.
Dans un tableur je récupèrais le numéro de ligne du curseur avec
l'instruction suivante :
Numligne = MonDocument.CurrentSelection.CellAddress.Row
Lors de l'éxécution de ma macro, j'ai maintenant le message de défaut
suivant :Propriété ou méthode non trouvée : CellAddress.
En vérifiant avec XRAY (commande XRAY MonDocument.CurrentSelection)
la propriété CellAdress n'apparait plus dans la liste. Par ou doit on
passer maintenant?
--
Envoyez un mail à [email protected] pour vous désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy
