Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Recherche dans un classeur

S

SWEAT

Guest
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
 
A

Abel

Guest
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…