Des lignes de même taille que la largeur des colonnes

12 mars 2014
Imprimer

Outils/Macro/Visual Basic Editor. Dans une feuille module (Insertion/Module), tapez les lignes suivantes :
Sub CelluleCarree()
      Dim Cellule As Range
      For Each Cellule In Selection
           Cellule.RowHeight = Cellule.Width
      Next
End Sub

Pour utiliser cette macro, donnez la largeur voulue à une plage de cellules, Outils/Macros, sélectionnez CelluleCarree et cliquez sur le bouton Exécuter. Ou attribuez cette macro à un nouveau bouton dans une barre d'outils :

  • Outils/Personnaliser.
  • Onglet Commandes, catégorie Macros, glissez Bouton personnalisé sur une barre d'outils.
  • Clic-droit sur le bouton, sélectionnez Affecter une macro.
  • Sélectionnez la macro puis Ok.
  • Modifiez l'image du bouton.
  • Fermer.