Bonjour,
voici un exemple ci-joint qui peut peut-être t'aider, je modifie le range
du graphique.
https://cjoint.com/c/KHpjYiJvu7S
Yves
Le sam. 14 août 2021 à 12:23, yves dutrieux <ydutri...@gmail.com> a écrit :
> 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.formati...@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+unsubscr...@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
>
--
web site : http://www.molenbaix.com
--
Envoyez un mail à users+unsubscr...@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
