Hauteur de lignes à 25 mini puis ajustement automatique

[isa44]

Bonjour ,
je cherche un moyen pour avoir des hauteurs de lignes de 25 minimum (sans jouer sur la taille de police) puis faire un ajustement automatique pour les autres lignes qui ont besoin d'un agrandissement de hauteur de lignes.

Merci pour vos solutions

 

[isa44]

Re : Hauteur de lignes à 25 mini puis ajustement automatique

Merci Masterdisco , c'est nicquel.

Pourrait on rajouter 2 points aux hauteurs de lignes ajustés ?
(Exemple 35+2= hauteur ajusté 37)

 

[isa44]

Re : Hauteur de lignes à 25 mini puis ajustement automatique

Super , merci pour votre rapidité

 

[isa44]

Re : Hauteur de lignes à 25 mini puis ajustement automatique

Je reviens vers vous car j'ai remarquée un soucis :

J'applique AutoHeight à une feuille qui a des lignes masquées , hors je voudrais qu'elles restent masquées et que ne s'applique pas l'exécution de la macro pour ces lignes.

 

[isa44]

Re : Hauteur de lignes à 25 mini puis ajustement automatique

Bonjour et encore MERCI

 

[idupont]

Re : Hauteur de lignes à 25 mini puis ajustement automatique

Je suis intéressée sur la façon de faire, pouvez-vous me dire comment faut-il procéder?

Merci par avance

 

[isa44]

Re : Hauteur de lignes à 25 mini puis ajustement automatique

Bonjour , voici le code VBA à adapter:

Range(Cells(lig, "D"), Cells(lig, "P")).Select
Selection.EntireRow.AutoFit ' hauteur ligne automatique
Selection.EntireRow.RowHeight = Selection.EntireRow.RowHeight + 10 ' + 10 pixel
If Selection.EntireRow.RowHeight < 25 Then Selection.EntireRow.RowHeight = 25 ' hauteur de ligne 25 mini
Next

Bonne adaptation

 

[idupont]

Re : Hauteur de lignes à 25 mini puis ajustement automatique

Merci beaucoup je vais tester de suite.

 

[idupont]

Re : Hauteur de lignes à 25 mini puis ajustement automatique

Petite question, a quoi correspond "lig" dans la première ligne du code ?

 

[isa44]

Re : Hauteur de lignes à 25 mini puis ajustement automatique

Cela correspond à la dernière ligne concernée.
Vous pouvez définir les lignes auquelles vous voulez appliquer le code :

Range ("A3:H300").Select par exemple

 

[idupont]

Re : Hauteur de lignes à 25 mini puis ajustement automatique

re bonjour,

J'ai essayé le code mais celle ne fonctionne pas, pouvez-vous m'expliquer les différentes fonction du code car je suis débutante sur VBA (je n'y connais rien).

 

[isa44]

Re : Hauteur de lignes à 25 mini puis ajustement automatique

Bonjour , envoyez moi votre fichier ou un résumer de votre fichier ce sera plus simple.

 

[idupont]

Re : Hauteur de lignes à 25 mini puis ajustement automatique

Ce que je souhaiterais : les lignes 3 et 4 en tailles 25 et les lignes 5 et 6 en automatiques.

 

[isa44]

Re : Hauteur de lignes à 25 mini puis ajustement automatique

Voici le fichier , faire Alt + F11 pour voir le code dans la feuille 1.

 

[idupont]

Re : Hauteur de lignes à 25 mini puis ajustement automatique

Merci beaucoup