grille carrée

Efgé

XLDnaute Barbatruc
Bonjour à tous,
Je suis un débutant et je ne sais pas régler les largeurs de lignes et hauteurs de colonnes pour obtenir une grille réellement carrée.
Quelqu'un pourrait-il me donner le secret?
 

Cousinhub

XLDnaute Barbatruc
Inactif
Re : grille carrée

Bonjour,
avec ce code, tu peux obtenir des cellules (presque) carrées :
Par exemple, pour une hauteur et une largeur de 20 mm (2 Cm)

Code:
Sub QuadrillageEnCm()
  Cells.ColumnWidth = SetColumnWidth([COLOR="Red"]20[/COLOR])
  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
 

JCGL

XLDnaute Barbatruc
Re : grille carrée

Bonjour à tous,

Tu ne pourras jamais avoir "une grille" parfaitement carrée
XL utilise le Point est 1 Point = 25.4/72 soit 0.352 mm.

Mais si c'est juste pour un aspect visuel et non pour faire un vrai papier millimétré, tu peux utiliser le classeur, inspiré de DiggerJack :), que je mets en pièce jointe.

A+

Edition : Salut BH*2, Jean-Marie Tchou-Tchou
 
Dernière édition:

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : grille carrée

Salut à tous,

Efgé,
un moyen simple, sélectionner toute la feuille, ensuite cliquer entre deux colonnes( au hasard) et déplacer la souris.
une info-bulle t'indiqueras la largeur .
recommence la même chose avec les lignes
 

Pièces jointes

  • carré.zip
    1.3 KB · Affichages: 114

Discussions similaires

Réponses
6
Affichages
371

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
313 770
Messages
2 102 238
Membres
108 181
dernier inscrit
Chr1sD