columns.find erreur 1004 - activate method of range class failed

[phestaca]

Bonjour a tous,

j'ai déja utilisé la methode find et je ne comprends pas pourquoi elle ne marche pas ici !
cela m'indique erreur 1004 - activate method of range class failed ...

cela doit surrement etre debile comme raison mais je ne suis pas un expert ...

If Target.Address = Range("i6").Address And Range("Y1").Value = "OFF" Then
   
    Badge = Range("i6").Value
    MsgBox (IBM_Badge)
    Worksheets("Employee").Select
    Cells.Find(Badge).Activate
    UID = ActiveCell.Offset(0, -5).Value
    Worksheets("Form").Select
    Range("E5").Value = UID
End If

 

[Cousinhub]

Re : columns.find erreur 1004 - activate method of range class failed

Bonjour,

comme tu as écrit ce code dans un évènement de feuille, tu ne peux donc pas activer ou sélectionner une autre cellule d'une autre feuille..

Essaie avec ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$6" And Range("Y1").Value = "OFF" Then
Badge = Target
'    MsgBox (IBM_Badge) 'je ne sais pas à quoi ça correspond....
    With Worksheets("Employee")
        Set c = .Cells.Find(Badge)
        If Not c Is Nothing Then
            UID = c.Offset(0, -5).Value
        Else
            Exit Sub
        End If
    End With
    Range("E5").Value = UID
End If
End Sub

 

[phestaca]

Re : columns.find erreur 1004 - activate method of range class failed

Super ! Merci beaucoup !! ca tourne tout seul maintenant !

Je me disais bien qu'il y avait une chose simple qui m'empechait de faire marcher qqchose qui marchait dans une autre macro !

Merci pour l'astuce du with.