Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Quadrillage excel en carré? Hauteur=largeur?

Quadrillage excel en carré? Hauteur=largeur?

3 réponses
Avatar
morganne
Bonsoir,

Je voudrais pouvoir me servir de la feuille excel comme d'une feuille
millimétré. Est -il possible d'avoir les cellules en carré parfait ex:
hauteur 10cm et largeur 10cm. En faisant Format hauteur lignes et hauteurs
colonnes, cela ne fonctionne pas.
J'ai le même problème sur un objet ou pour une forme automatique. Si je fais
un carré, dans "propriété" de l'objet, je met hauteur: 10cm et largeur:
10cm. Quand je mesure sur la feuille papier la largeur sera à 10.3cm et la
hauteur bonne....????????

J'ai fait le tour des sites excelabo ect...mais je n'arrive pas à trouver la
solution

Merci d'avance pour votre aide.

Morganne
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Morganne,

Voici une procédure publiée par Michel Perron :

'------------------------
Sub QuadrillageEnCm() 'MP
Cells.ColumnWidth = SetColumnWidth(10)
Cells.RowHeight = Columns(1).Width
End Sub
'------------------------
Function SetColumnWidth(MM As Integer) As Double
Dim lr As Single

Application.ScreenUpdating = False
lr = Application.CentimetersToPoints(MM / 10)
While Columns(1).Width > lr
Columns(1).ColumnWidth = Columns(1).ColumnWidth - 0.1
Wend
While Columns(1).Width < lr
Columns(1).ColumnWidth = Columns(1).ColumnWidth + 0.1
Wend
SetColumnWidth = Columns(1).ColumnWidth
End Function
'------------------------


Salutations!




"morganne" a écrit dans le message de news: uKHL%
Bonsoir,

Je voudrais pouvoir me servir de la feuille excel comme d'une feuille
millimétré. Est -il possible d'avoir les cellules en carré parfait ex:
hauteur 10cm et largeur 10cm. En faisant Format hauteur lignes et hauteurs
colonnes, cela ne fonctionne pas.
J'ai le même problème sur un objet ou pour une forme automatique. Si je fais
un carré, dans "propriété" de l'objet, je met hauteur: 10cm et largeur:
10cm. Quand je mesure sur la feuille papier la largeur sera à 10.3cm et la
hauteur bonne....????????

J'ai fait le tour des sites excelabo ect...mais je n'arrive pas à trouver la
solution

Merci d'avance pour votre aide.

Morganne
Avatar
Modeste
Bonsour®
morganne wrote:
Je voudrais pouvoir me servir de la feuille excel comme d'une feuille
millimétré. Est -il possible d'avoir les cellules en carré parfait ex:
hauteur 10cm et largeur 10cm. En faisant Format hauteur lignes et hauteurs
colonnes, cela ne fonctionne pas.

J'ai fait le tour des sites excelabo ect...mais je n'arrive pas à trouver
la
solution
heu... en tapant : carré dans le moteur de recherche on trouve :

http://www.excelabo.net/xl/cellules.php#cellulescarrées

par contre pour ce qui de la mise à l'échelle sur le papier cela se
complique énormément .....
car cela dépend !!!!!!!
de l'imprimante,
chaque imprimante déforme ce qui est visible à l'écran selon un ratio qui
lui est propre...
les dimensions mesurées à l'écran EXCEL non aucun rapport avec les
dimensions imprimées
dépendantes de la résolutions de l'écran, du type de matrice TFT, plasma,
Trinitron® etc...
de la carte graphique, de la largeur du cadre noir entourant la zone
affichable


il faut dessiner un carré de dimension quelconque : par exemple 270 pixels
;o)))
ActiveSheet.Shapes.AddShape(msoShapeRectangle, PosX, PosY, Largeur,
Hauteur)
l'imprimer
mesurer sur le papier les dimensions hauteur et largeur
et memoriser les ratios obtenus KH et KV

macro à modifier en fonction des mesures lues

Sub Macro1()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 20, 20, 270, 270).Select
' ------en appliquant les coefficients trouvé sur mon ESPSON STYLUS COLOR
' ------mesure lue : largeur 98mm, Hauteur 94mm
KH = 270 / 98
KV = 270 / 94
' -------pour obtenir un carré de 100mm x 100mm
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 40, 60, 100 * KH, 100 *
KV).Select
'-------pour obtenir un rectangle de 120mm x 60mm
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 60, 100, 120 * KH, 60 *
KV).Select
End Sub

@+




--
les news pas à jour ?? ne passez plus par votre FAI, les news à la source
!!!
placez ce raccourci dans la ligne de commande
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI

n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr

Avatar
morganne
Bonjour,

Je te remercie cela fonctionne parfaitement.

Bonne journée
Morganne
"michdenis" a écrit dans le message de news:
eaYX$
Bonjour Morganne,

Voici une procédure publiée par Michel Perron :

'------------------------
Sub QuadrillageEnCm() 'MP
Cells.ColumnWidth = SetColumnWidth(10)
Cells.RowHeight = Columns(1).Width
End Sub
'------------------------
Function SetColumnWidth(MM As Integer) As Double
Dim lr As Single

Application.ScreenUpdating = False
lr = Application.CentimetersToPoints(MM / 10)
While Columns(1).Width > lr
Columns(1).ColumnWidth = Columns(1).ColumnWidth - 0.1
Wend
While Columns(1).Width < lr
Columns(1).ColumnWidth = Columns(1).ColumnWidth + 0.1
Wend
SetColumnWidth = Columns(1).ColumnWidth
End Function
'------------------------


Salutations!




"morganne" a écrit dans le message de news:
uKHL%

Bonsoir,

Je voudrais pouvoir me servir de la feuille excel comme d'une feuille
millimétré. Est -il possible d'avoir les cellules en carré parfait ex:
hauteur 10cm et largeur 10cm. En faisant Format hauteur lignes et hauteurs
colonnes, cela ne fonctionne pas.
J'ai le même problème sur un objet ou pour une forme automatique. Si je
fais

un carré, dans "propriété" de l'objet, je met hauteur: 10cm et largeur:
10cm. Quand je mesure sur la feuille papier la largeur sera à 10.3cm et la
hauteur bonne....????????

J'ai fait le tour des sites excelabo ect...mais je n'arrive pas à trouver
la

solution

Merci d'avance pour votre aide.

Morganne