Taille des cellules en centimetres

Je me permets de reposter mon message avec un autre titre car je n'ai pas eu de réponse pour m'aider

Je voulais savoir comment avoir la taille des cellules en cm au lieu d'avoir une valeur (je ne sais meme pas quelle unité c'est!), on a aussi une valeur en pixel mais cela ne me convient pas je voudrait pouvoir définir ma taille de cellule en centimetres

je suis sur la nouvelle version excel

merci

Bonjour,

Je n'ai pas la version 2007 sous la main, et je ne sais pas si cette option est prévue. Mais j'ai un petit bidouillage qui peut te rendre service... tout dépend du nombre de cellules que tu as à traiter.

Utilise la barre d'outils Dessin, crée une forme automatique Rectangle, puis dans le format de cette forme, tu détermines les dimensions comme tu veux. Ensuite, tu lui attribues une trame de couleur avec un degré de transparence, afin de voir à travers... et tu superposes sur ta cellule. Tu peux agrandir ou diminuer ta cellule jusqu'à ce que la taille convienne. Au besoin, note les valeurs obtenues, tu pourras les réutiliser ensuite.

C'est pas très "technique", mais c'est le seul moyen que j'ai trouvé de gérer les tailles de cellules en cm sur la version 2003.

Cordialement,

V_Elbie

Edit : Salut Félix ! Un code intéressant que je vais noter quelque part !

Bonsoir, pipoui

Bonsoir, V_Elbie

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, tu auras peut-être un décalage. Ce décalage dépend de l'imprimante

choisie. Pas d'autre solution que de tâtonner si tu as besoin de quelque chose d'assez

précis.

Le code pour mettre les colonnes en cm :

Sub colonnesEnCentimetres()
Dim cm As Integer, points As Integer, savewidth As Integer
Dim count As Integer
Application.ScreenUpdating = False
cm = Application.InputBox("entrer la largeur de la colonne en cms", _
"Largeur de la colonne souhaitée", 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

pour les lignes (nettement plus court car lignes et colonnes n'ont pas, au départ, les mêmes unités de mesure

Sub lignesEnCentimetres()
Dim cm As Integer
cm = Application.InputBox("entrer la hauteur de la ligne en centimetres", _
    "Hauteur de la ligne souhaitée", Type:=1)
If cm Then
Selection.RowHeight = Application.CentimetersToPoints(cm)
End If
End Sub