Tailles des Cellule en centimetre dans Excel XP. Possible? - Logiciels - Windows & Software
Marsh Posté le 23-01-2006 à 19:49:40
tu l'installes ! 
 
http://fr.openoffice.org/about-downloads.html
Marsh Posté le 26-11-2006 à 09:21:00
Salut, 
 
Si tu es toujours intéressé, utilises cette macro (je n'en suis pas l'auteur) 
 
Sub RangéesEnCm() 
Dim cm As Single 
cm = Application.InputBox("Hauteur de la rangée en cm.", Type:=1) 
If cm Then 
Selection.RowHeight = Application.CentimetersToPoints(cm) 
End If 
End Sub 
Sub ColonnesEnCm() 
Dim cm As Single, points 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
Marsh Posté le 23-01-2006 à 18:50:45
Bonjour je souhaite modifier la taille des cellule en centimetre mais je ne trouves pas l'option
Comment faire?
---------------
|