résultat ColumnWidth différent depuis vba !?

[Roland_M]

bien le bonjour à tous

Je viens de me rendre compte (et pour la première fois !)
que je ne n'obtenais pas le résultat demandé avec ColumnWidth
dans un classeur j'ai une macro qui crée une nouvelle feuille
et dans cette feuille lorsque je fais par exemple:
Columns(1).ColumnWidth=10 J'ai dans la feuille une largeur = 8,57
pour 7 j'ai 6
pour 6 j'ai 5,14
... toujours moins !?
problème que je n'ai pas avec .RowHeight !?

pour faire des essais direct, tout en étant dans excel avec mon classeur,
je crée un classeur vierge et je fais un essai depuis le code feuille
et là j'obtiens bien le bon résultat !?

absolument incroyable !?
je ne vois pas ce qui pourrait provoquer cela depuis mon classeur !?


je suis sous 2003

merci d'avance pour les réponses.

 

[Guest]

Re : résultat ColumnWidth différent depuis vba !?

Bonjour Roland,

C'est normal car:

ColumnWidth est exprimé en valeur moyenne par rapport à 1 carartère de police Normale.

RowHeight est exprimé en points.

Voici un petit truc pour essayer d'approcher le résultat voulu:

'Points = le nombre de points désirés
Sub Ajustercolonne(Points)
    Dim fac 'Facteur 
    'Mettre la colonne à 255
    ActiveCell.ColumnWidth = 255
    fac = ActiveCell.ColumnWidth/ ActiveCell.Width
    ActiveCell.EntireColumn.ColumnWidth = Points * fac
End Sub

A+