Bloquer saisie dans cellule si autres cellules ="x"

Bonjour le forum,

Je suis à la recherche d'une solution pour bloquer la saisie dans une cellule, si 2 autres ont une "x" dedans.

Par exemple :

B4="x" et C4="x" alors je ne peux pas mettre de "x" dans D4

sur la même ligne je souhaiterai également

C4="x" et D4="x" alors je ne peux pas mettre de "x" dans B4

Auriez-vous une solution à me proposer ?

En vous remerciant par avance.

Bonjour,

Pour le principe.

Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Double
Const R = "B4:D4"
    If Not Intersect(Target, Me.Range(R)) Is Nothing And Target.Count = 1 Then
        n = WorksheetFunction.CountA(Me.Range(R))
        If n > 2 Then
            With Application
                .EnableEvents = False
                .Undo
                .EnableEvents = True
            End With
        End If
    End If
End Sub

Bonjour et merci pour cette réponse,

J'ai testé de code sur mon fichier, mais cela ne fonctionne pas ??

Bonjour,

Un essai sans macro, juste avec la validation des données.

Re,

La raison d'une solution en VBA ?

Cdlt.

Bonjour à vous 2,

La solution de JoyeuxNoel fonctionne parfaitement.

Merci à vous.