Créer une grille

[dodineau]

bonjour.
Je cherche désespérément à imprimer une grille quadrillée en centimètre verticalement et horizontalement grâce aux cases Excel.
Quelqu’un peut il m’aider ?
Merci.
À+

 

[Modeste geedee]

Bonsour®

bonjour.
Je cherche désespérément à imprimer une grille quadrillée en centimètre verticalement et horizontalement grâce aux cases Excel.
Quelqu’un peut il m’aider ?
Merci.
À+

Excel ne permet pas une gestion dimensionnelle aisée des sorties imprimées,
de plus le pilote d'impression apporte ses propres corrections et adaptations selon le type d'imprimante

sauf expérimentations il n'y a pas de procédure native pour faire cela...
http://www.excelabo.net/xl/cellules.php#cellulescarrées

Alors que WORD le fait sans l'ombre d'un souci !!!!

sinon voir là :
https://incompetech.com/graphpaper/

 

[Modeste geedee]

Autre méthode :
passer en mode affichage page
utiliser les règles pour dimensionner les cellules au pixel près
37 pixels=0.98 cm
38 pixels= 1.01 cm

 

[Staple1600]

Bonsoir le fil, le forum


J'avais cela dans ma besace (au cas où cela puisse servir)

Private Sub CellK(Hauteur&)
Cells.RowHeight = Hauteur
With [A1]: Cells.ColumnWidth = .ColumnWidth * (.RowHeight / .Width): End With
End Sub
Sub Macro_de_Test()
Sheets.Add: CellK 10
MsgBox "Pause", vbInformation
Sheets.Add: CellK 20
MsgBox "fin test"
End Sub

 

[Modeste geedee]

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 sur l'impression : largeur 98mm, Hauteur 94mm
'***************Koeff horizontal (pixels/mm)
KH = 270 / 98
'***************Koeff vertical (pixels/mm)
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

 

[Staple1600]

Bonsoir Modeste

La croix et la bannière, cette histoire de carré qui ne tourne pas rond

Sub CarréImparfait()
Cells.RowHeight = Application.CentimetersToPoints(1)
Cells.Columns.ColumnWidth = Application.CentimetersToPoints(0.157)
End Sub