Discussion :

[retraite83]

Bonjour

je cherche une explication à ma constatation suivante :

dans une feuille j'ai des colonnes de largeurs différentes de "B" à "AH", je cherche à créer une colonne "AN" unique ayant une largeur égale à la somme des largeurs des colonnes "B" à "AH"

pour cela j'ai écrit une macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim i As Integer, lg As Double, tot As Double
Dim sh As Worksheet
 
Set sh = Sheets("ModelH")
 
For i = 2 To 34
    lg = sh.Columns(i).ColumnWidth
    tot = tot + lg
Next i
 
End Sub

j'obtiens 65,14 (vérif faite manuellement c'est correct), visuellement à l'écran les colonnes font 152 mm

Je créé ensuite une colonne "AN" de largeur 65,14, visuellement à l'écran elle ne fait que 112 mm

Où est l'erreur ? Comment créer une colonne ayant la même largeur visuellement ?

[TOFatJOB]

bonjour,

vous pourrez constater que si vous sélectionnez la "règle en millimètre", et colonnes A à Z largeur 2, on a un visuel écran (zoom 100% et avec ma taille d'écran) de 116 mm...
si je fais largeur colonne AA = 52 (26 *2) je m'attends à avoir le même rendu ... et bien non ! mesure = 85 mm

il faut faire largeur colonne A = 71 pour un affichage = 116 mm
2 x 35.5 donne presque le même rendu... mais pas tout à fait

Il semble qu'il faille appliquer un coefficient (non linéaire ...) selon le nombre de colonnes, l'épaisseur de la grille doit interférer je pense

[Tête de chat]

Bonjour,

quand on modifie "à la main" les largeurs il s'affiche deux chiffres : un en pixels qui est la largeur totale de la colonne, et un sans unité qui est la largeur utile correspondant au columnwith. Celui qui est additif c'est la largeur en pixel, malheureusement qui ne semble pas accessible en VBA.

En relevant quelques couples de valeurs

0,83 10
2,14 20
13,57 100
27,86 200
213,57 1500

et en lançant dessus une régression linéaire j'ai obtenu les coefficients :
0,142831436 -0,68230573

Soit
Columnwidth = L * 0,14 - 068

Et donc il faudrait corriger ta somme de (N-1) * -0.68230573 où N est le nb de colonnes. Dans ton exemple ça ferait un total corrigé de 95,97 (en ajoutant 32 * 0.68230573)

Après il restera toujours une source d'erreur résiduelle : le columnwith est "discret" : il n'a pas beaucoup de décimales et son unité exotique fait que seules quelques valeurs sont prises (suivant la police et la taille du style "normal"), ce qu'on voit aussi quand on la modifie "à la main". Chez moi par exemple ça passe de 12,29 à 12,43.