Discussion :

[retraite83]

Bonjour,

grâce à votre aide j'ai pu adapter la hauteur de mes lignes à la longueur des textes, reste une petite amélioration à faire.

Pour commencer je ne fusionne plus les cellules sur la ligne dont la hauteur est adaptée avec autofit, puisque cela ne fonctionne pas sur des cellules fusionnées.

J'utilise dans format / format de cellule / horizontal : centré sur plusieurs colonnes

L'autofit fonctionne bien (avec les bons paramètres), le soucis est que le texte est centré… évidemment…

Le cadrer à gauche après l'autofit tout simplement par VBA revient à perdre la fusion et l'autofit

peut-on simuler : A gauche sur plusieurs colonnes qui n'existe pas dans format de cellules ?

[anasecu]

Bonjour,

Je pense que tu pourrais essayer ceci qui semble faire ce que tu souhaites

Code :

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

Plage.HorizontalAlignment = 5

[retraite83]

Désolé, je ne comprends pas ce que cela fait et apporte à mon problème.

[78chris]

Bonjour

Centré sur plusieurs colonnes centre... mais on peut tricher avec un format de nombre personnalisé
@*
le dernier caractère après * est un espace

http://www.excel-formations.fr/Trucs_astuces/MFC03.php

[unparia]

Bonjour

Je lis :

j'ai pu adapter la hauteur de mes lignes à la longueur des textes, reste une petite amélioration à faire.

L'autofit fonctionne bien (avec les bons paramètres), le soucis est que le texte est centré… évidemment

…

Le cadrer à gauche après l'autofit tout simplement par ....

Je ne vois alors pas de problème, puisque ce que tu sembles vouloir n'est rien d'autre que le texte cadré à gauche et sur une hauteur dépendant de la longueur du texte.
Que vient alors faire autofit dans cette affaire ?
Il suffit (menu format -->> alignement) de cocher pour seule option : "renvoyer à la ligne automatiquement", que tu peux de surcroît, si tu le désires, conjuguer avec un alignement vertical (haut, bas ..) de ton choix.

[retraite83]

Autofit me permet d'ajuster automatiquement la hauteur de la ligne quand le texte dépasse la longueur des cellules fusionnées

voilà le bout de code :

Code :

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

1
2
3
4
5
6
7
 
actRow = Target.Row
Worksheets("F&B").Rows(actRow).AutoFit
 
i = imprimFB + ((actRow - 5) * 2)               ' Ligne correspondante dans Imprimable
Worksheets("Imprimable").Rows(i).AutoFit
Worksheets("Imprimable").Rows(i).RowHeight = 8 + Worksheets("Imprimable").Rows(i).RowHeight

Cela marche parfaitement mais le texte n'est pas cadré à gauche

[patricktoulon]

Autofit me permet d'ajuster automatiquement la hauteur de la ligne quand le texte dépasse la longueur des cellules fusionnées

??????????????
depuis quand autofit gere la hauteur de ligne ?

[78chris]

Bonjour à tous

Autofit marche dans les 2 sens : horizontalement et verticalement selon l'objet auquel on l'applique, column ou Row...

Quand à l'alignement horizontal, qui était l'objet du fil, j'ai donné une solution mais pas eu de retour...

[patricktoulon]

re
retraité:

Autofit me permet d'ajuster automatiquement la hauteur de la ligne quand le texte dépasse la longueur des cellules fusionnées

78chris:

Autofit marche dans les 2 sens :

a bon !!???
chez moi autofit ne change rien a la hauteur de ligne meme sur une cellule ou fusion en mode wraptext contenant plusieurs lignes

[Menhir]

chez moi autofit ne change rien a la hauteur de ligne

Ne confonds-tu pas AutoFit et AutoFill ?

[78chris]

RE

re
78chris:
a bon !!???
chez moi autofit ne change rien a la hauteur de ligne meme sur une cellule ou fusion en mode wraptext contenant plusieurs lignes

Chez moi, Excel 2010 :
en mode fusionné cela marche mais n'affiche que la ligne du haut donc illisible
en non fusionné, cela ajuste bien la hauteur du row que ce soit un alignement à gauche ou centré sur plusieurs colonnes (Rows("1:5").AutoFit par exemple)

[patricktoulon]

re
exact
j'ai remarqué un soucis
si j'ai en A2 un texte trop long en wraptext false
et uen A3 un texte trop long mais en wraptext true

et que je fait

Code :

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

