recherche

bernouille · 11 Novembre 2012

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 · 11 Novembre 2012

Re : recherche

Bonjour,

Par exemple comme ceci :

Code:

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 · 11 Novembre 2012

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 · 11 Novembre 2012

Re : recherche

Re-,

Inverse les deux options If....

Code:

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 :

Code:

If Not C Is Nothing Then

Veut dire :

Si C est différent de "Nothing"

Bon dimanche

bernouille · 11 Novembre 2012

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....

recherche

bernouille

XLDnaute Nouveau

Cousinhub

XLDnaute Barbatruc

bernouille

XLDnaute Nouveau

Cousinhub

XLDnaute Barbatruc

bernouille

XLDnaute Nouveau

Discussions similaires