Largeur des colonnes dans excel
Résolu
sozanita20
Messages postés
2
Statut
Membre
-
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur 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
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
Configuration: Windows XP Internet Explorer 6.0
4 réponses
-
bonjour,
merci m@rina , votre macro a répondu à ma question.
merci une autre fois
Cordialement -
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) -
Bonjour,
La méthode AutoFit devrait te suffire, non ?
Sub ajuste() Range("A1:Z50").Columns.AutoFit End Sub
m@rina -
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)
