XL 2013 syntaxe pour evaluer si un names existe ou pas sans boucle!!!

[patricktoulon]

Bonjour a tous

j'aimerais bien connaitre la syntaxe pour le nom variable d'un name dans evaluate
j'ai un name "colorAAAAAA"
je voudrais tester ces deux names
Sub test2()
MsgBox Evaluate(IsError([colorAAAAAb]))
MsgBox Evaluate(IsError([colorAAAAAA]))
End Sub
l'un me renvoie faux l'autre vrai ça fonctionne mais il sont codés en dur dans la formule
j'aimerais bien trouver la syntaxe avec le nom par l’intermédiaire d'une variable du genre

Sub test2()
nom="colorAAAAAA"
MsgBox Evaluate(IsError([ & nom & ]))
End Sub

 

[soan]

Bonjour Patrick,

essaye le fichier joint : fais Ctrl e

ensuite, supprime les 2 noms définis (oui, c'est bien ça,
c'est dans le "Gestionnaire de noms" ) ; fais Ctrl e

Alt F11 pour voir le code VBA, puis pour revenir sur Excel
(suis-je bête ! tu le sais déjà !!! excuse-moi, c'est l'habitude !!! )

soan

 

[patricktoulon]

re
bonjour @soan

bon c'est déjà pas mal je connaissait en effet (le oui et le nom sur la même ligne suplanté par le on error au dessus)

a me connaitre tu saura que j'ai "on error..." en horreur (jeux de mot ramoucho)

les seules méthodes que je tolère pour les gestions d'erreurs dans mes codes c'est par l’évaluation vba avec ou sans evaluate application.ifferror ou evaluate(iserror(.....))
c'est un peu ma marque de fabrique a vrai dire
si on arrive a trouver la syntaxe on a tout bon

 

[soan]

ah ah ! je m'doutais bien qu't'allais pas apprécier la gestion d'erreur, lollllllllll !!!!
j'ai quand même voulu essayer ! (qui ne tente rien n'a rien, hein ?)

bon, alors : nouvelle version ci-dessous, sans gestion d'erreur !
(même utilisation) ... alors ? quel est le verdict ?

ajout : pas besoin de cracker le fichier : y'a aucun code de sécurité !

soan

 

[patricktoulon]

re
tu es un passionné et volontaire visiblement (tout feu tout flamme)
prend le temps(tranquille ... pas de galère dans le testons) et relis le titre de mon post
c'est pas peine d'avoir mis des point d'exclamation

et oui si c’était si simple le post n'aurait pas lieu d’être

je pose rarement des questions qui on une réponse simple

 

[soan]

si, si, j'avais lu le titre, mais tout feu tout flamme, dans le feu de l'action, j'avais oublié
le « sans boucle » ! alors, sans boucle, et sans non plus une gestion d'erreur, avoue que
t'en demande beaucoup ! et p't'être aussi sans VBA, ni PC ? comment ? sans électricité
non plus ? alors j'fais comment pour allumer mon PC, moi ? bon, ben désolé, là j'ai
plus d'solution à proposer ! je cale !!! (vite, un autre intervenant au secours de Patrick !
non, pas l'droit d'utiliser le PC, juste la ronéotype ! et encore, j'suis pas sûr !)

soan

 

[job75]

Bonsoir patricktoulon, soan,

Nom défini, feuille de classeur, le principe est le même :

Function NomExiste(nom$) As Boolean
Application.Volatile
Dim n As Name
On Error Resume Next
Set n = ThisWorkbook.Names(nom)
NomExiste = Not n Is Nothing
End Function

Function FeuilleExiste(nom$) As Boolean
Application.Volatile
Dim s As Object
On Error Resume Next
Set s = Sheets(nom)
FeuilleExiste = Not s Is Nothing
End Function

Bonne nuit.

 

[soan]

Bonjour job75, le fil,

J'ai comme une petite idée que patrick n'apprécie pas trop les subtilités du On Error :

Tu as voulu tenter un autre essai, toi aussi ? (j'dirais plutôt 2 essais... ou un double-essai ? )

soan

 

[soan]

ajout : Eurêka ! j'viens d'comprendre la vraie raison de l'avatar de @patricktoulon !
c'est pas pour copier le logo du logiciel Emule, comme il l'avait prétendu :

en vrai, c'est pa'c'que le cyber-bourricot se braque dès qu'il aperçoit le début du
commencement de l'extrémité de l'ombre d'un On Error !!!

non, Patrick, le « On Error » n'est pas un cyber-policier qui traque les hackers !

soan