XL 2016 VBA Comment tester une variable Range d'une Range supprimé ?

[Dudu2]

Bonjour,

A part placer un On Error, je ne sais pas comment tester que le Range de la variable a été supprimé.

Dans le code ci-dessous, exécuter la macro Sub a().
C'est dans le Sub Step3() que je n'arrive pas à détecter que le Range a été supprimé car il est quelque chose qui est ni Nothing ni Range valide.

Cordialement.

Dim Rng As Range

Sub a()
    Call Step1
    Call Step2
    Call Step3
End Sub


Sub Step1()
    Set Rng = Columns(10)
End Sub

Sub Step2()
    Rng.Delete
End Sub

Sub Step3()
    If Rng Is Nothing Then
        MsgBox "Nothing"
    Else
        'If IsEmpty(Rng) Then
        If IsNull(Rng) Then
            MsgBox "Range supprimé"
        Else
            MsgBox Rng.Address
        End If
    End If
End Sub

 

[Dranreb]

Bonjour.
Mettez peut être Set Rng = Nothing après Rng.Delete

 

[fanch55]

Salut, je te propose ceci :

Sub Step2()
    If Rng.Delete Then Set Rng = Nothing
End Sub

 

[Dudu2]

Merci @fanch55.
Je ne l'ai pas indiqué mais si c'est une suppression via l'interface, cela échappe au VBA.

 

[fanch55]

Il ne reste plus que passer par la gestion des erreurs :

Sub Step3()
    On Error Resume Next
        N = Rng.Columns.Count
        If Err Then
            Set Rng = Nothing
            Err.Clear
        End If
    On Error GoTo 0
End Sub

 

[Dudu2]

Ok avec un On Error.
J'aurais aimé passer par un autre test mais si c'est le seul possible, ce que je pense aussi, alors... On Error.