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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Sghaier Chafaa

XLDnaute Junior
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:
Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.
 

Pièces jointes

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à
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:
 

Pièces jointes

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
 
Pour la validation avec la touche Entrée, Il manque:

VB:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour