Listes Validations Multi-Sources

[TheLio]

Hello,
Le sujet à déjà été abordé plusieurs fois, avec une réponse catégorique :

😡"NON"😡​

Mais étant donné que les capacités des Xldiens et diennes augmente tous les jours...
J'essaye quand même :
Peut-on donner plusieurs sources (colonnes plages nommées) à une liste de validation ???
Merci
Lionel

 

[wilfried_42]

Re : Listes Validations Multi-Sources

Bonjour lionel

Qu'appelles tu plusieurs sources (Diffrents classeurs, Differentes Feuille, Differentes colonnes) ?

Logiquement non mais avec un exemple, on peut peut etre tricher, si tu n'es pas allergique aux macros

Le nombre de choix possibles est aussi important

Dans l'attente de te lire

Cordialement

 

[pierrejean]

Re : Listes Validations Multi-Sources

bonjour Thelio (le bonjour a ton voisin Atiom)

Un subterfuge

Edit: Salut Wilfried 🙂

 

[TheLio]

Re : Listes Validations Multi-Sources

ALors là...
Une fois de plus, je suis bluffé 😉
Le temps de dégraisser le consommé euh pardon mon dossier pour Wilfried...
et une réponse qui tombe.
Merci à vous deux...
pierrejean ??? pas compris ??? voisin ???

 

[pierrejean]

Re : Listes Validations Multi-Sources

Re

Un xldien (Atiom ) est egalement resident a la Tour-de-Peilz

 

[TheLio]

Re : Listes Validations Multi-Sources

Oh, voilà que je l'ignorais, je vais lui envoyer un p'tit MP en patois de P'tit Suisse 😉
Merci
A++

 

[BOISGONTIER]

Re : Listes Validations Multi-Sources

Bonsoir,

-Sélectionner le champ de la listeFusion
=Fusiontrimz((A2:A11;C2:C7;E2:E3))
-valider avec maj+ctrl+entrée

Function FusionTriMZ(nom)
  Set mondico = CreateObject("Scripting.Dictionary")
  For i = 1 To nom.Areas.Count
    For j = 1 To nom.Areas(i).Count
      c = nom.Areas(i)(j)
      If c <> "" And c <> 0 Then
        If c <> "" And Not mondico.Exists(c) Then mondico.Add c, c
      End If
    Next j
  Next i
  temp = mondico.items
  Call tri(temp, 0, UBound(temp, 1))
  FusionTriMZ = Application.Transpose(temp)
End Function

Sub tri(a, gauc, droi)          ' Quick sort
 ref = a((gauc + droi) \ 2)
 g = gauc: d = droi
 Do
     Do While a(g) < ref: g = g + 1: Loop
     Do While ref < a(d): d = d - 1: Loop
     If g <= d Then
       temp = a(g): a(g) = a(d): a(d) = temp
       g = g + 1: d = d - 1
     End If
 Loop While g <= d
 If g < droi Then Call tri(a, g, droi)
 If gauc < d Then Call tri(a, gauc, d)
End Sub

JB
Formation Excel VBA JB

 

[BOISGONTIER]

Re : Listes Validations Multi-Sources

Bonsoir PierreJean,

La longueur maxi d'une telle liste est environ 200 caractères (en direct ou généré par VBA)

JB

 

[pierrejean]

Re : Listes Validations Multi-Sources

Bonsoir BOISGONTIER

Effectivement , j'ai eu un probléme de ce style
Je l'avais résolu en recopiant dans une colonne et en mentionnant les limites genre
= F1:F250