XL 2019 autofit

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Novembre 2020

• #2

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

VB:

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

Donc l'augmenter de 40 c'est faire :

Code:

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

 

Vote positif 0 Vote négatif

M

MOmichel

XLDnaute Junior

• 12 Novembre 2020

• #3

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Novembre 2020

• #4

Alors remplacer RowHeight par ColumnWidth .

VB:

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

 

Vote positif 0 Vote négatif

M

MOmichel

XLDnaute Junior

• 12 Novembre 2020

• #5

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Novembre 2020

• #6

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.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Novembre 2020

• #7

😡 J'ai honte.
il fallait lire :

VB:

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.

Code:

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

 

Vote positif 0 Vote négatif

M

MOmichel

XLDnaute Junior

• 12 Novembre 2020

• #8

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

 

Pièces jointes

• point appro du 13 11 2020.xlsm

  268.9 KB · Affichages: 11

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Novembre 2020

• #9

En PJ un essai avec :

VB:

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.

 

Pièces jointes

• point appro du 13 11 2020.xlsm

  273.5 KB · Affichages: 4

Vote positif 0 Vote négatif

M

MOmichel

XLDnaute Junior

• 12 Novembre 2020

• #10

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Novembre 2020

• #11

MOmichel à dit:

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

Cliquez pour agrandir...

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 :

Code:

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

 

Pièces jointes

• point appro du 13 11 2020.xlsm

  273.7 KB · Affichages: 6

Vote positif 0 Vote négatif

M

MOmichel

XLDnaute Junior

• 12 Novembre 2020

• #12

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Novembre 2020

• #13

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.

 

Vote positif 0 Vote négatif

M

MOmichel

XLDnaute Junior

• 12 Novembre 2020

• #14

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

 

Vote positif 0 Vote négatif

M

MOmichel

XLDnaute Junior

• 12 Novembre 2020

• #15

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

 

Vote positif 0 Vote négatif