Fonction "AutoFit" - Fixer une taille minimum

[hindoussa]

Bonjour,

J'aurais besoin d'un coup de main si possible.
Je vous explique mon problème.

J'utilise la fonction "Autofit" pour arranger mes colonnes automatiquement.
Cette fonction je l'appelle sur une zone nommée.

Je veux pouvoir réajuster mes colonnes qui font partie de cette zone en leur appliquant une taille minimum.

Voilà ou j'en suis:

Sub Autofit()
Dim largeur As Long
Dim r As Range

ThisWorkbook.ActiveSheet.Select
Range("AutoFit").Columns.Autofit

For Each r In Range("AutoFit")
largeur = r.Column.Width
r.Column.Width = IIf(largeur < 10, 10, largeur)
Next

End Sub

Mais ça ne marche pas, j'ai une erreur de compilation par rapport à "r.Column.Width" et je n'arrive pas trop à situer le problème.

Je vous remercie par avance !

 

[Pierrot93]

Re : Fonction "AutoFit" - Fixer une taille minimum

Bonjour,

essaye peut être avec ceci :

largeur = r.Width

bon après midi
@+

 

[ERIC S]

Re : Fonction "AutoFit" - Fixer une taille minimum

Bonjour hindoussa et pierrot
peut-être une piste

For Each r In Range("1:1").Columns
If r.width < 10 Then r.Width = 10
Next

 

[hindoussa]

Re : Fonction "AutoFit" - Fixer une taille minimum

Merci pour ta réponse Pierrot93

J'ai essayé ta solution, mais j'ai une erreur à ce niveau là: r.Width = IIf(largeur < 10, 10, largeur)
ça me dit: "Objet requis"

 

[hindoussa]

Re : Fonction "AutoFit" - Fixer une taille minimum

Bonjour Eric,

j'ai essayé ta solution, ça me fait aussi la même erreur :s

 

[Pierrot93]

Re : Fonction "AutoFit" - Fixer une taille minimum

Re, bonjour Eric🙂,

"Width " est en lecture seule, essaye ceci :

If r.Width < 10 Then r.ColumnWidth = 10

 

[ERIC S]

Re : Fonction "AutoFit" - Fixer une taille minimum

Re

bien vu Pierrot, j'ai pourtant mangé léger ce midi 😱

 

[hindoussa]

Re : Fonction "AutoFit" - Fixer une taille minimum

Exact.

Merci beaucoup pour l'aide !