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

Dudu2 · 12 Mai 2021

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

fanch55 · 12 Mai 2021

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

VB:

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

Dranreb · 12 Mai 2021

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

fanch55 · 12 Mai 2021

Salut, je te propose ceci :

VB:

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

Dudu2 · 12 Mai 2021

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

fanch55 · 12 Mai 2021

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

VB:

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 · 12 Mai 2021

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.

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

Dudu2

XLDnaute Barbatruc

fanch55

Dranreb

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Discussions similaires