Discussion :

[Djohn]

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 :

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

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

[jfontaine]

bonjour,

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

Code :

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

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

[Djohn]

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