Problème Macro Excel

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:

---

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

Bonjour,

Quand tu as une erreur sur une ligne de ce style, modifies la, afin de cibler plus précisément le problème

Code:

---

1 2 3

If Not Intersect(Target, Range("F1:F1000")) Is Nothing Then Target = UCase(Target) end if

---

A essayer afin de dissocier la propriété par défaut (Value) et l'objet Target (de type Range)

Code:

---

Target.Value = UCase(Target.Value)

---

Bonjour
j'ai essayé de faire avec ce que vous m'avez dit mais cela ne fonctionne pas :/
Pouvez vous me redonner la macro complète avec les modifications à effectuer svp
Merci d'avance

je n'ai pas testé, mais il est préférable de désactiver les événements
Application.EnableEvents

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("F1:F1000")) Is Nothing Then Target.Value = UCase(Target.Value) If Not Intersect(Target, Range("K1:K1000")) Is Nothing Then Target.Value = UCase(Target.Value)   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 Application.EnableEvents = True End Sub

---

Merci pour votre réponse je la transmets à la personne qui va faire le test, mais je crois qu'elle a trouvé un autre code qui apparement fonctionne, si elle me le donne je le transmetterai sur ce forum
Merci beaucoup