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 :
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é ?
If Not Application.Intersect(Target, Range("C6:C26,H6:30,M6:M37,R6:R39")) Is Nothing Then
code complet :
Code:
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 subLorsque 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é ?