XL 2016 largeur colonnes en fonction du texte

[tguy]

Bonsoir,
je suis nul en vba ?
J'ai un userform qui me permet de remplir une feuille Clients (Nom, Adresse etc... )et qui créé une feuille pour chaque client ( Nom, Référence etc...) je voudrai que la largeur de mes colonnes se règle automatiquement en fonction de la longueur du texte.
Merci pour votre aide

 

[Myst]

Bonsoir
Ca concerne combien de colonne ?

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

A adapter

 

[DoubleZero]

Bonjour à toutes et à tous,

Bienvenue sur XLD, tguy.

Comme ceci ?

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

A bientôt

 

[tguy]

Bonsoir
Ca concerne combien de colonne ?

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

A adapter

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

 

[tguy]

Bonjour à toutes et à tous,

Bienvenue sur XLD, tguy.

Comme ceci ?

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

A bientôt

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

 

[Myst]

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

Private Sub Worksheet_Activate()
     Columns.AutoFit
End Sub

 

[tguy]

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

 

[tguy]

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