Bonjour à tous
je reviens vers vous car j'ai un problème bizarre qui s'oppose à mes connaissances.
J'ai un fichier avec la macro suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("F1:F1000")) Is Nothing Then Target = UCase(Target)
    If Not Intersect(Target, Range("K1:K1000")) Is Nothing Then Target = UCase(Target)
 
    If Not Intersect(Target, Range("Y1:Y1000")) Is Nothing Then 'Valable seulement pour la Plage Y1:Y120
'Suppression de la protection de la feuille
ActiveSheet.Unprotect
    If Range("y" & Target.Row).Text <> "" Then
        Target.EntireRow.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
    End If
 
End Sub
Mon problème est que cette macro fonctionne bien sous Office 2010 mais ne fonctionne pas sous Office 2007 SP3, il me trouve une erreur sur la ligne "If Not Intersect(Target, Range("F1:F1000")) Is Nothing Then Target = UCase(Target)"
Pouvez vous m'aider?
Merci d'avance
Cordialement