Erreur de Méthode

[ascal44]

Bonjour , j'ai un message d'erreur La Méthode Range de l'objet Global à échoué sur cette ligne :

If Not Application.Intersect(Target, Range("C6:C26,H6:30,M6:M37,R6:R39")) Is Nothing Then

code complet :

Sub Affectations_R_V_B_J(Target As Range)


On Error Resume Next
If Not Application.Intersect(Target, Range("C6:C26,H6:30,M6:M37,R6:R39")) Is Nothing Then
   référence = Target
   With Sheets("PARC")
    For I = 7 To .Range("C200").End(xlUp).Row
     If .Cells(I, 3) = référence Then
         Target.Interior.Pattern = .Cells(I, 3).Interior.Pattern
         Target.Interior.Color = .Cells(I, 3).Interior.Color
         Target.Font.Size = .Cells(I, 3).Font.Size
         Target.Font.Underline = .Cells(I, 3).Font.Underline
         Target.Font.Color = .Cells(I, 3).Font.Color
         Target.Font.Bold = .Cells(I, 3).Font.Bold
    Exit For ' <<<<<<<<<<<<<<<<<<<

     End If
    Next
   End With
End If
On Error GoTo 0: Err.Clear
end sub

Lorsque j'utilise ce classeur sur un PC Windows XP je n'ai pas d'erreur ; sur le mien sous windows Vista j'ai cette erreur.
Serait ce un paramètre d'Excel qui aurait été modifié ?

 

[PascalXLD]

Re : Erreur de Méthode

Bonjour

Tu as H6:30
Ne serait-ce pas H6:H30 ??

 

[ascal44]

Re : Erreur de Méthode

Bonjour , avec beaucoup de retard oui c'est bien cela il manquait le H !!!

Merci