Re: [fr-users] Macro de comptage de cellules pour une mise à jour des données source d'un graphique

Bonjour,

si c'est le problème de selection, voici un bout de code pour récupérer ce
qu'il faut d'une selection en calc :
Dim doc As object, feuille As object, ctrl as object , cel As Object
dim formulaires as Object, monformulaire as object, mapage as object,
moncontrol as object, monimage as object
dim chemin as string
dim positionImage as New com.sun.star.awt.Point
Dim Taille As New com.sun.star.awt.Size
dim sel as object
'dim departcol, departlig, finlig, fincol as Object

' recuperation des infos de la feuille actuelle
doc=thisComponent
Ctrl=doc.CurrentController
feuille=Ctrl.ActiveSheet

'recuperation de la selection en cours...
sel=doc.currentselection
if sel.supportsService("com.sun.star.sheet.SheetCellsRanges") then
' differentes zones selectionnées (on traite pas ici)
' for x = 0 to sel.count - 1
' zonex = sel(x)
' msgbox("Zone n" & x & "=" & adrZoneString(doc,zonex.RangeAddress))
' next
exit sub
elseif sel.supportsService("com.sun.star.table.Cell") then
' une cellule selectionnee
DepartCol=sel.CellAddress.column
FinCol=sel.CellAddress.column
DepartLig= sel.CellAddress.row
FinLig= sel.CellAddress.row
elseif sel.supportsService("com.sun.star.table.CellRange") then
' une zone adjacente de cellule selectionnee
DepartCol=sel.rangeAddress.startcolumn
DepartLig=sel.rangeAddress.startrow
FinCol=sel.rangeAddress.endcolumn
FinLig=sel.rangeAddress.endrow
else
msgbox("erreur logicielle")
exit sub
end if

sinon, si tu as la possibilité dans ton graphe, c'est de toujours faire tes
ajouts de lignes AVANT la dernière ligne de ta sélection. Ainsi ton
graphique se mettre à jour SANS que tu aies à le modifier ;)

Yves

Le ven. 13 août 2021 à 23:25, Algol formations <
algol.formations@inforbur.com> a écrit :

> Le 13/08/2021 à 21:29, Michel Rudelle - Listes LibO a écrit :
> > Bonsoir Michel,
> >
> > Le 13/08/2021 à 17:51, Algol formations a écrit :
> > > Bonjour,
> > >
> > > Je galère sur une macro qui compte le nombre de cellules rajoutées
> > > dans une sélection de données pour mettre à jour un graphique calc.
> > Tu galères à quel niveau ? Pour découvrir les nouvelles cellules, pour
> > les compter, pour mettre à jour le graphique... Éventuellement un bout
> > de macro permettrait de savoir où tu bloques.
> > > Merci de votre aide si possible (il s'agit de l'automatisation d'une
> > > application calc)
> > >
> > > A+
> Hello Michel,
>
> Binnnnnnnnnnnnn !! c'est dès le début que je bloque !
> Récupération des données d'origine : plage = oChart.getRanges(), OK.
> Trouver la dernière cellule non vide de la zone :  pas top (avec
> createSearchDescriptor et findAll ?...).
> Ensuite je sèche lamentablement sur: reconstituer la nouvelle référence
> (plage) pour mettre à jour à l'aide de oChart.setRanges(plage).
>
> En résumé ... Je rame !
>
> A+
>
>
>
> --
> Michel Blanchard
> ALGOL - Formation - Coaching Bureautique
> /5 rue de Vélantan/
> *37130* Mazières de Touraine
>
> --
> 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


-- 
web site : http://www.molenbaix.com

-- 
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