Largeur des colonnes dans excel

Résolu
sozanita20 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   -
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

4 réponses

Réponse 1 / 4
sozanita20 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
bonjour,

merci m@rina , votre macro a répondu à ma question.


merci une autre fois
Cordialement
0
Réponse 2 / 4
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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)
0
Réponse 3 / 4
m@rina Messages postés 23878 Date d'inscription   Statut Contributeur Dernière intervention   11 464
 
Bonjour,

La méthode AutoFit devrait te suffire, non ? 

Sub ajuste()
Range("A1:Z50").Columns.AutoFit
End Sub


m@rina
-1
Réponse 4 / 4
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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)
-1

Discussions similaires

Dimensions L x l x H : comment lire ces infos ?
Miss-Curieuse -
valou -

8 réponses