Discussion :

[charlie105]

Bonjour,
J'ai un bouton sur la Feuil1 qui doit chercher une valeur dans un range de la Feuil2. J'ai écrit un peu de code, si je fais la recherche sur la feuil1, aucun pb, maintenant si je tappe ce qui m'interesse: erreur d'exécution 1004 sur la ligne With (j'ai essayé sans with, en tappant Activate, etc. rien ne marche). Voici un exemple de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 Dim temp_search as Object
With Worksheets(2).Range(Cells(1, 1), Cells(20, 1))
Set temp_search = .Find("abcd")
If Not temp_search Is Nothing Then
    MsgBox (temp_search.Row)
    Else
    MsgBox ("introuvé")
End If
End With

Merci de m'aider!!!
Charlie

[SfJ5Rpw8]

essai:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Worksheets(2).Range(Worksheets(2).Cells(1, 1), Worksheets(2).Cells(20, 1))

..

[Invité]

Pour faire un "Find" tu es d'abord obligé d'activer la feuille en question.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim temp_search as Object
Sheets(2).Activate
With Worksheets(2).Range(Cells(1, 1), Cells(20, 1))
Set temp_search = .Find("abcd")
If Not temp_search Is Nothing Then
    MsgBox (temp_search.Row)
    Else
    MsgBox ("introuvé")
End If
End With

Ca devrait aller mieux

Nota : La solution de Bbil est également bonne !