Validation pour éviter un doublon sur deux cellules voisines

Bonjour à tous,

J'aurais besoin d'une petite aide concernant une validation sur des doublons. J'ai cherché des solutions sur Internet et sur ce forum, mais je n'ai rien trouvé qui ait l'air de répondre à mon problème, je crée donc un nouveau topic.

J'aimerais créer une validation sur une case pour empêcher que celle-ci soit valide si elle est identique à celle située juste à gauche.

Par exemple, si j'ai rempli en A2 "Adresse_1"; je voudrais qu'on ne puisse pas remplir également "Adresse_1" en B2 à l'aide d'une validation.

J'ai déja mis en place une liste déroulante en A2 et B2 avec des listes d'adresses. Y a t-il moyen de coupler ces deux validations?

J'ai trouvé de nombreux topics sur la question des validations sur une colonne, mais rien sur une validation "en ligne" ou sur deux cellules voisines tout du moins.

Bonne journée et merci pour votre réponse

Bonjour

Cordialement

Bonjour,

J'ai édité mon message et ai rajouté le fichier!

Bonjour,

si tu n'as que 4 lieux le plus simple est que tu crées 4 nouvelles listes de 3 items selon le 1 lieu choisi.

eric

Bonjour,

Evidemment dans le cas ou je n'ai que 4 lieux je pense pouvoir faire comme ca!

De fait, le nombre d'adresses va très bientôt augmenter et cette solution ne sera plus viable.

C'est pour cela que je cherche une autre solution

avec une petite macro alors :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim adresse, adresse1 As String, liste As String, i As Long
    If Target.Column = 2 And Target.Row > 1 Then
        adresse1 = Target.Offset(, -1)
        With Sheets("Liste")
            adresse = .[A2].Resize(.Cells(Rows.Count, 1).End(xlUp).Row - 1).Value
        End With
        For i = 1 To UBound(adresse)
            If adresse(i, 1) <> adresse1 Then liste = liste & "," & adresse(i, 1)
        Next i
        With Selection.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                 Operator:=xlBetween, Formula1:=Mid(liste, 2)
'            .IgnoreBlank = True
'            .InCellDropdown = True
'            .InputTitle = ""
'            .ErrorTitle = ""
'            .InputMessage = ""
'            .ErrorMessage = ""
'            .ShowInput = True
'            .ShowError = True
        End With
    End If
End Sub

eric

Bonjour,

Ci-joint ton fichier test ... avec une autre possibilité ... parmi beaucoup d'autres ...

En espèrant que cela t'aide ...

Heuuu, tu es sûr de ton coup là james007 ?

Y'a plus de liste déroulante. C'est fromage OU dessert... Ou le contrôle, ou la liste

Très bien, parfait ca marche

Merci beaucoup pour cette macro!

Guillaume

eriiic a écrit :

Heuuu, tu es sûr de ton coup là james007 ?

Y'a plus de liste déroulante. C'est fromage OU dessert... Ou le contrôle, ou la liste

Pour tout te dire ... je n'ai lu que la dernière ligne ... pas possible de faire des validations en ligne ...