XL 2019 autofit

MOmichel · 12 Novembre 2020

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 · 12 Novembre 2020

Essayez ça :

VB:

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

Vous mettez hauteur de ligne 1 à 20.
Vous lancez la macro, vous avez hauteur de ligne 1 qui vaut 100.
Avant :
Après :

sylvanu · 12 Novembre 2020

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

MOmichel · 12 Novembre 2020

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

sylvanu · 12 Novembre 2020

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

MOmichel · 12 Novembre 2020

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

sylvanu · 12 Novembre 2020

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 · 12 Novembre 2020

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

MOmichel · 12 Novembre 2020

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

sylvanu · 12 Novembre 2020

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.

MOmichel · 12 Novembre 2020

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

sylvanu · 12 Novembre 2020

MOmichel à dit:
"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 :

Code:

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

MOmichel · 12 Novembre 2020

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

sylvanu · 12 Novembre 2020

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 · 12 Novembre 2020

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

MOmichel · 12 Novembre 2020

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

XL 2019 autofit

MOmichel

XLDnaute Junior

sylvanu

sylvanu

XLDnaute Barbatruc

MOmichel

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

MOmichel

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

MOmichel

XLDnaute Junior

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

MOmichel

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Pièces jointes

MOmichel

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

MOmichel

XLDnaute Junior

MOmichel

XLDnaute Junior

Discussions similaires