erreur sur Application.Goto Reference:= "refString"

Bonjour,

Je souhaite changer le nom de certaines références de cellules dans une feuille Excel.

Je souhaite tester si la référence existe déjà

Quand le référence n'existe pas j'ai une erreur qui me bloque.
j'ai essayé de contourner cette erreur avec resume Next sans succes

existe-t-il une possibilité de tester le résultat de Application.Goto Reference:= "refString" avant de lancer l'exécution de l'instruction ?

Merci à vous

bonjour,

pas de problème avec un OnError resume next ...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub TEST() If Not bAllerCellule("Titi") Then MsgBox "référence TITI inexistante"   End If End Sub   Function bAllerCellule(stCellule As String) On Error Resume Next Application.Goto stCellule bAllerCellule = Not (Err.Number <> 0) End Function

---

Bonjour,
A l'aide d'une fonction par exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Test() Dim FindName As String: FindName = "bulle" If ExistName(FindName) Then Application.Goto Reference:=FindName Else MsgBox "Le nom " & FindName & " n'existe pas" End If End Sub Function ExistName(RngName) As Boolean Dim n For Each n In ActiveWorkbook.Names If n.name = RngName Then ExistName = True: Exit For Next End Function

---