On error goto ne fonctionne pas (Excel 2016)

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:

---

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

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:

---

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

---

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

Cela fonctionne très bien.
Super

André

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.