XL 2016 Excel saisie semi automatique à partir d’une liste comme dans google (RESOLU)

[Sghaier Chafaa]

Bonjour,

après plusieurs recherches, j'ai trouvé des tuto pour un saisie automatique , particulièrement un tuto pour saisie semi-automatique en mode recherche de google,

Depuis 5h que j'essaye mais sans résultat

une liste déroulante qui se délate automatiquement pour donner les proposition par rapport au texte saisie

sauf que j'ai pas réussi à l'adapté à mon cas

quelqu'un peut m'aider svp

le vidéo de réference est le:

 

[Sghaier Chafaa]

encore à la recherche de solution

j'ai trouvé un excellente solution de M. boisgontier jacques, Une VRAIE saisie intuitive (la liste se réduit au fur et à mesure de la frappe des caractères) , celui là

DVComboBoxIntuitif-lettresContenues-2-.xls

Le service des pièces jointes, CJoint.com est un service de partage de fichier gratuit pour partager vos documents dans vos courriels, sur les forums ou dans vos petites annonces.

www.cjoint.com

reference: http://boisgontierjacques.free.fr/pages_site/listes_cascade.htm#Simul_DV

Puis j'ai appliqué mot à mot , mais toujours des erreurs, un recrod de presque 10h à la file :'(
ma Nèm essaie:

Calculateur-Consommation-MP-2-.xlsm

Le service des pièces jointes, CJoint.com est un service de partage de fichier gratuit pour partager vos documents dans vos courriels, sur les forums ou dans vos petites annonces.

www.cjoint.com

 

[BOISGONTIER]

Bonjour,

cf PJ


Boisgontier

 

[Sghaier Chafaa]

Bonjour,

cf PJ


Boisgontier

Bonjour Fameux M. Jaques

Tout d'avbrd merci enormément pour votre super site de support sur "Free", j'ai passé 1h à vous chercher sur le net pour vous envoyer un mail ou trouver votre page de fb pour vous demander un support mais sans resultat

Est-ce que je peux savoir c'été quoi exctement la faute ?
en plus la validation de choix de la liste avec "entrée" ne fonctionne pas et ne passe pas à la ligne suivante

 

[BOISGONTIER]

Pour la validation avec la touche Entrée, Il manque:

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 = ""
    ActiveCell.Offset(1).Select
  End If
End Sub

Boisgontier

 

[Sghaier Chafaa]

Merci énormément M. Jacques
Le TOP comme d'hab

Pour les consulteur ultérieurs, voilà la solution finale