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.
A voir également:
- Agrandir les colonnes
- Comment faire des colonnes sur word - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Comment agrandir un tableau sur word - Guide
- Comment agrandir une image - Guide
- Raccourci agrandir fenetre - Guide
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
tu peux faire cela:
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
michelexcel
Parfait je te remercie cela fonctionne parfaitement. Top
