Agrandir les colonnes
Résolu
michelexcel
-
michelexcel -
michelexcel -
Bonjour,
Je travail actuellement sur un fichier excel ou j'aimerais en une clic sur une image agrandir la largeur de mes colonnes. J'ai donc créé la macro suivante.
Columns("E:E").Select
Selection.ColumnWidth = 7.14
Columns("F:F").Select
Selection.ColumnWidth = 7.14
Columns("G:G").Select
Selection.ColumnWidth = 10
Columns("H:H").Select
Selection.ColumnWidth = 14
Columns("I:I").Select
Selection.ColumnWidth = 7.14
Columns("J:J").Select
Selection.ColumnWidth = 10
Columns("K:K").Select
Selection.ColumnWidth = 14
Columns("L:L").Select
Selection.ColumnWidth = 7.14
Columns("M:M").Select
Selection.ColumnWidth = 10
Columns("N:N").Select
Selection.ColumnWidth = 14
Columns("O:O").Select
Selection.ColumnWidth = 10
Range("C1").Select
End Sub
Lorsque je clique sur mon image les colonnes s’agrandisse mais pas comme je le souhaiterais en effet je retrouve par exemple la colonnes F a 14 de largeur alors que j'avait demandé 7,14.
Je vous remercie de votre aide.
Je travail actuellement sur un fichier excel ou j'aimerais en une clic sur une image agrandir la largeur de mes colonnes. J'ai donc créé la macro suivante.
Columns("E:E").Select
Selection.ColumnWidth = 7.14
Columns("F:F").Select
Selection.ColumnWidth = 7.14
Columns("G:G").Select
Selection.ColumnWidth = 10
Columns("H:H").Select
Selection.ColumnWidth = 14
Columns("I:I").Select
Selection.ColumnWidth = 7.14
Columns("J:J").Select
Selection.ColumnWidth = 10
Columns("K:K").Select
Selection.ColumnWidth = 14
Columns("L:L").Select
Selection.ColumnWidth = 7.14
Columns("M:M").Select
Selection.ColumnWidth = 10
Columns("N:N").Select
Selection.ColumnWidth = 14
Columns("O:O").Select
Selection.ColumnWidth = 10
Range("C1").Select
End Sub
Lorsque je clique sur mon image les colonnes s’agrandisse mais pas comme je le souhaiterais en effet je retrouve par exemple la colonnes F a 14 de largeur alors que j'avait demandé 7,14.
Je vous remercie de votre aide.
2 réponses
-
Bonjour,
cela provient que ta colonne F est fusionnée. La colonne E est bien à 7.14
évite aussi les Sélect
Columns("E:E").ColumnWidth = 7.14
tu peux faire cela:
Sub test() Application.DisplayAlerts = False ' Columns("F:F").UnMerge 'defusionner Columns("F:F").ColumnWidth = 7.14 ' Columns("F:F").Merge 'fusionner Application.DisplayAlerts = True End Sub
-
Bonjour
j'ai collé ça chez moi et ça fonctionne parfaitement?
crdlmnt
