Discussion :

[Toug19]

Bonjour,
Dans mon fichier excel, j'ai créer un "nom" (ensemble de cellule) que je nomme Base_de_donnees. J'utilise cette référence (ce "nom), pour créer une liste de choix dans la première colonne de la deuxième feuille. Le nombre de valeurs dans cette liste est dynamique.
J'aimerais aller plus loin dans le coté dynamique. Je souhaiterais que lorsque je commence à taper t dans la première feuille (ou la liste de choix est active), une liste de choix apparaissent avec seulement les pilotes dont le nom débute par "t".
J'ai mis un extrait de mon fichier en pièce jointe. Je pense qu'il faut utiliser les macros, mais je n'ai pas trouvé comment faire.

[Igloobel]

Bonjour,

ta liste des pilotes est vide

A+

[Toug19]

Oui dans le premier onglet je choisis des pilotes parmi ceux de la base de pilote qui se trouve dans le deuxième onglet. Par exemple, j'aimerais que quand je commence à tapez t, une liste de choix apparait avec seulement les noms commençant par t.

[Menhir]

j'aimerais que quand je commence à tapez t, une liste de choix apparait avec seulement les noms commençant par t.

Excel ne fait pas ça en standard.

[Zekraoui_Jakani]

Voici ton fichier mis à jour pour répondre à ta question:

[Toug19]

Merci Zekraoui_Jakani mais ce n'est pas ce que je voulais (même si ça s'en rapproche, il est peut être possible d'utiliser ce que tu as fait).




En fait je veux que quand je tape t, une liste de choix excel apparaisse avec les noms de la liste de "validation de données" commençant par t.


Comme ceci (photo montage):



Merci.

[Toug19]

Personne pour m'aider?

[Zekraoui_Jakani]

Voici une nouvelle version de votre fichier, avec une ListBox et un ComboBox qui se mettent à jour en fonction de l'initiale introduite en A2 de la feuille 1.

[boisgontierjacques]

Bonjour,

Saisie intuitive type Google (affichage des items dans le combobox 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
 
Dim a(), mémo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set zSaisie = Range("B2:B2")
  If Not Intersect(zSaisie, Target) Is Nothing And Target.Count = 1 Then
    If mémo <> "" Then If IsError(Application.Match(Range(mémo), a, 0)) Then Range(mémo) = ""
    a = Application.Transpose(Sheets("feuil2").Range("base_de_donnees"))
    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
    mémo = Target.Address
  Else
    Me.ComboBox1.Visible = False
  End If
End Sub
 
Private Sub ComboBox1_Change()
  If Me.ComboBox1 <> "" And IsError(Application.Match(Me.ComboBox1, a, 0)) 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

Boisgontier
http://boisgontierjacques.free.fr

[Toug19]

Merci à vous deux.
J'ai pris la solution de boisgontierjacques que j'ai réussi à appliquer à mon fichier final.

Mais j'ai un soucis:
En fait je voudrais appliquer cette "méthode de choix" à tout un ensemble de cellule (toute les cellule de la colonne 3 sauf les titres).
Dois-je créer une combo box pour chaque cellule et donc créer tout un ensemble de fonctions (3 ou 4 par cellule...)

Je t'ai envoyé mon fichier final Jacques. Tu verras que sur la première feuille le cellule 3,3 contient la combobox.

[boisgontierjacques]

Bonjour,

Pour étendre la zone de saisie, il faut changer

Set zSaisie = Range("B2:B2")

Par

Set zSaisie = Range("B2:C10") par exemple

Boisgontier

[Toug19]

Ah oui ok, désolé j'avais vu l’intérêt de ce Range.
Merci beaucoup.