Discussion :

[Benjycool]

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

[Mobydick_62]

Bonsoir,

Voici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Benjycool]

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

[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

[Benjycool]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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