Fonction FIND Résolu/Fermé

Question

Bonjour, 

Pour éviter qu'on ne comprenne mal ce que je veux, je vais faire simple.
Dans une feuille excel dans une colonne il y a plusieurs NOM.
Pour faire simple je vais mettre 3 NOM
Voiture, Avion, Bateau.

En vba si je recherche un des trois mot ça fonction, mais si dans ma variante je recherche "Vélo" logique il ne trouve pas, mais j'ai le problème suivant la macro ce met en défaut "91"

Plus je cherche moins je comprends.

voici un des codes que j'ai fait.

donnée = "vélo"
Sheets("MAQUETTE").Select
y = [b1:b80].Find(What:=donnée, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Adress
If y = donnée Then
Sheets("MAQUETTE").Range("A6").Select
Else
Sheets("MAQUETTE").Range("A1").Select
End If
End Sub

Si je marque dans donnée = "Avion" c'est bon ça fonctionne vu qu'il est dans la liste, mais si je marque Vélo le y est vide est le programme bloque sur la ligne

y = [b1:b80].Find(What:=donnée, LookIn:=xlFormulas, LookAt:=xlPart, 
SearchOrder:=xlByColumns).Adress


En résumé, je recherche, si un mot existe dans une colonne faire telle action, si elle existe pas faire autre chose.

Configuration: Windows 7 / Firefox 4.0.1

ed555 · Answer

salut,


et si tu mettais un "on error goto Blabla" ?

dans le code tu rajoutes alors à l'endroit que tu veux (probablement après ta recherche du coup):

Blabla:

'la suite du code

michel_m · Answer

Bonjour,

pour tester si la donnée est dans la zone de recherche

If application.countif(zonederecherche,données>0 then
  tes actions
else 
  message d'erreur
end if

Fonction FIND

2 réponses

Discussions similaires