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

patricktoulon · 10 Mars 2024

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

VB:

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?

patricktoulon · 10 Mars 2024

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

sylvanu · 10 Mars 2024

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

VB:

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 · 10 Mars 2024

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 · 10 Mars 2024

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

dysorthographie · 10 Mars 2024

Bonjour,
Pour info

VB:

If err then

suffit.

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

patricktoulon

XLDnaute Barbatruc

patricktoulon

sylvanu

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Discussions similaires