Agrandir les colonnes [Résolu]

Signaler
-
 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.

2 réponses

Messages postés
7202
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
15 janvier 2021
598
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



Parfait je te remercie cela fonctionne parfaitement. Top
Messages postés
25747
Date d'inscription
lundi 23 juillet 2007
Statut
Contributeur
Dernière intervention
15 janvier 2021
5 714
Bonjour
j'ai collé ça chez moi et ça fonctionne parfaitement?
crdlmnt
J'ai d'autres macros dans le fichier ce pourrait-il que ça vienne de la ?
https://drive.google.com/file/d/1jBMNmDQVDZchHfwHoOzEywTVtLoz6f8R/view?usp=sharing

Voici le lien du fichier