Vérrouiller cellules avec condition

[piwiss]

Bonjour les pro,
J'ai besoin de votre aide svp. En fait, j'ai déjà essayé mais je n'y arrive pas.
J'aimerai que si :
C1= "OUI", alors A1 et B1 soient vérrouillées.
C3= "OUI", alors A2 et B2 soient vérrouillées
Ci= "OUI", alors Ai et Bi soient vérrouillées
Ainsi de suite pour chaque ligne. Ci-joint mon fichier. Et merci déjà pour votre aide.

 

[Jocelyn]

Bonjour le Forum,
Bonjour piwiss,

un essai en passant par données => validation

Cordialement

 

[piwiss]

Bonjour Jocelyn,
Merci pour cette réponse, mais le problème avec la validation de données c'est qu'on peut toujours effacer les données. Mais ce que j'aimerai c'est qu'on ne peut rien faire dans les cellules A et B, ni modifier ni effacer.

 

[job75]

Bonjour piwiss, Jocelyn, le forum,

Voyez le fichier joint et cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [A:B], UsedRange)
If Target Is Nothing Then Exit Sub
For Each Target In Intersect(Target.EntireRow, [C:C]) 'si entrées multiples (copier-coller)
    If UCase(Target) = "OUI" Then
        Application.EnableEvents = False 'désactive les évènements
        Application.Undo 'annule l'entrée
        Application.EnableEvents = True 'réactive les évènements
        Target.Select
        Exit For
    End If
Next
End Sub

Bonne journée.

 

[piwiss]

Ca marche, merci beaucoup pour votre aide