Gestion d'erreur

Bonjour à tous,

Un petit coup de main s.v.p.

J'ai une colonne A avec des numéros.

Je sélectionne la colonne A.

Je veux savoir si un numéro spécifique est dans la liste, si oui suit une procédure, si non j'ai une erreur et la macro s'arrête.

Voici le code en question

If Selection.Find(what:=123, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate = True Then

J'ai besoin de savoir le numéro de la ligne, c'est pourquoi le "activate" est là.

Si vous pourriez m'aider, j'apprécierais beaucoup.

Merci

Claire

Bonsoir,

Essaie comme cela

Sub test()
Dim C As Range
    Set C = Selection.Find(123, , xlFormulas, xlPart)
    If Not C Is Nothing Then
        MsgBox "Trouvé à la ligne " & C.Row
    Else
        MsgBox "Désolé, pas trouvé !"
    End If
End Sub

A+

Bonsoir,

Un exemple d'utilisation :

Sub Test()
   Dim rCellule As Range
   Set rCellule = Selection.Find(what:=123, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
            :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=False)
   If Not rCellule Is Nothing Then
      MsgBox "Valeur 123 trouvée en cellule " & rCellule.Address(0, 0)
   Else
      MsgBox "Pas de correspondance !"
   End If
End Sub

Attention, tu as une sélection dans ta recherche : Selection.Find(what:=123...

Si tu veux faire ta recherche sur toute la feuille, il faut remplacer Selection par Cells

EDIT : Ah ! Tu as été plus rapide que moi, sur ce coup là Frangy ! Mais le code est très similaire...

Tu as été plus rapide que moi, sur ce coup là Frangy ! Mais le code est très similaire...

D'un coté, c'est rassurant pour toi comme pour moi

A+

Merci à vous deux.

Claire