Vérrouiller cellules avec condition

piwiss · 9 Mai 2019

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 · 9 Mai 2019

Bonjour le Forum,
Bonjour piwiss,

un essai en passant par données => validation

Cordialement

piwiss · 9 Mai 2019

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 · 9 Mai 2019

Bonjour piwiss, Jocelyn, le forum,

Voyez le fichier joint et cette macro :

VB:

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 · 9 Mai 2019

Ca marche, merci beaucoup pour votre aide

Vérrouiller cellules avec condition

piwiss

XLDnaute Nouveau

Pièces jointes

Jocelyn

XLDnaute Barbatruc

Pièces jointes

piwiss

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

piwiss

XLDnaute Nouveau

Discussions similaires