> Tous les forums > Forum Bureautique
 Colonnes et lignes en entimètre
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
chabert
  Posté le 24/09/2013 @ 16:16 
Aller en bas de la page 
Petit astucien

Bonjour à tous,

Sous Ecxel 2010 comment je peux régler les colonnes et les lignes en centimètres.

Exemple : je veux un carré de 2 cm sur 2 cm avec un contour .

Ssi j'imprime je retrouve bien mes 2 cm su la feuille en mesurant avec un double décimetre.

Merci de vos astuces

Publicité
DjiDji59430
 Posté le 24/09/2013 à 18:53 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Tu vas dans insertion=>formes, tu choisis un rectangle, puis clic a droite taille et propriete de la forme et tu mets largeur et longueur a 2 cm. Tu ajustes tes lignes et tes colonne dessus et tu recopies le format de ta cellule

Il y a certainement d'autres methodes !



Modifié par DjiDji59430 le 24/09/2013 18:54
chabert
 Posté le 24/09/2013 à 18:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci c'est une solution mais je pense avoir deja vue autrement j'attends d'autres réponses sinon je ferais comme cela

Gabrilou
 Posté le 24/09/2013 à 19:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucienne

Une macro de Mytå :

Sub CelluleEnCentimetres()
Dim cm As Integer
cm = Application.InputBox("Hauteur de la cellule en cm.", Type:=1)
If cm Then
Selection.RowHeight = Application.CentimetersToPoints(cm)
End If
cm = Application.InputBox("Largeur de la cellule en cm.", Type:=1)
If cm Then
Selection.ColumnWidth = cm * 4.663
End If
End Sub

Vu ici : http://www.excel-downloads.com/forum/31059-carre-5-mm-5-mm-dans-feuille-excel.html

--------
Ce qui donne : hauteur : 56,8
largeur : 10,27

chabert
 Posté le 24/09/2013 à 19:20 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci pour cette solution qui fonctionne bien

vieuxmonsieur
 Posté le 27/09/2013 à 12:36 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Excel en centimètres - 29/06/2005 19:42 - PapyNovice - Messages: 169
http://www.excel-downloads.com/forums/7-46114-excel-en-centimetres.htm#46114

http://www.excel-downloads.com/html/French/forum/messages/1_142981_142981.htm


Un immense bonjour ou bonsoir à vous tous et toutes.
Quoi que très fatigué après lourde intervention, je suis plus que heureux d'être de retour à la maison et souhaite vous faire partager ma joie avec ces deux macros ci-dessous (Excel 2002 et 2003).
Ces deux macros vont permettre d'afficher une fenêtre où vous pourrez indiquer la mesure désirée en centimètres, Excel se chargeant ensuite d'ajuster les lignes et les colonnes selon votre demande.
Créer deux boutons pour les macros ou un seul par appel de macro.

Voici pour tous ceux et celles que ceci intéressse, les macros de paramétrage d'une feuille Excel en centimètre. (Micro hebdo n° 376 du 30 juin 2005)

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

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
ipwidth = 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


Par notre ami Mytå
Sub CelluleEnCentimetres()
Dim cm As Integer
cm = Application.InputBox("Hauteur de la cellule en cm.", Type:=1)
If cm Then
Selection.RowHeight = Application.CentimetersToPoints(cm)
End If
cm = Application.InputBox("Largeur de la cellule en cm.", Type:=1)
If cm Then
Selection.ColumnWidth = cm * 4.663
End If
End Sub

Publicité
4837B
 Posté le 27/09/2013 à 20:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Je pense qu'il n'est pas nécessaire d'utiliser des macros...

Il suffit de choisir le mode d'affichage "mise en page" au lieu de "normal". Si dans les options, on a choisi le cm comme unité de référence, les dimensions des cases seront en cm. (options avancées / afficher/ unité de la règle/cm)

Bon WE

Jean

chabert
 Posté le 27/09/2013 à 20:27 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir àá tous

Merci pour votre aide je vais essayer tout vos astuces des mon retour lundi merci encore

conseil

ferrand
 Posté le 28/09/2013 à 16:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

4837B a écrit :

Bonjour,

Je pense qu'il n'est pas nécessaire d'utiliser des macros...

Il suffit de choisir le mode d'affichage "mise en page" au lieu de "normal". Si dans les options, on a choisi le cm comme unité de référence, les dimensions des cases seront en cm. (options avancées / afficher/ unité de la règle/cm)

Bon WE

Jean

Mais c'est vrai que ça fonctionne ! Excellente idée .

vieuxmonsieur prompt rétablissement

Bon WE.

chabert
 Posté le 28/09/2013 à 19:57 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

bonsoir à tous merci cela me convient bonne continuation et bon WE

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !

 > Tous les forums > Forum Bureautique