Discussion :

[Devmddi]

Bonjour à tous,

Je cherche à interdire la modification d'une cellule si son texte est de couleur rouge.
Voici mon code :

Code :

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

1
2
3
4
5
6
Sub Worksheet_Change(ByVal Target As Range)
  If Target.Font.Color = vbRed Then
    MsgBox "Cellule non modifiable"
   Exit Sub
  End If
End Sub

J'ai bien mon message mais la valeur de la cellule change malgré tout.
Pourriez-vous m'apporter une aide.
Merci.

[LeForestier]

Bonjour,
1°) sélectionner toute les cellules et mettre leur propriétés Protection >> Verrouillée (décocher)
2°) Mettre la protection feuille >> Outils >> Protection >> Protéger la feuille
et dans ton test...

Code :

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

target.Locked = True

A+
EDIT: et ton Exit sub ne sert à rien

[Devmddi]

Bonjour LeForestier,

Merci pour ta réponse.
Hélas, pour mon problème, cette solution ne fonctionne pas.
J'ai peut-être un paliatif à mon code avec cette instruction :

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Application.Intersect(Selection, Range("A1:C8")).Font.Color = vbRed Then
    MsgBox "Cellule à ne pas modifier"
    Exit Sub
  End If
End Sub

Mon souci est que hors sélection de la plage des cellules, une erreur d'exécution '91' est générée : "Variable objet ou variable de bloc with non défini".
Reste plus qu'à trouver l'origine du message est tout sera Ok. Je ne désespère pas.

Merci encore si tu veux poursuivre.

[Devmddi]

Eureka !

Voici la solution qui me convient :

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Font.Color = vbRed Then
MsgBox "Cellule à ne pas modifier"
    Exit Sub
  End If
End Sub

Petit bémol : La cellule reste modifiable mais il y a au moins alerte pour l'utilisateur.

P.S. : Si vous voyez mieux, je reste preneur. Bien à vous.

[laetitia]

bonjour tu peus faire un truc comme cela aussi

Code :

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

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a1:c8")) Is Nothing Then Exit Sub
If Target.Font.Color = vbRed Then Cells(Target.Row, "D").Select
End Sub

ou ca protege pas mais cela previent
selection de la plage puis donnees validation personnalisee tu tapes <0 puis ok

[LeForestier]

Pour empècher la modification !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lig As Long, Col As Integer
    If Target.Font.Color = vbRed Then
        MsgBox "Cellule non modifiable"
        lig = Target.Row + 1: Col = Target.Column
        While Cells(lig, Col).Font.Color = vbRed
            lig = lig + 1
        Wend
        Cells(lig, Col).Select
    End If
End Sub

A+