recherche

[bernouille]

Bonjour à tous. Débutant, j'ai créé un macro pour aller activer une cellule après recherche. La macro fonctionne bien tant que la valeur recherchée existe. Sinon....... Qu'elle est la solution pour ne plus avoir le message d'erreur de macro?




Sub Macro2()
Cells.Find(What:=Range("A1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
End Sub

 

[Cousinhub]

Re : recherche

Bonjour,

Par exemple comme ceci :

Sub Macro2()
Dim C As Range
Set C = Cells.Find(What:=Range("A1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False)
If Not C Is Nothing Then C.Select
End Sub

Bon dimanche

 

[bernouille]

Re : recherche

Merci pour la réponse. Ca marche mais:
Sub Macro5()
Dim C As Range
Set C = Cells.Find(What:=Range("A1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
If Not C Is Nothing Then
MsgBox "valeur non trouvée"
End If
C.Select
End Sub

La message box s'affiche à chaque fois. Pourquoi????

 

[Cousinhub]

Re : recherche

Re-,

Inverse les deux options If....

Sub Macro5()
Dim C As Range
Set C = Cells.Find(What:=Range("A1"), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False)
If Not C Is Nothing Then
      C.Select
Else
MsgBox "valeur non trouvée"
End If
End Sub

La ligne :

If Not C Is Nothing Then

Veut dire :

Si C est différent de "Nothing"

Bon dimanche

 

[bernouille]

Re : recherche

Génial! Bonjour la réactivité!
Je suis content de vous rejoindre même si je ne suis qu'utilisateur (pour l'instant!)
Bernouille....