La methode find

Bonjour,

Je lutte avec la methode find, je ne trouve pas de tuto, pour en éviter tous les pieges, connaissez vous un tuto qui traite du sujet ?

Autrement mon souci est le suivant, je souhaite activer "activate", la cellule comprenant le terme "compte négatif", et s'il ne le trouve pas qu'il recherche alors "compte positif"

la fonction record, m'a gentiellement écrit ceci :

Code:

---

1 2 3

Cells.Find(What:="compte négatif", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate

---

je pense qu'il faudrait l'inclure dans une condition IF.

Merci de votre aide

bonjour,

Si la valeur cherchée n'est pas trouvée, tu auras une erreur avec ce code.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim Rg as Range   set Rg = cells.Find(What:="compte négatif", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False)   if not Rg is nothing then Rg.Activate else set Rg = cells.Find(What:="compte positif", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If not Rg is Nothing then rg.Activate end if

---

merci Jérôme, ca fonctionne tres bien, du coup je garde ce cas de figure sous le coude pour les prochaines fois
:ccool: