Paul a une feuille de calcul qui contient plus de mille lignes de données. La plupart des rangées ont une hauteur de 12, mais certaines ont une hauteur de plus de 100. Il se demande s’il existe un moyen d’ajuster la hauteur des rangées de sorte qu’aucune rangée ne dépasse 40? (Cela signifie que ceux de moins de 40 ans conserveront leur taille actuelle, mais ceux de plus de 40 ans seront ajustés à 40.)

La résolution de ce problème est en fait assez simple: vous avez juste besoin d’un moyen de parcourir les lignes, de déterminer la hauteur de ligne actuelle, puis d’ajuster la hauteur de ligne si elle est trop grande. Cela peut être fait avec une macro très simple, telle que la suivante:

Sub MaxRowHeight()

Dim R As Long

For R = 1 To ActiveSheet.UsedRange.Rows.Count         If Rows(R).Height > 40 Then Rows(R).RowHeight = 40     Next End Sub

La macro détermine la plage de lignes utilisées dans la feuille de calcul, puis parcourt ces lignes. La propriété opérationnelle est la propriété .Height, qui est vérifiée. S’il est supérieur à 40, il est défini sur 40. Cela signifie que tout ce qui a une hauteur de ligne inférieure à 40 reste inchangé.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (10381) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365.