VBA erreur 438 sur un ColumnWidth
Résolu
simis02
Messages postés
47
Date d'inscription
Statut
Membre
Dernière intervention
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
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 ?
Merci d'avance.
Simis
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 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- J'aime par erreur facebook notification - Forum Facebook
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
