Discussion :

[ConforJM]

Bonjour,

Sans avoir trouvé sur le forum de solution à mon problème (à priori...), je fais ici mon premier post qui je l'espère sera assez clair

Je cherche à avoir une liste de choix (par validation de données sous Excel) dans plusieurs colonnes, faisant appel à un critère définit dans chaque colonne (ici en ligne 1) pour pointer vers une base de données située dans une autre feuille.

Je souhaiterais pouvoir saisir, pour chaque colonne, le début du nom correspondant à la catégorie de la colonne, et que la liste actualisée me propose les noms commençant par les caractères saisis.

La demande est peut-être aussi claire dans le fichier joint

Merci d'avance pour vos bons conseils quant à la possibilité de faire ceci, et de quelle manière...

[Zekraoui_Jakani]

Je ne suis pas sûr de saisir tout le contenu, mais essayez une liste déroulante à créer via l'outil "développeur" dans le menu (à activer si nécessaire, via les options XL)
Voir les propriétés de la liste déroulante dans la capture d'écran ci-dessous:

[ConforJM]

Merci pour cette piste de solution que j'avais effectivement aperçu, mais résigné à ne pas l'utiliser car protection du fichier / vbaProject par mot de passe... c'est pourquoi je recherche une solution dans l'environnement Excel sans passer par l'outil "développeur", si toutefois c'est possible !?

[cb_60]

Bonjour
A tester, les données de la feuille tables doivent être trié de cette façon, ColonneB par ordre Alpha et Ensuite colonneA

[ConforJM]

Merci Bruno, c'est exactement ce que je cherchais à faire.
Seule contrainte le tri qu'il faudra bien penser à refaire après les ajouts dans ce tableau mais c'est minime par rapport au gain de cette solution.

[boisgontierjacques]

Bonjour,

Saisie intuitive type Google. La liste se réduit au fur et à mesure de la frappe des caractères.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Option Compare Text
Dim a(), Mémo, f
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set f = Sheets("Tables")
  Set zSaisie = Range("A3:E100")
  If Not Intersect(zSaisie, Target) Is Nothing And Target.Count = 1 Then
    a = Application.Transpose(f.Range("a2:a" & f.[A65000].End(xlUp).Row))
    Me.ComboBox1.List = a
    Me.ComboBox1.Height = Target.Height + 3
    Me.ComboBox1.Width = Target.Width
    Me.ComboBox1.Top = Target.Top
    Me.ComboBox1.Left = Target.Left
    Me.ComboBox1 = Target
    Me.ComboBox1.Visible = True
    Me.ComboBox1.Activate
    AdrMémo = Target.Address
    Mémo = Target
  Else
    Me.ComboBox1.Visible = False
  End If
End Sub
 
Private Sub ComboBox1_Change()
  If Me.ComboBox1 <> "" Then
    Set d1 = CreateObject("Scripting.Dictionary")
    tmp = UCase(Me.ComboBox1) & "*"
    For Each c In a
      If UCase(c) Like tmp Then d1(c) = ""
    Next c
    Me.ComboBox1.List = d1.keys
    Me.ComboBox1.DropDown
  End If
  ActiveCell.Value = Me.ComboBox1
End Sub
 
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  ComboBox1.List = Application.Transpose(f.Range("a2:a" & f.[A65000].End(xlUp).Row))
  Me.ComboBox1.DropDown
End Sub
 
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then
    If IsError(Application.Match(ActiveCell, a, 0)) Then ActiveCell = Mémo
    ActiveCell.Offset(1).Select
  End If
End Sub

Boisgontier

[ConforJM]

Cette solution doit être bien utile si on ne dépend pas de l'administrateur pour le mot de passe vba... ce pourquoi je vais privilégier la solution de Bruno. Mais je m'en servirai surement pour d'autres projets !

Sinon, ça ne répond pas tout à fait à la "cascade" : la catégorie ligne 1 dans "Listes" n'actualise pas les listes en accord avec la colonne B (catégories) dans "Tables".
J'imagine que c'est possible, mais dans ce cas, un tri est-il indispensable comme la solution de Bruno ?