Largeur de colonnes

phlaurent55

Nous a quittés en 2020

Repose en paix

• 9 Juin 2011

• #2

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

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 9 Juin 2011

• #3

Re : Largeur de colonnes

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

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 9 Juin 2011

• #4

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)

VB:

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

A+

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 9 Juin 2011

• #5

Re : Largeur de colonnes

Ok merci super !
A+

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 9 Juin 2011

• #6

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 9 Juin 2011

• #7

Re : Largeur de colonnes

Re,

oui, c'est possible avec ce code dans ThisWorkBook

Code:

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

à+
Philippe

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 9 Juin 2011

• #8

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 :

Code:

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

 

Vote positif 0 Vote négatif

Etienne2323

XLDnaute Impliqué

• 9 Juin 2011

• #9

Re : Largeur de colonnes

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

Code:

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.

Code:

Cells(Ligne,Colonne)

Bonne continuité,

Étienne

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 9 Juin 2011

• #10

Re : Largeur de colonnes

Bonjour Etienne

Est-ce que, si je mets

Code:

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.

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 9 Juin 2011

• #11

Re : Largeur de colonnes

RE,

guy72 à dit:

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 :

Code:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Etienne2323

XLDnaute Impliqué

• 9 Juin 2011

• #12

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 :

Code:

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 :

Code:

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

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 9 Juin 2011

• #13

Re : Largeur de colonnes

Re,

ou alors comme ceci:

Code:

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

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 9 Juin 2011

• #14

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

 

Vote positif 0 Vote négatif