[VBA-E]Fonction .find

Version imprimable

Bonjour!
J'ai un soucis avec la fonction finf de VB excel... je ne dois pas bien saisir son fonctionnement mais excel me renvoi tjs une erreur!!
Je cherche a trouver la valeur d'un indice "article" dan plusieurs feuilles, et je veux que VB me renvoi le nom de la feuille ou la valeur a été trouvé..
voila ma fonction:
Code:

1 2 3 4 5 6 7 8 Columns("B:B").Select res = Selection.Find(Article, After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If Not res Is Nothing Then 'Si une valeur a été trouvée Trouvé = "O" End If
De toute évidence, c'est le fait que ma valeur recherchée soit une variable qui pose probleme! car si je remplace par un nombre quelconque, cela fonctionne!

Si qqun en sait plus sur ce mystèrieux fonctionnement... merci d'avance!!

16/01/2006, 09h49
ouskel'n'or

Dans tous les cas, ce n'est pas un problème de variable. Tu peux très bien les utiliser.
Si ce n'est pas une valeur, essaie d'utiliser xlFormulas au lieu de xlvalues

Tu dis

A+
16/01/2006, 09h52
marie10

Non déja essayé avec xlformulas...

Je viens d'essayer :
Code:

1 2 3 4 5 6 MaChose = "fqsfs" Columns("A:A").Select ok = Selection.Find(What:=MaChose, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False).Activate MsgBox ok
qui fonctionne et qui reprend ta syntaxe. A mon avis, ton problème vient d'ailleurs
As-tu essayé le pas à pas ? Vérifie le contenu de ta variable et la feuille dans laquelle tu cherches...

Tu dis

A+

16/01/2006, 10h33
marie10

Hum..... bon j'ai trouvé le reel probleme.....
j'ai effectivement remplacé mon indice par une valeur qui se trouvait effectivement dans la feuille et cela fonctionne...
ma fonction plante donc lorsqu'elle ne trouve pas la valeur!!
Ce qui nous renvoit un second probleme... comment la faire marcher et eventuellement renvoyer la valeur "FAUX" lorsque la valeur n'est pas trouvée??
Je veux en fait empecher que ma fonction plante qd elle ne trouve rien.. je sais quil existe qqchose comme ca mais je ne retrouve plus!!!

Effectivement mais comme je ne fais pas de test sur Find = true, je pensais que tu voulais ton boolean... Tu peux essayer avec ça :

Code:

1
2
3
4
5
6
7
8
9
10
            On Error Resume Next
                Selection.Find(What:=MotCherché, After:=ActiveCell, LookIn:=xlValues, _
                    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
                ok = Err = 0 'pas d'erreur, le mot a été trouvé
                err.clear
            On Error GoTo 0
            if not ok then
                    'Je fais ce que j'ai à faire
               else
                    NoLigneTrouvée = ActiveCell.Row

A+

16/01/2006, 11h03
marie10

Super! Ca marche parfait!
Merci bcq!!!
:D