Ajuster largeur colonne au contenu d'une cellule en particulier

KTM · 1 Avril 2019

Salut tout le Forum
Voici ma preoccupation du jour
J'ai une table dans laquelle un total s'affiche en C56
Mais lorsque le chiffre est important pour la largeur predefinie je voudrais que ma colonne soit ajuster automatiquement.
Merci.

don_pets · 1 Avril 2019

hello,

comme ça je dirais bien :

VB:

columns("C").autofit

Après tout va dépendre du format de ta colonne

KTM · 1 Avril 2019

don_pets à dit:
hello,

comme ça je dirais bien :

VB:

columns("C").autofit

Après tout va dépendre du format de ta colonne

Merci bien ça marche mais
Voici exactement ce que je veux faire :
Initialement la largeur est 10
je voudrais que si le contenu ne tient pas dans 10 alors ajuster la largeur

eriiic · 1 Avril 2019

Bonjour,

VB:

Private Sub Worksheet_Calculate()
    Columns("C").AutoFit
End Sub

eric

job75 · 1 Avril 2019

Bonjour KTM, don_pets, eriiiic,

KTM à dit:
je voudrais que si le contenu ne tient pas dans 10 alors ajuster la largeur

VB:

With Columns("C")
    .AutoFit
    If .ColumnWidth < 10 Then .ColumnWidth = 10
End With

A+

KTM · 1 Avril 2019

job75 à dit:
Bonjour KTM, don_pets, eriiiic,

VB:

With Columns("C") .AutoFit If .ColumnWidth < 10 Then .ColumnWidth = 10 End With

A+

Merci à tous
Le code de Job75 me convient parfaitement

Ajuster largeur colonne au contenu d'une cellule en particulier

KTM

XLDnaute Impliqué

don_pets

XLDnaute Occasionnel

KTM

XLDnaute Impliqué

eriiic

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Discussions similaires