Liste intuitive et recherche

Salut à tous,

Je suis en train de faire un fichier Excel pour une flotte de téléphones mobiles (+de 500).

Je souhaiterai, pouvoir faire une recherche sur un n° de carte SIM (via liste déroulante intuitive) et récupérer le code PUK qui correspond.

Voici comment se présente mon fichier Excel

• 1er onglet : recherche du PUK via saisie du n° carte sim
• 2ème onglet : base de données avec les infos nécessaires (sim, puk, imei ...)
• 3ème onglet : listes diverses

- D'abord, concernant la liste déroulante "intuitive".

Je lui ai donné un nom dynamique (avec les fonctions "decaler et nbval")

Ensuite, j'ai bien ma liste classique via "Validation des données", par contre j'aimerai lorsque je frappe les premiers chiffres qu'une liste apparaisse.

- J'ai regardé un peu partout et pour la liste intuitive j'ai bien aimé la solution proposée par ceusin (avec sa combobox) :

https://forum.excel-pratique.com/excel/liste-deroulante-avec-saisie-automatique-t68013.html

- Le soucis c'est que je n'arrive pas à la transposer à mon cas :s

- Enfin, une fois la liste déroulante OK, je souhaiterai que le n° affiché en B4 (onglet "Recherche_PUK") me donne le PUK associé dans la cellule à côté (C4)

Merci à la communauté de l'aide apportée

alex

boonjour

un essai

cordialement

Merci Tulipe_4 pour ton aide

J'avance toujours un peu plus grâce à vous !

Par contre je bloque toujours sur la liste déroulante :s

Elle reste statique (comme la liste que j'avais faite par défaut).

Ce que je souhaiterai, c'est lorsque je commence à taper le début du n°, ça affiche une liste qui commence par ces chiffres.

Encore une fois merci d'avance !

re

heu ...... je ne vois pas de quoi tu parles car dans ta PJ il n'y a ps de "madagascar "ni de birmanie .....

remet une PJ nettement plus representative de ce que tu as et de ce que tu veux

cordialement

je parlais du lien que j'avais mis dans le premier post

alex08 a écrit :

Salut à tous,

- J'ai regardé un peu partout et pour la liste intuitive j'ai bien aimé la solution proposée par ceusin (avec sa combobox) :

https://forum.excel-pratique.com/excel/liste-deroulante-avec-saisie-automatique-t68013.html

- Le soucis c'est que je n'arrive pas à la transposer à mon cas :s

Désolé pour le manque de clarté ^^

je viens de m'apercevoir que j'avais effacé une partie du post qui parlait de la solution de ceusin d'où ton incompréhension

Bonjour,

Avec recherche intuitive type Google.

La liste est modifiée au fur et à mesure de la frappe des caractères.

cf PJ

Dim a(), mémo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set zSaisie = Range("b4:b4")
  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("bdd").Range("bdd_sim"))
    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

Ceuzin

YES !!!!

merci à toi ceusin

ça fonctionne impec