XL 2010 VBA problème selection cellule après un find

[Johan]

Bonjour à tous

Je rencontre des soucis pour sélectionner la callule recherchée après mon find. Je tourne en rond depuis taleur sans trouver comment résoudre un problème à priori simple !

Quelqu'un voit-il ce qui ne pas ?

Merci

-------------------------------------------------------------------------------------

"Erreur d'éxecution 1004 : la méthode activate de la classe range a échoué"

Sub test()

Dim valSemaine
valSemaine = Feuil7.Range("P28").Value
Dim r As Range

With Feuil9.Range("B:B")

Set r = .Cells.Find(valSemaine)
    If r Is Nothing Then
        MsgBox ("Not Found")
    Else
       MsgBox (r.Address)
       r.Activate
       r.CurrentRegion.Select
       r.CurrentRegion.Copy
    End If
End With
End Sub

 

[pierrejean]

A tester:

Dim valSemaine
valSemaine = Feuil7.Range("P28").Value
Dim r As Range

With Feuil9.Range("B:B")

Set r = .Cells.Find(valSemaine)
If r Is Nothing Then
MsgBox ("Not Found")
Else
MsgBox (r.Address)
'r.Activate
'r.CurrentRegion.Select
'r.CurrentRegion.Copy
r.select
End If
End With

 

[Johan]

Bonjour pierrejean,

Merci pour votre aide, même erreur malheureusement. Je ne comprends pas ce qui ne lui plaît pas dans la sélection de mon range

 

[pierrejean]

Re

comme ceci peut-être

Dim valSemaine
valSemaine = Feuil7.Range("P28").Value
Dim r As Range

With Feuil9
Set r = .Range("B:B").Find(valSemaine)
If r Is Nothing Then
MsgBox ("Not Found")
Else
MsgBox (r.Address)
'r.Activate
'r.CurrentRegion.Select
'r.CurrentRegion.Copy
r.select
End If
End With

Sinon poster une copie du fichier sans données confidentielles