Discussion :

[dede_bo]

Bonjour,

J'essaie de savoir si un "range" nommé existe ou non.
J'ai vu des discussions sur ce forum relatif à ce problème mais dans les 100% des cas, cela ne les résous pas.

Appelez la fonction ci-dessous avec un nom n'existant pas. La fonction bloque avec une erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
function RangeExists(Nrange as string) as Boolean
    Dim test as Range

    If Len(Nrange) > 0 Then
        On error Resume Next
        Set test = ActiveSheet.Range(Nrange) ' La fonction s'arrête sur cette instruction avec une erreur (existe pas - code 1004)
        RangeExists = Err.Number = 0
    Else
        RangeExists = False
    End If

Comme si l’événement "on error" n'était pas géré!

Quel est mon erreur?
Y aurait il une option à mettre pour forcer l’événement?

Merci de votre aide
Andre

[MarcelG]

Bonjour,

Je ne vois pas l'intérêt de gérer ici une erreur.
Il te suffit de balayer les noms et de tester leur égalité avec la valeur du nom à tester.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Public Function test_nom(lenom As String) As Boolean
 
Dim nm As Name
 
test_nom = False
 
For Each nm In ThisWorkbook.Names
        'Debug.Print nm.Name
        If nm.Name = lenom Then
                test_nom = True
                Exit For
        End If
Next nm
 
End Function

[dede_bo]

Bonjour,
Meilleurs vœux pour 2019.
Merci également pour votre réaction rapide et efficace.

Cela fonctionne très bien.
Super

André

[MarcelG]

Salut,

Moralité.
La gestion On Error Resume Next ne doit s'employer, à mon humble avis, qu'en dernier recours.

Pour information, tu peux consulter ce tutoriel sur la gestion des erreurs

N'oublie pas de positionner cette discussion en mode "Résolue".

Bonne continuation.