Hauteur de ligne au moins égal à xxx

[Aurore14]

Bonjour à tous,

J'ai fais une recherche sur le forum mais je n'ai rien trouvé alors je me permets de vous écrire!

En fait je recherche comment faire pour obtenir un ajustement automatique de la hauteur de ligne pour qu'elle soit au moins égal à 50.

Je m'explique, mon tableau contient de nombreuses lignes et les hauteurs de ligne peuvent varier entre 20 et plus de 200, et 25 ca fait un peu rikiki quand on imprime.

Ce que je souhaiterais c'est savoir comment faire pour que la hauteur de ligne se fasse automatiquement et en même temps qu'elle soit au moins égale à 50. :unsure:

Si jamais quelqu'un sait comment faire je suis plus que preneuse (sachant que VBA et moi on est pas encore potes, même si j'essaie d'établir un lien avec lui, c'est pas encore gagné )

Aurore

 

[Eric C]

Bonjour le forum
Bonjour Aurore14

Il va falloir t'y mettre au VBA avec ce code à placer dans un module :

Sub ajuste_a_50()
With Worksheets('feuil1').Rows
     .WrapText = True  'Renvoi à la ligne
     .RowHeight = 50 'Hauteur des lignes
End With
End Sub

Bonne journée à toutes & à tous

 

[ERIC S]

Bonjour

je n'ai pas trouvé comment hanger la valeur min

la propriété est StandardHeight

Par contre essaie de sélectionnet une plage de lignes et

Rows('1:9').Select
For Each rw In Selection.Rows
If rw.RowHeight < 35 Then rw.RowHeight = 35
Next


A+

 

[ERIC S]

re

ERIC C

je n'ai pas testé mais ton code passera aussi les lignes initialement à 200 à 50

?

A+

 

[Eric C]

Re le forum
re bonjour Aurore14, bonjour EricS

Tu as tout à fait raison, pas bien réveillé sans mon café. Arf....

Bonne journée à toutes & à tous

 

[Aurore14]

Rebonjour,

Merci Eric S et Eric C,

Ca marche nikel :woohoo:

Rows('1:9').Select
For Each rw In Selection.Rows
If rw.RowHeight < 35 Then rw.RowHeight = 35
Next

Par contre dans celle qui sont supérieures à 35, pourquoi je ne vois pas la fin des mots (ajustement pas si automatique que ça!), la hauteur de ligne est disons juste un peu trop petite.. :unsure:

Euh juste comme ca, il y a plusieurs feuilles dans mon classeur, alors je dois préciser sur quelle feuille cette macro doit fonctionner? Ou cela le fera sur toutes mes feuilles?

Merci pour votre rapidité en tout cas


Très bonne journée à tous!

 

[Aurore14]

rebonjour,

Bon du coup j'ai foulu essayer de feinter avec mister VBA et bien il a gagné la bataille (mais pas la guerre )

J'ai voulu faire ainsi :

'Ajustement de la hauteur des lignes (au moins égale à 50)
Sheets('PLAN D'ACTION CY').Select
Range('A7:J1657').Rows.AutoFit
Rows('7:1657').Select
For Each rw In Selection.Rows
If rw.RowHeight < 50 Then rw.RowHeight = 50
Next

Mais il bugue :evil: , il ne s'arrete plus (car il n'y a pas que ca dans la macro)... alors ca m'embete un peu, de plus ce fichier doit etre utiliser par de nombreuses personnes et le pc que j'utilise est assez récent mais pour d'autres ce n'est pas le cas et c'est beaucoup plus long, si en cliquant sur le bouton ca mets plusieurs minutes a se faire ils vont me maudir

Auriez vous une solution??

Merci d'avance

Aurore

 

[ERIC S]

re

2 petites lignes magiques à ajouter

Application.ScreenUpdating = False
Sheets('PLAN D'ACTION CY').Select
Range('A7:J1657').Rows.AutoFit
Rows('7:1657').Select
For Each rw In Selection.Rows
If rw.RowHeight < 50 Then rw.RowHeight = 50
Next
Application.ScreenUpdating = True

tu annuler la mise à jour de l'affichage pendant la macro

A+

 

[Aurore14]

Euh c'est normal que ça mette beaucoup de temps? :unsure:

Peut etre est ce parce que je n'ai pas compris
'tu annuler la mise à jour de l'affichage pendant la macro'

(désolé d'etre si exigeante! )

 

[ERIC S]

re

fichier joint, 2 boutons, avec et sans rafraîchissement écran

reste de toute façon en veille sur le fil, si je trouve autre chose je te le mettrai

A+ [file name=hauteurligne.zip size=12272]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/hauteurligne.zip[/file]

 

[Aurore14]

Ca marche !!!

Merci beaucoup pour l'aide!!

Aurore

 

[ERIC S]

Bonjour

A priori la valeur min n'est pas accessible en écriture, une des causes est je pense le fait qu'elle soit ajustée en fonction de la police de caractères choisie

A bientôt sur un autre fil peut-être

 

[ERIC S]

Bonjour

A priori la valeur min n'est pas accessible en écriture, une des causes est je pense le fait qu'elle soit ajustée en fonction de la police de caractères choisie

A bientôt sur un autre fil peut-être