Selection.Find (résolu)

[Cougar]

Bonjour le forum,

J'utilise la fonction Selection.Find pour trouver une lettre (dans la colonne il y a des A, B, C). Donc, si la lettre B existe continu, sinon Exit sub. Le problème est que s'il la lettre B ne se trouve pas dans la colonne, déboggage.

Selection.Find(What:="B", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate

Comme éviter de faire apparaitre la fenêtre si B est absent.

Merci

 

[vgendron]

Re : Selection.Find

Bonjour

en testant si la recherche a retourné quelque chose..
plutot qu'un long discours va voir du coté de l'aide VBA sur le mot "Find"

set c=selection.find.....

if not c is nothing then...

 

[gosselien]

Re : Selection.Find

Bonsoir, ou Bonjour,

ma boule de cristal ne voit pas de fichier...

Pourtant, ça peut aider surtout s'il ressemble au fichier originel !!!

P.

 

[Cougar]

Re : Selection.Find

Bonjour,

Effectivement en cherchant j'ai trouvé ma réponse dont voici ma solution :
test = 0
Valeur_Cherchee = "C"
For Each cellule In Sheets("Par Département").Range("D2100")
If cellule = "C" Then
Range(cellule.Address).Select
test = 1
End If
Next cellule

Merci