Macro avec find

[mamour60]

Bonjour a tous,

SUr une feuille Analyse j'ai un nom de mois en D3 et lorsque je lance la macro recap me selectionne le mois dans la feuil Recap en B5 :B16 et je doit copier les cells dela feuil Analyse G22 et G23 dans la feuil Recap dans La colonne C et D en fonction du mois.

J'ai un message d'erreur execution 91 : variable objet ou variable blox with non definie lorsque je lance cette macro quelq'un peut me dire pourquoi.
Merci d'avance

Sub Recap()
Dim plage As Range
Dim test As String
test = Worksheets("Analyse").Range("D3").Value

sheets("Recap").Select

Set plage = Range("B5:B16")
plage.Find([test]).Select

End Sub

Bruno

 

[Pierrot93]

Re : Macro avec find

Bonjour Bruno

modifies peut être comme suit, si j'ai bien compris :

Sub Recap()
Dim plage As Range, test As String
test = Worksheets("Analyse").Range("D3").Value
Sheets("Recap").Select
Set plage = Range("B5:B16").Find(test, , xlValues, xlWhole, , , False)
If Not plage Is Nothing Then plage.Select
End Sub

bonne journée
@+

 

[mamour60]

Re : Macro avec find

Bonjour Pierrot93,

Merci de ton aide cela fonctionne trés bien.

@+

Bruno