Bonjour,
J'ai une macro qui me permet d'ajuster la hauteur des cellules :
Quand je change une valeur dans "AA70:AA80", cela lance la macro via ce code :
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
J'ai une macro qui me permet d'ajuster la hauteur des cellules :
VB:
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 :
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