Unité pour les cellules

Bonjour,

Comment puis-je changer l'unité pour la largeur de colonne et la hauteur de ligne pour mettre 'cm' ?

Merci

Bonjour Daniel

A ma connaissance, pas de commande prévue dans excel pour transformer en cm.

Il faut passer par VB

1) Que dit l'aide d'excel

Changer la largeur par défaut

Sélectionner toutes les feuilles.

Dans le menu Format, pointez sur Colonne, puis cliquez sur Largeur standard.

Tapez les nouvelles dimensions.

Le nombre qui s'affiche dans la zone Largeur de colonne standard correspond au nombre moyen de chiffres compris entre 0 et 9 de la police standard (police standard : police par défaut du texte des feuilles de calcul. La police standard détermine la police par défaut du style de cellule Normal.) pouvant être contenus dans une cellule.

Conseil

Pour définir la largeur de colonne par défaut de tous les nouveaux classeurs et nouvelles feuilles de calcul, créez un modèle de classeur et un modèle de feuille de calcul.

2) Trouvés sur 01.Net, les Codes correspondants

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 

Cordialement,

Amadéus

Merci.