VBA erreur 438 sur un ColumnWidth Résolu/Fermé

Question

Bonjour,

Dans mon code VBA j'ai la fonction suivante dans laquelle j'injecte un tableau avec des noms de feuilles.

Cette fonction me sert à gérer la taille des colonnes, mais j'ai une erreur 438 incompréhensible.

Peut-on m'éclairer ?

Function graphique_taille_colonne(feuille) 'ici on gère la taille des colonne

For j = 0 To UBound(feuille)
      ActiveWorkbook.Sheets(feuille(j)).Colums(1).ColumnWidth = 8.67
       ActiveWorkbook.Sheets(feuille(j)).Colums(2).ColumnWidth = 16.44
      ActiveWorkbook.Sheets(feuille(j)).Colums(3).ColumnWidth = 17
       ActiveWorkbook.Sheets(feuille(j)).Colums(4).ColumnWidth = 67.44
      ActiveWorkbook.Sheets(feuille(j)).Colums(5).ColumnWidth = 37.67
      ActiveWorkbook.Sheets(feuille(j)).Colums(6).ColumnWidth = 11.44
       ActiveWorkbook.Sheets(feuille(j)).Colums(7).ColumnWidth = 11.44
      ActiveWorkbook.Sheets(feuille(j)).Colums(8).ColumnWidth = 13
      ActiveWorkbook.Sheets(feuille(j)).Colums(9).ColumnWidth = 10.67
      ActiveWorkbook.Sheets(feuille(j)).Colums(10).ColumnWidth = 8.78
      ActiveWorkbook.Sheets(feuille(j)).Colums(11).ColumnWidth = 13.22
      ActiveWorkbook.Sheets(feuille(j)).Colums(12).ColumnWidth = 7
      ActiveWorkbook.Sheets(feuille(j)).Colums(13).ColumnWidth = 10.67
  Next j

End Function

Merci d'avance.

Simis

eriiic · Answer

Bonjour,

Columns et non Colums 
eric

ccm81 · Answer

Bonjour à tous les deux

Juste au cas où ...
La méthode AutoFit ajuste la largeur de la colonne selon son contenu
Columns(1).AutoFit

Cdlmnt

VBA erreur 438 sur un ColumnWidth

2 réponses

Discussions similaires