largeur des colonnes dans excel Résolu/Fermé

Question

Bonjour,

je veux faire une macro qui change ma largeur des colonnes en fonction du texte qui contienne,.
j'ai arrivé à créer une qui joue sur la largeur d'une colonne, mais je sais pas comment faire pour qu'elle joue sur les autres colonnes de la feuille.
voici le code que j'ai  programmé:

Dim compteur As Integer
Dim nbrcar As Integer
nbrcar = 0
For i = 1 To 200
If Len(Range("A" & i)) > nbrcar Then
nbrcar = Len(Range("A" & i))
End If

Next i
Columns("A").ColumnWidth = nbrcar



merci d'avance 
Cordialement

m@rina · Answer

Bonjour,

La méthode AutoFit devrait te suffire, non ?

Sub ajuste()
Range("A1:Z50").Columns.AutoFit
End Sub 

m@rina

Mike-31 · Answer

Salut,

Regardes cette discussion d'hier, ou j'ai joint un modéle post 3

A+

Un problème sans solution est un problème mal posé  (Einstein)

sozanita20 · Answer

bonjour, 

merci m@rina , votre macro a répondu à ma question.


merci une autre fois 
Cordialement

Mike-31 · Answer

Re,

J'avais oublié le lien

http://www.commentcamarche.net/forum/affich 12347472 largeur d une collonne?#6

Ou mieux le lien direct pour récupérer le fichier

https://www.cjoint.com/?fjiwKMIKcY 

A+--


Un problème sans solution est un problème mal posé  (Einstein)

Largeur des colonnes dans excel

4 réponses

Discussions similaires