XL 2019 autofit

[MOmichel]

bonjour
Apres ces 2 commandes pour mettre des cellules ou colonnes en hauteur automatique ou avec une hauteur voulue ci dessous


Range("AZ1:BA1").Columns.AutoFit
Range("A8:a200").Columns.RowHeight = 40

je voudrais savoir :

est il possible d'avoir Range("AZ1:BA1").Columns.AutoFit + une hauteur determiner
c'est si l'Autofit est de 40 je voudrais lui ajouter 20 par exemple

merci pour votre aide

 

[sylvanu]

Bonjour MoMichel,
La hauteur de ligne peut être obtenue par :

Hauteur = Range("A8:a200").Columns.RowHeight

Donc l'augmenter de 40 c'est faire :

Range("A8:a200").Columns.RowHeight = Range("A8:a200").Columns.RowHeight + 40

 

[MOmichel]

Bonjour
merci de ta réponse rapide
mias c'est sur cet "Range("AZ1:BA1").Columns.AutoFit" que je voudrais augmenter de 40

 

[sylvanu]

Alors remplacer RowHeight par ColumnWidth .

Range("AZ1:BA1").Columns.AutoFit
Range("AZ1:BA1").Columns.ColumnWidth=Range("AZ1:BA1").Columns.ColumnWidth=+40
Range("A8:a200").Columns.RowHeight = 40

 

[MOmichel]

bonjour cela te dérange si je mets mon fichier en pièce jointe (nota le + 40 ne fonctionne pas ? )

 

[sylvanu]

Non, c'est même très souvent où on fait cette requête. C'est beaucoup plus simple pour comprendre le problème.
Attention cependant, pas de données sensibles.

 

[sylvanu]

J'ai honte.
il fallait lire :

Range("AZ1:BA1").Columns.ColumnWidth=Range("AZ1:BA1").Columns.ColumnWidth+40

Le "=" n'a rien à faire là.
Attention les unités en hauteur et largeur ne sont pas les mêmes donc il faudra ajuster la valeur.

Range("AZ1:BA1").Columns.AutoFit
Range("AZ1:BA1").Columns.ColumnWidth=Range("AZ1:BA1").Columns.ColumnWidth+20
Range("A8:a200").Columns.RowHeight = 40

 

[MOmichel]

par avance merci
voici le fichier
la partie de code est a partir du bouton "Quitter" dans l'userform1
A+

 

[sylvanu]

En PJ un essai avec :

Columns("AZ").AutoFit
Columns("AZ").ColumnWidth = Columns("AZ").ColumnWidth + 5
Columns("BA").AutoFit
Columns("BA").ColumnWidth = Columns("BA").ColumnWidth + 5

Le "5" est à ajuster en fonction de votre besoin.

 

[MOmichel]

bonjour
ce nouveau code fait varier la largeur mais c'est la hauteur que je voudrais faire varier

 

[sylvanu]

"Range("AZ1:BA1").Columns.AutoFit" que je voudrais augmenter de 40

Alors je n'ai rien compris.
C'est donc la hauteur de la ligne 1 que vous voulez augmenter ? Alors pourquoi parler de AZ1:BA1 ?
Dans ce cas faites simplement :

Range("A1").Rows.AutoFit
Range("A1").Rows.RowHeight = Range("A1").Rows.RowHeight + 40

 

[MOmichel]

bonjour
parce-que je veux que se soit les cellules dans la colonne AZ ou BA qui pilote les hauteurs de lignes

 

[sylvanu]

Oui mais l'autofit va se faire sur la ligne pour que toutes les cellules soient visible. Pas sur deux cellules seulement.
Il va s'adapter sur la hauteur min nécessaire pour que tout soit visible.

 

[MOmichel]

oui je suis d'accord mais ça ne fonctionne pas

 

[MOmichel]

les cellules reste bloquées à 39.6 (66 pixels)