saisie intuitive avec combobox (macro Boisgontier)

[peg63]

Bonjour à tous,
j'ai un petit problème avec la macro de Boisgontier, saisi intuitive sur la combobox. j'ai copié la macro en l'adaptant à ma feuille mais le tri ne se fait pas bien, ci joint un fichier essai; étant débutant en vba, je galère depuis un moment sans trouver
merci d'avance

 

[BOISGONTIER]

Re : saisie intuitive avec combobox (macro Boisgontier)

Bonjour,

Il faut modifier la propriété MatchEntry du ComboBox à FrmMatchEntryNone

Listes en cascade

Pour obtenir une saisie intuitive du type Google dans un ComboBox de formulaire:

http://boisgontierjacques.free.fr/fichiers/DonneesValidation/ListeIntuitive5.xls

La liste des items dans le ComboBox apparaît au fur et à mesure de la frappe des caractères dans le ComboBox.

Dim a()
Private Sub UserForm_Initialize()
  a = [liste].Value
  Me.ComboBox1.List = a
End Sub

Private Sub ComboBox1_Change()
  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 Sub

Private Sub CommandButton1_Click()
   ActiveCell = Me.ComboBox1
End Sub

JB

 

[peg63]

Re : saisie intuitive avec combobox (macro Boisgontier)

Bonjour,

Il faut modifier la propriété MatchEntry du ComboBox à FrmMatchEntryNone

JB

A Boigontier
ça marche !!!
Désolé ça m'a échappé pourtant j'avais vérifié les propriétés mais trop vite
encore merci pour tout ce que vous faites sur excel (notamment votre site) , ça nous est très utile
a+