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

Dudu2

XLDnaute Barbatruc
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.

VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
315 126
Messages
2 116 493
Membres
112 763
dernier inscrit
issam2020