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 ?