H
hindoussa
Guest
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 !
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 !