Recherche dans un classeur

[SWEAT]

Salut le Forum,

J'ai écrit une macro pour rechercher un élément dans un classeur :

Voici l'écriture en VBA :

Range(Selection, Selection.End(xlDown)).Select
Selection.Find(What:="38289", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate


Existe t'il une autre solution que ça pour rechercher un élément ? car celle ci fonctionne mais ne me convient pas pour faire par exemple une recherhce avec deux critères différents.

Merci d'avance

 

[Abel]

Bonjour SWEAT,

J'écris un truc en vitesse. Ce n'est pas testé.

Essaie avec un truc du genre :

Range(Selection, Selection.End(xlDown)).Select
For each c in Selection
If c= 38289 Then il se passe quelque chose
If c=AutreChose Then un autre truc arrive
Next

On peut utiliser des InputBox si les éléments à rechercher changent

var1 = InputBox("Elément 1 à chercher")
var2 = InputBox("Elément 2 à chercher")
For Each c In Selection
If c = var1 Then MsgBox ("Var1")
If c = var2 Then MsgBox ("Var2")
Next


En espérant que cela te dépanne.

Abel

 

[SWEAT]

Salut Abel,

Super, c'est exactement ce que je voulais,

Merci beaucoup.

A+