Discussion :

[marie10]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!!

[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+

[marie10]

Non déja essayé avec xlformulas...

[ouskel'n'or]

Je viens d'essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[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!!!

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[marie10]

Super! Ca marche parfait!
Merci bcq!!!