Liste déroulante à saisie semi automatique Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
s
sebastienL
Nouveau venu
Nouveau venu
Messages : 7
Inscrit le : 12 mars 2015
Version d'Excel : 2010 FR

Message par sebastienL » 18 mars 2015, 10:58

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
Liste déroulant pblm.xlsx
(11.58 Kio) Téléchargé 92 fois
V
VBABEGINNER
Membre dévoué
Membre dévoué
Messages : 725
Inscrit le : 5 novembre 2014
Version d'Excel : 2010

Message par VBABEGINNER » 18 mars 2015, 11:01

Bonjour,

Je pense que ceci peut t'être utile :

http://forum.excel-pratique.com/excel/a ... 62166.html

Cordialement,
c
ceuzin
Membre dévoué
Membre dévoué
Messages : 569
Appréciations reçues : 24
Inscrit le : 29 octobre 2011
Version d'Excel : 2002

Message par ceuzin » 18 mars 2015, 13:04

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
Liste déroulant pblm-1.xlsm
(26.99 Kio) Téléchargé 228 fois
Modifié en dernier par ceuzin le 18 mars 2015, 15:21, modifié 1 fois.
s
sebastienL
Nouveau venu
Nouveau venu
Messages : 7
Inscrit le : 12 mars 2015
Version d'Excel : 2010 FR

Message par sebastienL » 18 mars 2015, 13:58

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
t
tulipe_3
Membre impliqué
Membre impliqué
Messages : 1'745
Inscrit le : 18 mars 2010
Version d'Excel : 2000

Message par tulipe_3 » 19 mars 2015, 15:23

bonjour
en triant automatiquement ta liste de maniere a eviter la notion de vrac (tri alpha)
sebastienl.xls
(40 Kio) Téléchargé 167 fois
cordialement
c'est en cherchant qu'on trouve
s
sebastienL
Nouveau venu
Nouveau venu
Messages : 7
Inscrit le : 12 mars 2015
Version d'Excel : 2010 FR

Message par sebastienL » 23 mars 2015, 09:17

Bonjour,

Je te remercie pour tes infos !
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message