Largeur de colonnes

[guy72]

Bonjour,
Est-il possible d'obtenir une largeur automatique des colonnes dès que l'on saisie un texte ou une valeur ?
Merci de votre aide
Guy

 

[phlaurent55]

Re : Largeur de colonnes

Bonjour Guy,

la réponse par macro:
créeer une evènementielle et mettre ceci:
Columns("E:E").EntireColumn.AutoFit

pour un ajustement automatique de la colonne E

à+
Philippe

 

[guy72]

Re : Largeur de colonnes

bonjour,
Comment créer une vènemeentielle ?
J'ai 260 colonnes.

 

[mromain]

Re : Largeur de colonnes

Bonjour guy72, phlaurent55,


A partir de l'idée à phlaurent :
mettre ce code sur la feuille (clic droit sur l'onglet, puis Visualiser le code)

Private Sub Worksheet_Change(ByVal Target As Range)
    Target.EntireColumn.AutoFit
End Sub

A+

 

[guy72]

Re : Largeur de colonnes

Ok merci super !
A+

 

[guy72]

Re : Largeur de colonnes

Bonsoir,
Est-il posible de le faire pour le classeur entier au lieu de copier le code dans chaque feuille ?
Merci de votre aide
Cordialement
Guy

 

[phlaurent55]

Re : Largeur de colonnes

Re,

oui, c'est possible avec ce code dans ThisWorkBook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Target.EntireColumn.AutoFit
End Sub

à+
Philippe

 

[guy72]

Re : Largeur de colonnes

Re,
Par contre, la 1ère réponse que tu m'as donné "Columns("E:E").EntireColumn.AutoFit", ça m'interesse aussi de pouvoir choisir une ou plusieurs colonnes, comme je le disais plus haut, j'ai 260 colonnes, j'ai essayé plusieurs façon, et finalement, j'ai mis le code suivant sans plus de résultat :

Private Sub Worksheet_Change(ByVal Target As Range)
    Target.Columns("E:E").EntireColumn.AutoFit
End Sub

Mais ce n'est certainement pas ça, puisque ça ne fonctionne pas.
Merci de votre aide
Cordialement
Guy

 

[Etienne2323]

Re : Largeur de colonnes

Salut Guy,
mes salutations également aux amis Philippe et mromain !
voici une possibilité pour tes 260 colonnes.

Private Sub Worksheet_Change(ByVal Target As Range)
    Range(Cells(1,1),Cells(1,260)).EntireColumn.AutoFit
End Sub

Les colonnes sont identifiées par le chiffre après la virgule.

Cells(Ligne,Colonne)

Bonne continuité,

Étienne

 

[guy72]

Re : Largeur de colonnes

Bonjour Etienne

Est-ce que, si je mets

Range(Cells(1,1),Cells(1,100),Cells(1,160:260),).).EntireColumn.AutoFit

Celà vat-il me mettre en automatique les colonnes de 1à100 et de 160à260.
Bref choisir mes colonnes.

 

[phlaurent55]

Re : Largeur de colonnes

RE,

Re,
Par contre, la 1ère réponse que tu m'as donné "Columns("E:E").EntireColumn.AutoFit", ça m'interesse aussi de pouvoir choisir une ou plusieurs colonnes, comme je le disais plus haut, j'ai 260 colonnes, j'ai essayé plusieurs façon, et finalement, j'ai mis le code suivant sans plus de résultat :

Private Sub Worksheet_Change(ByVal Target As Range)
    Target.Columns("E:E").EntireColumn.AutoFit
End Sub

Mais ce n'est certainement pas ça, puisque ça ne fonctionne pas.
Merci de votre aide
Cordialement
Guy

cette réponse concernait la question brute de départ sans les précisions qui ont été apportées par la suite

Voir la réponse apportée au post#7 pour un ajustement automatique de TOUTES les colonnes de TOUTES les feuilles du classeur

à+
Philippe

 

[Etienne2323]

Re : Largeur de colonnes

Salut Guy,
en fait, il faudrait faire une union, ce qui serait plus compliqué à gérer dans ton cas. Je te suggérerais plutôt de faire deux lignes, soit les lignes suivantes :

Range(Cells(1, 1), Cells(1, 100)).EntireColumn.AutoFit
Range(Cells(1, 160), Cells(1, 260)).EntireColumn.AutoFit

Sinon, par union, c'est possible de le faire comme ceci :

Dim Grand_Range As Range
Set Grand_Range = Application.Union(Range(Cells(1, 1), Cells(1, 2)), Range(Cells(1, 4), Cells(1, 5)))
Grand_Range.EntireColumn.AutoFit

Cordialement,

Étienne

 

[phlaurent55]

Re : Largeur de colonnes

Re,

ou alors comme ceci:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column < 101 Or (Target.Column > 159 And Target.Column < 261) Then
Target.EntireColumn.AutoFit
End If
End Sub

à+
Philippe

 

[guy72]

Re : Largeur de colonnes

Bonsoir,
Je vous remercie de toutes vos réponses.
Comme ça, je vais essayer toutes les solutions.
Désolé, de ne pas avoir proposé ça des le départ, mais je ne pensais pas que cela pouvait être possible 😱
Merci encore de votre aide
Cordialement
Guy