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 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 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

A voir également:

VBA erreur 438 sur un ColumnWidth
Erreur 0x80070643 - Guide
Iptv erreur de lecture - Forum TV & Vidéo
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Vba erreur automation référence future non valide ✓ - Forum Word
Erreur 1004 vba ✓ - Forum Excel

2 réponses

Réponse 1 / 2

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
2 juin 2020 à 13:18

Bonjour,

Columns et non Colums
eric

Réponse 2 / 2

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
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

Discussions similaires

VBA erreur 1004

Instagram "Désolé, une erreur s'est produite"

"L'indice n'appartient à la sélection" + VBA

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Discussions similaires

Newsletters