Vérrouiller cellules avec condition

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

piwiss

XLDnaute Nouveau
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.
 

Pièces jointes

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.
 
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.
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
472
Retour