[AV1] = IIf(Rows(18).Hidden = True, 1, 0)
[AV1] = (Rows(18).Hidden = True) * 1
x = Rows(18).Hidden = True
[AV1] = (Rows(18).Hidden = True) * -1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[AV1] = IIf(Rows(18).Hidden = True, 1, 0)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$3" Then
Rows(18).Hidden = IIf(Target = "connex", True, False)
End If
End Sub
Private Sub Worksheet_Calculate()
Rows(18).Hidden = IIf([G3] = "connex", True, False)
End Sub
mais sans voir.....
Private Sub Worksheet_Calculate()
[COLOR="Red"]Application.EnableEvents = False[/COLOR]
Rows(18).Hidden = IIf([G3] = "connex", True, False)
[COLOR="Red"]Application.EnableEvents = True[/COLOR]
End Sub