En complément.... En utilisant les fonctions de feuille de calcul : * Méthode générique MsgBox Application.Find("u", "coucou")
* Pour tester dans une variable : laVar = "coucou" If Application.IsErr(Application.Find("x", laVar)) Then MsgBox "pas trouvé"
* idem avec la méthode Evaluate : If Evaluate("iserr(Find(""x"", " & laVar & "))") Then MsgBox "pas trouvé" * Evaluate en version courte (pas de variables autorisées) If [iserr(Find("x", "coucou"))] Then MsgBox "pas trouvé"
AV
"Nemroth" a écrit dans le message news:
Bonsoir michdenis,
Je te remercie pour ta réponse.
Je cherchais en fait à utiliser la fonction TROUVE en VBA, et avec ça, ça fonctionne :
En complément....
En utilisant les fonctions de feuille de calcul :
* Méthode générique
MsgBox Application.Find("u", "coucou")
* Pour tester dans une variable :
laVar = "coucou"
If Application.IsErr(Application.Find("x", laVar)) Then MsgBox "pas trouvé"
* idem avec la méthode Evaluate :
If Evaluate("iserr(Find(""x"", " & laVar & "))") Then MsgBox "pas trouvé"
* Evaluate en version courte (pas de variables autorisées)
If [iserr(Find("x", "coucou"))] Then MsgBox "pas trouvé"
AV
"Nemroth" <nemroth@wanadoo.fr> a écrit dans le message news:
3F36C67A.B29CAFE5@wanadoo.fr...
Bonsoir michdenis,
Je te remercie pour ta réponse.
Je cherchais en fait à utiliser la fonction TROUVE en VBA, et avec ça, ça
fonctionne :
En complément.... En utilisant les fonctions de feuille de calcul : * Méthode générique MsgBox Application.Find("u", "coucou")
* Pour tester dans une variable : laVar = "coucou" If Application.IsErr(Application.Find("x", laVar)) Then MsgBox "pas trouvé"
* idem avec la méthode Evaluate : If Evaluate("iserr(Find(""x"", " & laVar & "))") Then MsgBox "pas trouvé" * Evaluate en version courte (pas de variables autorisées) If [iserr(Find("x", "coucou"))] Then MsgBox "pas trouvé"
AV
"Nemroth" a écrit dans le message news:
Bonsoir michdenis,
Je te remercie pour ta réponse.
Je cherchais en fait à utiliser la fonction TROUVE en VBA, et avec ça, ça fonctionne :