Microsoft 365 Double liste déroulante

[Gexk5]

Bonjour le forum, bien longtemps que je n'ai pas demandé d'aide

Voici ma demande

J'ai une base de données avec des références et une désignation, je voudrais en sélèctionnant la référence , je voudrais dans une seconde liste n'avoir que les désignations correspondantes à la référence, j'ai recherché sur le forum mais je n'arrive pas à adapter les differentes réponses

Voir fichier Joint

Merci d'avance à tous ceux qui voudrons bien se pencher sur mon sujet

 

[sylvanu]

Bonsoir Gexk,
Un essai en PJ avec une macro de type Worksheet_SelectionChange.

 

[TooFatBoy]

Bonjour,

Un essai en PJ avec une macro de type Worksheet_SelectionChange.

Comment faudrait-il procéder pour, en plus, ne pas avoir de doublons dans les listes de la colonne L ?

 

[Gexk5]

Bonsoir Gexk,
Un essai en PJ avec une macro de type Worksheet_SelectionChange.

Re le forum, sylvanu, toujours aussi efficace ce forum, solution approuvée, je vais m'occuper des doublons dans ma liste de refernce, encore merci

 

[mapomme]

Bonsoir à tous 😀,

C'est un peu plus compliqué que ça 😉.

1. Si on change une valeur dans la colonne L, il faut aussi modifier la liste de validation de la colonne M. Si on ne le fait pas, la liste ne sera pas cohérente avec la valeur de la colonne L mais surtout la valeur de la colonne M risque d'être absente de la nouvelle liste.
2. En fait, à chaque fois qu'on change une liste de validation d'une cellule de la colonne M, il faut vérifier que la valeur de cette cellule (le cas échéant) se trouve aussi dans la nouvelle liste de la cellule M et si ce n'est pas le cas, alors il faut effacer la valeur de la cellule sans quoi on aboutit à des incohérences.

 

[sylvanu]

Bonjour,
Un nouvel essai avec la liste déroulante en colonne L sans doublons, grâce à cette petite fonction glanée sur le net qui semble rapide :

Function SansDoublonsArray(a)
  Set mondico = CreateObject("Scripting.Dictionary")
  mondico.CompareMode = vbTextCompare
  For Each c In a
    If Not mondico.Exists(c) And c <> "" Then mondico(c) = ""
  Next c
  SansDoublonsArray = mondico.keys
End Function

 

[wDog66]

Bonjour à tous,

Je n'ai pas dû comprendre la demande, pourquoi utiliser du VBA puisque les références sont dans l'ordre numérique
Une formule suffit pour la 2ème liste 🤔

 

[sylvanu]

Bonjour,

pourquoi utiliser du VBA puisque les références sont dans l'ordre numérique

Ne disposant que d' XL2007 donc pas des formules évoluées de 365, je ne vois pas comment faire une formule pour la colonne "Désignation".
Pour l'autre colonne, comme le module VBA existe alors pourquoi traiter la colonne "Ref" autrement.
Faites une proposition, Gexk n'aura que l'embarras du choix.

 

[wDog66]

Bonjour sylvanu,

Effectivement, voici une version sans VBA, simplement avec formule 😉

 

[merinos-BernardEtang]

Bonjour,

Il y a déja quelques années j'avais publié ceci:

 

[fanch55]

Bonjour sylvanu,

Effectivement, voici une version sans VBA, simplement avec formule 😉

Bonjour à tous,
@wDog66, pourquoi ne pas pointer directement sur le tableau dynamique dans la variable Liste_Ref ?

Ce qui me gêne dans cette méthode :
c'est l'utilisation d'une colonne supplémentaire qu'il ne faudra pas supprimer par oubli des relations
mais surtout c'est que si on change de ref, la désignation reste inchangée et on peut sauvegarder ainsi ...