Discussion :

[philoeil]

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

[SfJ5Rpw8]

bonjour,

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

Code :

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

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

[Philippe Tulliez]

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

Code :

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

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