Discussion :

[cedricfilien]

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

[jfontaine]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 Target.Value = UCase(Target.Value)

[cedricfilien]

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

[jfontaine]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[cedricfilien]

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