Agrandir les colonnes Résolu

Question

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.

Vaucluse · Answer

Bonjour
j'ai collé ça chez moi et ça fonctionne parfaitement?
crdlmnt

cs_Le Pivert · Answer

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

Agrandir les colonnes

2 réponses

Discussions similaires

Newsletters