VBA erreur 438 sur un ColumnWidth

Résolu/Fermé
simis02 Messages postés 48 Date d'inscription dimanche 12 mars 2017 Statut Membre Dernière intervention 10 décembre 2021 - Modifié le 2 juin 2020 à 13:21
ccm81 Messages postés 10815 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 18 février 2024 - 2 juin 2020 à 15:42
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

2 réponses

eriiic Messages postés 24560 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 février 2024 7 205
2 juin 2020 à 13:18
Bonjour,

Columns et non Colums
eric
1
ccm81 Messages postés 10815 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 18 février 2024 2 403
Modifié le 2 juin 2020 à 15:42
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
0