Doublon dans liste déroulante

[oover56]

Bonjour à Tous,
Je vous sollicite de nouveau pour me sortir d'une impasse....
J'ai un tableau avec des listes déroulantes en cascade générées par les fonctions index equiv.
Malheureusement ces listes font des doublons (cf PJ)
Pouvez m'aider à contourner ce problème sans passer de l'écriture vba si possible.
Merci de votre aide
Oover56

 

[CISCO]

Re : Doublon dans liste déroulante

Bonsoir

Cela serait vraiment intéressant si quelqu'un trouvait une solution sans colonne intermédiaire et sans macro... Pour le moment, je n'y arrive pas...

@ plus

 

[CISCO]

Re : Doublon dans liste déroulante

Bonsoir

Je n'ai fait le "travail" que pour C13, en utilisant une colonne intermédiaire en colonne N. Faute de mieux...

@ plus

 

[oover56]

Re : Doublon dans liste déroulante

Bonjour
Je viens d'ouvrir le fichier joint mais je ne vois pas modification sur C13 ni sur N.
Dois je activer quelque chose ?
Merci
Oover56

 

[BOISGONTIER]

Re : Doublon dans liste déroulante

Bonsoir,

Avec VBA

1-Noms de champ à créer dans Tarif:
finition =DECALER($D$5;;;NBVAL($D$5:$D$2000))
HT =DECALER($E$5;;;NBVAL($E$5:$E$2000))
Parement =DECALER($C$5;;;NBVAL($C$5:$C$2000))
produit =DECALER($B$5;;;NBVAL($B$5:$B$2000))

2-Code à copier dans Fiche_Devis (clic-droit sur le nom d'onglet puis Afficher le code)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$13:$B$13" Then
      Set d1 = CreateObject("Scripting.Dictionary")
      For Each c In [produit]:  d1(c.Value) = "": Next c
      For Each c In d1.keys: temp = temp & c & ",": Next c
      Target.Validation.Delete
      Target.Validation.Add xlValidateList, Formula1:=Left(temp, Len(temp) - 1)
     End If
     '-- niv 2
     If Target.Address = "$C$13:$D$13" Then
       Set d1 = CreateObject("Scripting.Dictionary")
       For Each c In [parement]
         If c.Offset(0, -1) = Target.Offset(0, -2) Then d1(c.Value) = ""
       Next c
       If d1.Count > 0 Then
         For Each c In d1.keys: temp = temp & c & ",": Next c
         Target.Validation.Delete
         Target.Validation.Add xlValidateList, Formula1:=Left(temp, Len(temp) - 1)
       End If
     End If
     '---niv3
     If Target.Address = "$E$13:$G$13" Then
       Set d1 = CreateObject("Scripting.Dictionary")
       For Each c In [finition]
         If c.Offset(0, -2) = Target.Offset(0, -4) And _
            c.Offset(0, -1) = Target.Offset(0, -2) Then d1(c.Value) = ""
       Next c
       If d1.Count > 0 Then
         For Each c In d1.keys: temp = temp & c & ",": Next c
           Target.Validation.Delete
           Target.Validation.Add xlValidateList, Formula1:=Left(temp, Len(temp) - 1)
        End If
    End If
    '--- niv 4
    If Target.Address = "$H$13" Then
       Set d1 = CreateObject("Scripting.Dictionary")
       For Each c In [HT]
         If c.Offset(0, -3) = Target.Offset(0, -7) And _
            c.Offset(0, -2) = Target.Offset(0, -5) And _
            c.Offset(0, -1) = Target.Offset(0, -3) Then d1(c.Value) = ""
       Next c
       If d1.Count > 0 Then
         For Each c In d1.keys: temp = temp & c & ",": Next c
           Target.Validation.Delete
           Target.Validation.Add xlValidateList, Formula1:=Left(temp, Len(temp) - 1)
        End If
    End If
 End Sub

http://boisgontierjacques.free.fr/fichiers/DonneesValidation/DV_4niv_devis.xlsm

JB

 

[CISCO]

Re : Doublon dans liste déroulante

Bonsoir

Bonjour
Je viens d'ouvrir le fichier joint mais je ne vois pas modification sur C13 ni sur N.
Merci
Oover56

J'ai dû faire une erreur de manip. J'ai mis le bon fichier dans mon précédent post.

@ plus

 

[oover56]

Re : Doublon dans liste déroulante

Merci à vous 2
Le fichier étant beaucoup plus fourni que celui de l'exemple, je crains de ne pouvoir mettre en application vos formules.
Merci quand même de votre aide
Oover56

 

[CISCO]

Re : Doublon dans liste déroulante

Bonsoir

La proposition de JB doit certainement fonctionner, même sur un gros fichier...

@ plus