LibreOffice CALC - Macro insertion d'une ligne définie en gardant la mise en forme

Bonjour,

Cela fait des années que je n'ai plus fait de programmation et je suis perdu ...

J'aimerai faire quelque chose d'assez simple sur un calc de LibreOffice.

J'aimerai à partir d'un bouton, insérer une ligne au dessus de la ligne 4 en gardant la mise en forme déjà définie.

J'ai essayé via l'enregistreur mais il insère une ligne que lorsque je sélectionne une ligne manuellement donc "aléatoirement" et non à la ligne 4 comme je le souhaite.

Quand je regarde le code je ne comprend plus rien malheureusement ...

HELP s'il vous plaît :D

Bonsoir,

Voici:

Code:

---

1 2 3 4 5 6 7

Sub InsertionLigne() Dim oFeuille As Object 'Désignation de la feuille oFeuille = ThisComponent.getSheets.getByName("Feuille1") 'Insertion d'une ligne au dessus de la ligne 4 oFeuille.Rows.insertByIndex(3, 1) End Sub

---

Cordialement

Super merci beaucoup, effectivement j'arrive à insérer une ligne en 4.

Par contre je ne retrouve pas les formules qu'il y avait dans la ligne 4 qui devient ligne 5 après exécution.

Pour être plus clair, j'ai trois formules dans trois cellules différentes, exemple pour la première cellule : =((N4-M4)/M4).
Il faudrait donc que lorsque la ligne se crée, elle ait directement cette formule d'incorporée et seulement celle là puisque je ne crée au final qu'une ligne 4 à l'infinie en fonction de mes besoins.


Comment faire ?

Merci d'avance :D

Bonsoir,

Il est généralement demander dans ce forum comme bien d'autres de fournir leur fichier (préalablement anonymiser si besoin) afin de pouvoir aider au mieux les demandeurs dans leur projet.
A défaut j'ai créé un fichier test afin de vérifier mon code et personnellement je ne reproduis pas ce problème. Je précise que ma ligne 3 et 4 avant insertion sont identiques. Donc la ligne insérée conserve bien le format des autres lignes d'origine.
Partant de ta réflexion je vais voir ce qui pourrait "clocher" mais sans fichier exemple......

Cordialement

Ah d'accord, je le saurai pour la prochaine fois, merci du conseil.

J'ai trouvé la réponde donc je cloture ce sujet. En voici la réponse :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

'dbt insertion des formules en ligne 4 Dim oDoc As Object , Feuille As Object Dim Cellule As Object oDoc = ThisComponent Feuille = oDoc.getSheets.getByName("Feuille1")   Cellule = Feuille.getCellRangeByName("P4") Cellule.FormulaLocal = "=((N4-M4)/M4)" Cellule = Feuille.getCellRangeByName("Q4") Cellule.FormulaLocal = "=((O4-M4)/M4)" Cellule = Feuille.getCellRangeByName("T4") Cellule.FormulaLocal = "=((S4-R4)/R4)" 'fin insertion des formules en ligne 4

---

Citation:

---

Envoyé par Mobydick_62

Bonsoir,

Il est généralement demander dans ce forum comme bien d'autres de fournir leur fichier (préalablement anonymiser si besoin) afin de pouvoir aider au mieux les demandeurs dans leur projet.
A défaut j'ai créé un fichier test afin de vérifier mon code et personnellement je ne reproduis pas ce problème. Je précise que ma ligne 3 et 4 avant insertion sont identiques. Donc la ligne insérée conserve bien le format des autres lignes d'origine.
Partant de ta réflexion je vais voir ce qui pourrait "clocher" mais sans fichier exemple......

Cordialement

---