Probleme de type (erreur compilation)?

[anthony.unac]

Bonsoir,

Voici un code qui ne plait guerre au compilateur et pourtant :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

For i = 327 To 476
If Feuil8.Cells(i, 62) = Feuil1.Cells(2, 4) Then Feuil8.Cells(i, 33) = Feuil1.Cells(56, 5)
Next

End Sub

Il me dit qu il y a une erreur de type ?
C est quoi le soucis au juste ?

Cordialement
Anthony

 

[anthony.unac]

Re : Probleme de type (erreur compilation)?

Le message d'erreur est le suivant :

Erreur d execution '13'

Incompatibilite de type

 

[kjin]

Re : Probleme de type (erreur compilation)?

Bonsoir,
As tu regardé dans l'aide VBA à quoi correspond cet événement.
Pourquoi mettre ta macro à cet endroit si elle ne concerne que la feuil8 et pourquoi une boucle ?!
Si tu tiens à conserver une macro événementielle, dans le module de la feuil8

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range(Cells(327, 62), Cells(476, 62))) Is Nothing Then 'ligne 327 To 476
If Cells(Target.Row, 62) = Feuil1.Cells(2, 4) Then Cells(Target.Row, 33) = Feuil1.Cells(56, 5)
End If
End Sub

A+
kjin