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

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, prog.amateur@free.fr 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 à 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