XL 2016 Simplifier une macro Ajuster hauteur de lignes

[cardi]

Bonjour,

J'ai une macro qui me permet d'ajuster la hauteur des cellules :

Sub Ajuster()
Dim c As Range
For Each c In Range("aa70:aa80").Cells
    Select Case c.Value
  
        Case 1 To 15: c.RowHeight = 15 * c
    End Select
Next c
End Sub

Quand je change une valeur dans "AA70:AA80", cela lance la macro via ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("aa70:aa80").Cells) Is Nothing Then
Call Ajuster
End If

End Sub

Le problème c'est que c'est trop lourd, je souhaiterai que si je change la valeur "AA75" par exemple, cela ajuste la hauteur seulement pour la ligne 75 et non les 10 lignes.

Merci d'avance,

CARDI

 

[pierrejean]

bonjour CARDI

A tester:

Private Sub Worksheet_Change(ByVal Target As Range)
'On Error Resume Next
If Not Intersect(Target, Range("aa70:aa80").Cells) Is Nothing Then
   Rows(Target.Row).RowHeight = 15 * Target.Value
End If

End Sub

 

[cardi]

C'est parfait, merci beaucoup PierreJean