[Résolu][Calc] Hauteur de lignes s'adaptant au texte en continu

[Benjamin02]

Bonjour à tous,
Je rencontre un petit problème, le sujet traité dans le tutoriel Calc. n'a pas apporté de réponse.
viewtopic.php?t=68073
Je souhaite que mes hauteurs de lignes d'adaptent au contenu en permanence, qu'il change ou pas.

Informations coupées.png

Dans la fonction simple "Hauteur optimale" de ligne (Que "Valeur par défaut" soit coché ou non), cette ligne
ne s'adapte au texte que lorsque je fais cette manipulation.
Je souhaite qu'elle garde cette information en permanence chaque fois que le texte sera plus ou moins long.
Apparemment il faut passer par une macro.
Quelqu'un aurait-il une réponse à m'apporter ?
Merci d'avance.
Benjamin02

[Bidouille]

Bonjour,

Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.

Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche. Avez-vous remarqué comment étaient les autres questions postées ?

Lisez ce fil pour savoir quelle balise utiliser : ftopic1369.html

Un titre accrocheur vous permettra d'une part d'être aidé plus rapidement et d'autre part, d'enrichir notre base de connaissances. Nous l'avons fait pour vous cette fois-ci mais lors de votre prochaine question, nous vous remercions de le faire vous-même sous peine de voir votre sujet verrouillé.

Merci de votre collaboration.

[Benjamin02]

Désolé Bidouille,
Je croyais que c'était une Macro. (Les premiers pas ne sont pas évidents, je lis les recommandations mais c'est pas toujours évident).

Cette formule serait-elle une piste (Apparemment c'est pour Sheets).

Macro auteur lignes.png

[Dude]

Salut,

Cette formule serait-elle une piste (Apparemment c'est pour Sheets).

Une piste pour quoi ? Ce code n'a rien à voir avec du Basic.

Depuis bientôt 20 ans que ce forum existe, il devient très difficile de ne pas avoir une question qui n'a pas déjà été postée.
Dans ton cas, si je reprends les termes de ton titre (calc hauteur lignes), on trouve :
viewtopic.php?t=39883&hilit=calc+hauteur+lignes

[Jeff]

Bonjour,

Peut-être une piste ici :
viewtopic.php?p=367835#p367835

Sinon, faire une recherche sur OptimalHeight

A +

[Benjamin02]

Merci les amis mais là on part dans une belle complexité en prenant en compte vos pistes.
J'imaginais qu'il était possible de trouver une solution plus simple pour résoudre une fonction que je pensais basique.
Quelqu'un a t-il une baguette magique ?

[Noonours]

Bonjour
Ou simplement un double-clic dans les en-têtes de ligne entre 90 et 91 pour ajuster manuellement la hauteur... on perd de l'automaticité, mais c'est le temps d'un double-clic

[Dolev]

Bonjour,

J'imaginais qu'il était possible de trouver une solution plus simple pour résoudre une fonction que je pensais basique.

Si vous voulez faire simple, vous prenez la solution de Nounours.
La programmation de macro n'est pas recommandée si vous ne souhaitez pas apprendre à programmer en Basic.

Quelqu'un a t-il une baguette magique ?

Vous pouvez commencer par étudier les exemples dans les sujets données par Dude et Jeff.
Faites le sur un document plus simple que le votre en essayant sur une seule cellule.
Si vous n'y arrivez pas, joignez ce document pour qu'on y regarde.

[jeanmimi]

Bonjour,
On a vu dans le fil précédent que la hauteur optimale des cellules fusionnées nécessite de sélectionner la première colonne de la cellule fusionnée la plus à gauche pour lui appliquer la hauteur optimale qui s'imposera aux autres cellules de la fusion.
Ce code (après une petite recherche sur le forum) applique ce format :

Code : Tout sélectionner

Sub SetLinesOptimalHeight()
Dim oLine As Object
Dim nRowCpt As Integer
Dim oFeuille As Object
oFeuille = ThisComponent.currentController.activeSheet
OFeuille.Rows.OptimalHeight = True 
End Sub

J'ai assigné cette Macro à l'ouverture du document.

Assignation Macro.png

J'ai apporté aussi une modification au Style Format par défaut pour que les bordures soient un peu plus éloignées du texte.

[Benjamin02]

Merci Jeanmimi,
Je viens de regarder ce que tu m'as transmis si gentiment.
Etant donné que je suis novice en Macro mais que je souhaite apprendre,
je vais regarder de plus prêt et essayer de comprendre.
Le but étant de placer un beau [Résolu] !
A bientôt.

[Benjamin02]

Merci aussi Dolev,
Je vais regarder Dude et Jeff.

Veillez à ne pas poster plusieurs messages à la suite.
Cela alourdit inutilement la lecture.
Si vous avez un complément d'information à ajouter, vous modifiez votre message avec l'aide du bouton (petit crayon) sur la droite.

[Noonours]

Bonjour le forum, Benjamin02
Le script que fournit jeanmimi (que je salue ) fonctionne parfaitement, mais uniquement à l'ouverture du document. Or j'ai cru comprendre qu'il te fallait une actualisation "en direct" à l'issue de la moindre modification de ton fichier.
Une macro simplifiée qui agit sur la cellule A90:

Code : Tout sélectionner

Sub HauteurOpti()
oFeuille = ThisComponent.currentController.activeSheet         'la feuille active
oCell = oFeuille.GetCellrangeByName("A90")         'Sélection de la cellule à traiter
oCell.Rows.OptimalHeight = True       'on force la hauteur optimale de la ligne
End Sub

Cette macro est à brancher sur l'évènement de feuille "Contenu Modifié".
Le fichier en question avec la macro:

Tableur Hauteur de ligne 90 optimale_MOD Noonours.ods

Cordialement,

PS: les lignes et colonnes fusionnées font un sacré bazar, c'est une pratique que je conseille de bannir si c'est uniquement esthétique...

[Bidouille]

Dernière visite : 13 janv. 2024 17:19

Un mois plus tard, vous avez lu les réponses apportées sans daigner y donner une suite.
N'ayant plus de nouvelle, on peut en déduire que le problème est résolu ou ne se reproduit plus.
Merci de baliser par vous-même la prochaine fois.

Un remerciement fait aussi plaisir aux bénévoles qui vous ont consacré de leur temps.
La courtoisie fait également partie de la philosophie du logiciel libre.
En cas d'erreur, veuillez lire ce sujet pour une éventuelle réouverture de votre question :
ftopic52748-reouverture-de-question-fermee.html