1
2
3
4
Sub test()
Rows(2).AutoFit
Rows(3).AutoFit
End Sub

la ligne 2 n'est pas autofiter le texte depasse toujours sur la cellule d'a coté

par contre si je fait

Code :

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

1
2
3
4
Sub test()
columns(1).AutoFit
Rows(3).AutoFit
End Sub

la j'ai A2 et A3 agrandi en largeur en une seule ligne
j'en connais un qui va s'amuser longtemps avec ca

[retraite83]

Pardon de m'insérer dans vos discussions très intéressantes mais pour revenir à ma question j'ai écrit :

Code :

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

1
2
3
Worksheets("F&B").Rows(actRow).AutoFit
Worksheets("F&B").Rows(actRow).RowHeight = 5 + Worksheets("F&B").Rows(actRow).RowHeight
Worksheets("F&B").Rows(actRow).HorizontalAlignment = 5

Avec la dernière ligne l'autofit est ok mais le texte n'est plus renvoyer à la ligne (débordement sur les cellules adjacentes)

[patricktoulon]

re

Avec la dernière ligne l'autofit est ok mais le texte n'est plus renvoyer à la ligne (débordement sur les cellules adjacentes)

ben c'est un peu ce que j'ai essayé de mettre en evidence on peut dire a ce titre que c'est le serpent qui se mort la queue
d'ou ma proposition pour le rowheight dans ton autre poste

[78chris]

RE

Pardon de m'insérer dans vos discussions très intéressantes mais pour revenir à ma question...

Toi tu ne semble guère t'intéresser aux réponses que l'on te donne !

Alors je choisis l'autofuite ....

[retraite83]

Bonjour 78Chris,

ton statut d'expert ne te permets pas ce genre de réponse. Quand je dis que les réponses sont très intéressantes mais que je reviens à ma question initiale ne signifie pas que je me désintéresse des réponses qu'on me donne, loin de là, mais simplement qu'elles sont intéressantes et qu'il me faut du temps pour comprendre les solutions souvent assez complexes pour moi.
Je suis un chirurgien en retraite et je suis désolé de ne pas être performant dans ton domaine d'expertise et qui est loin du mien, certains ici font preuve d'une grande patience à mon égard et surement à l'égard de beaucoup d'autres.

Je suis d'autant plus désolé que tu as toujours répondu avec courtoisie et une grande compétence à mes interrogations, et si ta solution de facilité est l'autofuite, je trouve cela dommageable et cela n'est pas pour te grandir..

Avec toute ma sympathie, en espérant ton coup de colère passager...

[Menhir]

Je suis d'autant plus désolé que tu as toujours répondu avec courtoisie et une grande compétence à mes interrogations, et si ta solution de facilité est l'autofuite, je trouve cela dommageable et cela n'est pas pour te grandir..

De la part d'une personne qui vient fréquemment sur ce forum pour demander de l'aide mais qui, lui-même, n'aide jamais personne, je trouve cette réflexion plutôt cocasse.
78chris ( ) n'est pas le seul qu'une telle attitude fini par lasser.

[retraite83]

Bonjour Menhir,

Je n'aide pas grand monde parce que je n'en ai pas la compétence, je souhaite clore ce débat ne souhaitant aucune polémique, je sais que vous êtes tous bénévoles et on ne peut que vous en remercier.
Je fais de même bénévolement depuis de longues années avec des jeunes chirurgiens qui apprennent eux aussi, mais nous tous en tant qu'experts dans nos domaines respectifs nous nous devons de ne pas nous lasser, c'est un devoir, même si ce n'est pas l'envie qui nous manque.

S'il vous plait, ne créons pas 2 clans, ceux qui savent tout de suite et ceux qui patinent pour comprendre et rabâchent parfois.

Oublions tout ça, un peu plus de patience de votre part parfois, un peu plus de réflexion surement du nôtre…

PS : je teste toutes les solutions qui m'ont été proposées.. sans succès pour l'instant

[Menhir]

Je n'aide pas grand monde parce que je n'en ai pas la compétence

Je pense que tu as amplement les compétences pour répondre à certaines des demandes qui sont faites sur ce forum.
Encore faudrait-il parfois lire les demandes d'autrui.

[retraite83]

J'avoue très honnêtement que je n'ai jamais essayé, concentré sur mes petits problèmes, je viens de découvrir que j'ai accès bien sur aux questions des autres, mais il n'est jamais trop tard pour bien faire, à mon niveau.
Méa culpa sur ce point, promis, de plus on apprend en enseignant...