MH n° 376 Souci avec la macro Excel en centimètre (petit)

J'ai Excel 2000 et j'ai voulu installé cette macro qui est prévue pour Excel 2002 et 2003.
Elle fonctionne quand même mais j'ai un petit souci:
Si je tape une largeur de colonne de 4 cm celle ci mesure 4,25cm
Si je tape une largeur de colonne de 8 cm celle ci mesure 8,50cm, j'ai donc un ecart, par contre pour la hauteur de ligne c'est juste.
J'ai bien vérifié le texte et les valeurs de la macro, pas vu d'erreur.
Le problème vient-il de moi, Excel 2000 ou de la macro ?

Si vous connaissez la réponse.........merci.

J'ai retrouvé cette macro ici:

http://www.excelabo.net/xl/lign-col_ancien.php

Et il explique:

La largeur des colonnes dans excel est définie dans une unité qui n'en n'est pas une : elle dépend de la police par défaut... Du coup c'est pas si facile de dimensionner les Colonnes en cm...
Pour imprimer, vous aurez peut-être un décalage. Ce décalage dépend de l'imprimante choisie. Pas d'autre solution que de tatonner si vous avez besoin de quelque chose d'assez précis.

J'ai tatonné et trouvé ceci:


Largeur colonne enlever 6 pour cent à la largeur souhaitéé
Hauteur ligne ajouter 2 pour cent à la hauteur souhaitée.

Ya ptete plus simple........

largeur de colonnes
Quelque soit la largeur de colonne, j'obtiens 127.5 pixels de large. Où se trouve le problème?

Les macros fonctionnent, ça doit être une erreur de frappe.

Voici les deux listings des macros que vous pouvez récupérer (copier/coller)


Hauteur des lignes :

Sub LignesEnCm()
Dim cm As Single
cm = Application.InputBox("Hauteur de la ligne en cm.", Type:=1)
If cm Then
Selection.RowHeight = Application.CentimetersToPoints(cm)
End If
End Sub



Largeur des colonnes :

Sub ColonnesEnCm()
Dim cm As Single, points As Single, savewidth As Single
Dim count As Single
Application.ScreenUpdating = False
cm = Application.InputBox("Largeur de la colonne en cm.", Type:=1)
If cm = False Then Exit Sub
points = Application.CentimetersToPoints(cm)
savewidth = ActiveCell.ColumnWidth
ActiveCell.ColumnWidth = 255
If points > ActiveCell.Width Then
MsgBox "la largeur de" & cm & "est trop large" & Chr(10) & _
"la valeur maxi est de " & _
Format(ActiveCell.Width / 28.3464566929134, _
"0.00"), vbOKOnly + vbExclamation, "largeur non valable"
ActiveCell.ColumnWidth = savewidth
Exit Sub
End If
lowerwidth = 0
upwidth = 255
ActiveCell.ColumnWidth = 127.5
curwidth = ActiveCell.ColumnWidth
count = 0
While (ActiveCell.Width <> points) And (count < 20)
If ActiveCell.Width < points Then
lowerwidth = curwidth
Selection.ColumnWidth = (curwidth + upwidth) / 2
Else
upwidth = curwidth
Selection.ColumnWidth = (curwidth + lowerwidth) / 2
End If
curwidth = ActiveCell.ColumnWidth
count = count + 1
Wend
End Sub

Merci beaucoup
J'ai fait un copier/coller pour les 2 macros mais j'ai toujours le même écart à l'impression. Comme vous le précisez danns MH c'est une macro pour Excel 2002, 2003.......et moi j'ai Excel 2000, le problème est peut-être là.

Encore merci et à bientôt dans le n° 377

Merci infiniment. Du coup, je n'ai pas vérifié l'erreur de frappe. Des problèmes de vue, peut être!!! En effet, je n'ai plus les bras assez long, et je ne veux pas abimer mes lunettes! Merci encore.