Discussion :

[jneron]

Bonjour

J'ai un problème pour fixer la largeur de colonnes dans Excel 97.

Je veux fixer cette largeur en fonction de valeurs entrées en mm dans la feuille.

Il existe deux valeurs pour la largeur Width et ColumnWidth

Ces deux valeurs sont différentes et pas proportionnelles.

Width semble par contre proportionnel à la largeur réelle qui sera imprimé alors que ColumnWith ne l'est pas.

Or je ne peux modifier que ColumnWith, mais j'obtiens des colonnes non conformes à ce que je souhaite (de peu mais c'est génant).

Quelqu'un a-t-il une piste pour modifier la largeur Width

Merci de votre aide

Jean

[ouskel'n'or]

Propriété Width telle qu'elle s'applique à l'objet Range.

Largeur de la plage. Type de données Variant en lecture seule.

A priori je vois cette possibilité : Ajouter systématiquement un chouilla à toutes tes largeurs de colonnes
Tu peux mesurer l'écart entre la largeur de colonne auto et la largeur de colonne adapté manuellement. Il ne te restera plus alors qu'à ajouter cet écart.
A défaut d'une autre solution plus sioux...

[jneron]

Bonsoir

J'avais effectivement vu dans l'aide que cette valeur était en lecture seule, mais je pensais (espérais!!) qu'il y avait une astuce, une ruse pour contourner le pb.

Mais je crois avoir trouvé une solution, que je vais tester, et renvoyer si elle marche.

Merci pour ton aide

Jean

[jneron]

Bonjour

Je mets en ligne la solution que j'ai trouvé

L'itération est nécessaire car columnwidth et largeur réelle ne sont pas proportionnelles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Function FixeLargeur(NumColonne, Largeur) ' Largeur en mm
        While Abs(Largeur - Cells(1, NumColonne).Width) > 1
            Cells(1, NumColonne).ColumnWidth = Cells(1, NumColonne).ColumnWidth / Cells(1, NumColonne).Width * Largeur
        Wend
End Function

[ouskel'n'or]

Joli !