VBA erreur 438 sur un ColumnWidth [Résolu]

Signaler
Messages postés
42
Date d'inscription
dimanche 12 mars 2017
Statut
Membre
Dernière intervention
2 juin 2020
-
Messages postés
9493
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
3 juillet 2020
-
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

Messages postés
23375
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
30 juin 2020
6 221
Bonjour,

Columns et non Colums
eric
Messages postés
9493
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
3 juillet 2020
1 851
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