Empêcher saisie de deux valeurs identiques

Bonjour à toutes et tous !

J'ai tenté de trouver un sujet approchant de mon problème mais n'est pas réussi à appliquer de réponse exacte.

Je joins un tableau pour l'expliquer.

Ici je dois indiquer pour chaque personne 1 seule réponse possible : ils sont soit célibataire, soit marié, soit pacsé, soit divorcé.

J'aimerais au mieux :

que que j'attribue "1" pour une colonne les autres colonnes se mettent automatiquement à "0"

Ou bien que quand j'attribue deux fois "1" un message d'erreur apparaisse.

J'essaye de passer par la validation des données mais sur 4 colonnes sont consécutives ça bloque.

Qui plus est j'utilise déjà la validation des données pour la liste de choix O ou 1.

Quelqu'un connaitrait-il la solution à mon problème s'il vous plait?

Merci beaucoup !!

pourquoi tu ne fais pas ta liste déroulante avec célibataire, marié, etc.. au lieu de 0 ou 1 ? ton problème serait réglé.

Bonjour,

un essai par macro évènementielle :

Private Sub Worksheet_Change(ByVal Target As Range)
DerL = Range("A" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Range("B2:E" & DerL)) Is Nothing Then
    lig = Target.Row
    col = Target.Column
    Application.EnableEvents = False
    If Target.Value = 1 Then
        For j = 2 To 5
            If j <> col Then
                Cells(lig, j).Value = 0
            Else
                Cells(lig, j).Value = 1
            End If
        Next
    End If
    Application.EnableEvents = True
End If            
End Sub

à copier dans l'éditeur VBA de la feuille Feuil1

Si on choisit 1 dans une colonne, les autres passent à 0.

A+

Bonjour à tous,

une validation qui n'autorise qu'un seul 1, sur B2:E2 :

=ET(SOMME($B2:$E2)<=1;SOMMEPROD(--ESTTEXTE(B2:E2))=0)

eric

bonjour

un essai à tester

sur la base d'une formule de filtre

cordialement

Bonsoir,

Peut-être avec un coche obtenu par double clic voir pj

Slts

Merci à tout le monde !

J'ai essayé ça fonctionne

Extra !

Bonne journée !!

Tony83Paris a écrit :

J'ai essayé ça fonctionne

Évidemment ça fonctionne, c'est rare qu'on propose des solutions qui ne fonctionnent pas ! ( encore que pour ma part ...)

Il serait intéressant de savoir quelle solution a été retenue et pourquoi ?

A+