Hauteur de ligne automatique

[magoo]

Bonsoir le forum,

J'ai besoin de manière simple d'afficher la hauteur en pixel de chaque ligne de ma feuille.
Le résultat sera affiché à coté de chaque N°de ligne.

Si quelqu'un à une idée ... Merci d'avance

 

[Robert]

Salut Magoo, salut le forum,

La macro ci-dessous à besoin que la colonne A soit vide et, pour ne pas remplir TOUTES les lignes mais seulement les lignes éditées, elle fait référence à la colonne B (à adapter)... La hauteur de ligne en pixel se place dans la colonne A

Sub Macro1()
'boucle sur toutes les cellules de la colonne B (à adapter)
For Each cel In Range("B1:B" & Range("B65536").End(xlUp).Row)
'place en A la hauteur de ligne en pixel
cel.Offset(0, -1).Value = Round(cel.Height * 1.3333333, 2)
Next cel 'prochaine cellule de la boucle
End Sub

À plus,

Robert
Robert

 

[magoo]

Merci beaucoup je vais gagner du temps sur une manip que je fais réguliairement.

Magoo