Re: [fr-users] Macro : Problème CellAdress

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 à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy