XL 2016 largeur colonnes en fonction du texte

Myst

XLDnaute Occasionnel

• 1 Novembre 2017

• #2

Bonsoir
Ca concerne combien de colonne ?

VB:

Columns("A:N").Select
Workbooks("Classeur1").Sheets("Feuil1").Columns("E:E").EntireColumn.AutoFit
    ActiveWindow.Panes(1).Activate

A adapter

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 1 Novembre 2017

• #3

Bonjour à toutes et à tous,

Bienvenue sur XLD, tguy.

Comme ceci ?

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Columns.AutoFit
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

T

tguy

XLDnaute Nouveau

• 1 Novembre 2017

• #4

Myst à dit:

Bonsoir
Ca concerne combien de colonne ?

VB:

Columns("A:N").Select
Workbooks("Classeur1").Sheets("Feuil1").Columns("E:E").EntireColumn.AutoFit
    ActiveWindow.Panes(1).Activate

A adapter

Cliquez pour agrandir...

Bonjour,

Ca concerne 10 colonnes de A à J dans la feuil1 (Clients)

4 colonnes de A à D dans la feuil5 (modele)

Et 4 colonnes de A à D de la feuil6 à illimité ( qui sont des copies de la feuille modèle et qui prend le nom du client créé exemple: création du premier client Mr Dupont donc feuil6 (Dupont), deuxième client Mr Martin donc feuil7 (Martin) etc…

Merci pour vos réponses mais pourriez vous me préciser à quel endroit je dois mettre le code que vous me donnez

Désolé mais je suis vraiment nul

MERCI

 

Vote positif 0 Vote négatif

T

tguy

XLDnaute Nouveau

• 1 Novembre 2017

• #5

DoubleZero à dit:

Bonjour à toutes et à tous,

Bienvenue sur XLD, tguy.

Comme ceci ?

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Columns.AutoFit
End Sub

A bientôt 🙂

Cliquez pour agrandir...

Bonjour,

Merci pour ta réponse mais pourrais tu me préciser à quel endroit je dois mettre le code que tu me donne

Désolé mais je suis vraiment nul

MERCI

 

Vote positif 0 Vote négatif

Myst

XLDnaute Occasionnel

• 3 Novembre 2017

• #6

Bonjour
Tu place le code dans chaque feuille , clique droit sur l'onglet et visualiser le code

VB:

Private Sub Worksheet_Activate()
     Columns.AutoFit
End Sub

 

Vote positif 0 Vote négatif

T

tguy

XLDnaute Nouveau

• 3 Novembre 2017

• #7

Boujour
il me met un message d'erreur : La méthode AutoFit de la classe Range a échoué.
j'ai oublié de préciser que ce sont des feuilles cachées et protégées que je visualise à la demande. Cela a peut être sont importance.
Cordialement

 

Vote positif 0 Vote négatif

T

tguy

XLDnaute Nouveau

• 4 Novembre 2017

• #8

Bonjour,
Le code de DoubleZero placé dans le code feuil a très bien fonctionné.
Merci pour votre aide
Cordialement

 

Vote positif 0 Vote négatif