Liste déroulante à saisie semi automatique

Bonjour,

Je souhaiterais faire une liste déroulante à saisie semi automatique.

J'ai suivi les différents tuto sur Mr google et je rencontre une difficulté.

Ma liste est de la forme suivante :

14STN08

15QSE01

15ANA03

15QSE02

15STN03

quand je réalise une saisie : 15Q, il devrait me renseigner uniquement les données comprenant 15Q (donc famille QSE sur l'année 2015).

Or j'ai l'impression qu'il prend uniquement le premier critère 1 et pas les 3 premiers (ce dont je souhaiterais).

Je voudrais savoir s'il était possible d'avoir une liste semie automatique en prenant en compte les 3 premières lettres.

Je vous remercie beaucoup d'avance,

Cordialement,

Sébastien

Bonjour,

Je pense que ceci peut t'être utile :

https://forum.excel-pratique.com/excel/auto-completion-liste-deroulante-t62166.html

Cordialement,

Bonjour,

-Une vraie saisie intuitive type Google (voir PJ)

Dim a()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect([a3:a3], Target) Is Nothing And Target.Count = 1 Then
    a = Application.Transpose(Sheets("feuil2").Range("liste").Value)
    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
    Me.ComboBox1.DropDown ' ouverture automatique au clic dans la cellule (optionel)
  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
     Me.ComboBox1.List = Filter(a, Me.ComboBox1.Text, True, vbTextCompare)
     Me.ComboBox1.DropDown
  Else
    ActiveCell = Me.ComboBox1
  End If
End Sub

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Me.ComboBox1.List = a
  Me.ComboBox1.Activate
  Me.ComboBox1.DropDown
End Sub

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 13 Then ActiveCell.Offset(1).Select
End Sub

-Avec Données/Validation:

Ceuzin

Bonjour,

Je te remercie beaucoup, à vrai dire ça fait une heure que je suis en train d'essayer ce que tu viens de me faire.

Le hic c'est quand j'intègre ton code dans un nouveau classeur il me précise que je n'est pas définis le nom.

Comment procède tu ? (j'ai du prendre ton fichier et incorporer le mien dessus ... la loose mais ça marche).

Et je viens de voir même quand tu veux intégrer ton code sur une nouvelle feuille ça ne fonctionne pas. Tu dois définir quelque chose sur la page ?

Je te remercie d'avance et encore mercir pour ton aide sur le fichier.


Oups Second Hic !

Pour quelles raison ne pouvons nous plus faire des copier/coller dans la nouvelle version du fichier transmit ?

Je te remercie d'avance,

Cordialement

bonjour

en triant automatiquement ta liste de maniere a eviter la notion de vrac (tri alpha)

231sebastienl.zip (7.63 Ko)

cordialement

Bonjour,

Je te remercie pour tes infos !

Rechercher des sujets similaires à "liste deroulante saisie semi automatique"