XL 2013 comment déterminer si un string correspond à l’adresse d'une cellule ou d'une plage

[patricktoulon]

Bonjour à tous je viens de détecter un erreur que les utilisateurs de mon thèmecreator du calendar peuvent faire
a l'enregistrement un inputbox demande le nom pour enregistrer le thème
malheureusement si par exemple je tape "X3" cette chaine represente l'adresse d'une cellule
je voudrais empêcher ça

nom$=inputbox("veuillez entrer le nom de ce nouveau thème)
set r=range(nom)

if not r is nothing then msgbox " ce nom n'est pas valide":exit sub

problème le set génère une erreur si la cellule n'existe pas
des idées?

 

[sylvanu]

Bonjour Patrick,
En grand naïf, pourquoi pas un truc du genre :

Sub Essai()
nom = InputBox("veuillez entrer le nom de ce nouveau thème")
On Error Resume Next
Set r = Range(nom)
If Err <> 0 Then MsgBox "Erreur": Exit Sub
If Not r Is Nothing Then MsgBox " ce nom n'est pas valide": Exit Sub
End Sub

 

[patricktoulon]

re
Ok c'est bon j'avais un conflit avec un names en fait
donc la solution du set fonctionne
mille excuses pour le dérangement

 

[patricktoulon]

merci @sylvanu
par ce que les gestion d'erreur je les utilises qu'en dernier recours

 

[dysorthographie]

Bonjour,
Pour info

If err then

suffit.