Ajuster hauteur de lignes

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

Bonjour,

Je pense que pour ton cas, ceci conviendra peut-être:

Sub Ajuster(ByVal Target As Range)
Select Case Range("aa" & Target.Row)
    Case 1 To 15: Range("aa" & Target.Row).RowHeight = 15 * Range("aa" & Target.Row)
End Select
End Sub

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(Target)
End If
End Sub

à tester car je n'ai pas pu le faire

Nickel, merci !

De rien

merci d'avoir passé le sujet en résolu