Tailles des Cellule en centimetre dans Excel XP. Possible?

Tailles des Cellule en centimetre dans Excel XP. Possible? - Logiciels - Windows & Software

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?


---------------
|
Reply

Marsh Posté le 23-01-2006 à 18:50:45   

Reply

Marsh Posté le 23-01-2006 à 19:43:41    

je ne trouve pas avec excel, mais avec Open Office, oui ;)

Reply

Marsh Posté le 23-01-2006 à 19:45:58    

oui mais je n'ai pas open office
:(


---------------
|
Reply

Marsh Posté le 23-01-2006 à 19:49:40    

Reply

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed