• Initiateur de la discussion Initiateur de la discussion Efgé
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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?
 
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
 
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:
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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
111
Réponses
12
Affichages
219
  • Résolu(e)
Microsoft 365 DateDif()
Réponses
5
Affichages
328
Réponses
2
Affichages
62
Retour