Saisie intuitive semie automatique dans excel (Comme dans Google Search)

**Trebor** · 06/11/2014, 23h26

Bonsoir à tous,

Je suis à la recherche de la fonction, formule, manip... voir tuto (l'idéal) qui me permettrait d'avoir une saisie automatique de données dans excel via une liste contenue dans une colonne.

J'ai trouvé de très bon tuto à ce sujet mais je n'ai pas l'option de saisie intuitive. (En utilisant la fonction DECALER)

Je m'occupe d'un club de foot et je souhaiterais gérer les présences et mes stats. J'ai une liste de nom et de prénom d'enfant et je voudrais que lorsque je saisi le nom dans la colonne, le reste du nom et du prénom s'affiche.

Par exemple : J'ai un enfant qui s'appelle BOB Dylan et un qui s'appelle BOBBY Jason (C'est un exemple, je le rappelle.)

Je souhaiterais qu'en tapant "BOBB" dans la cellule, s'affiche automatiquement BOBBY Jason.

Excel le fait tout seul lorsqu'on utilise pas la fonction liste mais avec 200 loulous et la fatigue, c'est source de faute de frappe.

Merci de votre aide.

**rjamin** · 07/11/2014, 09h02

Bonjour,
Les combobox (liste déroulante) font très bien cela.

**Trebor** · 07/11/2014, 22h19

Je pensais également mais malheureusement, cela ne fonctionne pas. Lorsque je saisi mes données, je suis obligé de taper l'intégralité du Nom et du Prénom de l'enfant.

**Trebor** · 07/11/2014, 22h32

Alors en faite, j'utilisais une liste déroulante, pas une combobox. Le soucis avec les combobox, c'est qu'elle ne rentre pas dans ma cellule (ou alors c'est que je m'y prends mal...). Je souhaiterais quelque-chose qui rentre parfaitement dans ma cellule un peu comme une liste de choix.
Merci pour vos réponses.

**rjamin** · 08/11/2014, 09h10

Bonjour,
Une seule combobox suffit, je la place en haut du tableau où je dois encoder puis je fige les volets en dessous de sa limite inférieure comme ça elle est visible tout le temps.
Ensuite sur un événement de cette liste (change ou autre) je mets un code qui recherche la première ligne vide et y inscrit le choix effectué dans la liste.

Ou mieux peut-être, utilisé un formulaire.

**boisgontierjacques** · 24/02/2015, 11h12

Bonjour,

Une VRAIE saisie intuitive type Google (affichage des items dans le combobox au fur et à mesure de la frappe des caractères)

Solution formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
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
  Unload Me
End Sub

Solution Tableur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Dim a()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect([A2:A16], Target) Is Nothing And Target.Count = 1 Then
    a = Sheets("bd").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 <> "" Then
   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 If
   ActiveCell.Value = Me.ComboBox1
End Sub

JB

**wahid-chaoui** · 05/06/2015, 09h44

Bonjour,
j'ai télécharger un fichier de la saisie intuitive mai la saisie sa fonction dans la colonne H
mais je veut que la saisie sa fonction dans ma désignation de la facture
voici le fichier
et merci d’avance

**boisgontierjacques** · 05/06/2015, 13h43

Bonjour,

Cf pj

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Dim a()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect([B19:B34], Target) Is Nothing And Target.Count = 1 Then
    a = Application.Transpose(Sheets("marchandises").Range("liste"))
    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
 End If
   ActiveCell.Value = Me.ComboBox1
End Sub

Boisgontier Jacques

**wahid-chaoui** · 05/06/2015, 16h43

Merci et comme en dit en arabe Barak allah fik بارك الله فيك وجزاك خيرا
mais si en ajoute une autre ou plusieurs feuilles le code sa marche pas
comment faire ?

**boisgontierjacques** · 05/06/2015, 17h19

Il faut copier l'onglet
-clic-droit sur le nom Facture
-Copier

Jacques Boisgontier

**wahid-chaoui** · 06/06/2015, 07h26

Bonjour
Merci beaucoup

**wahid-chaoui** · 06/06/2015, 14h33

bonsoir
pour l’écriture arabe le combo box m'affiche la liste de gauche à droite
mais moi je veut qu'il m'affiche de droite à gauche
j'ai changé la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.ComboBox1.Left = Target.Left

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.ComboBox1.Right = Target.Right

mais ca marche pas
comment le faire?
et merci d'avance

**Romain-39** · 17/10/2016, 06h30

Merci bp Jacques pour ton fichiert excel. ça marche bien entendu ... j'aurais besoin de créer une deuxième ComBox en colonne B, reliée à une deuxième liste dans un nouvel onglet. Mais comme je ne comprends pas ce que tu as écrit dans le programme, je n'ai pas dû écrire ce qu'il faut comme il faut.
si tu peux me filer un coup de pouce ...
grand merci. Romain

Envoyé par boisgontierjacques

Bonjour,

Une VRAIE saisie intuitive type Google (affichage des items dans le combobox au fur et à mesure de la frappe des caractères)

Solution formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
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
  Unload Me
End Sub

Solution Tableur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Dim a()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect([A2:A16], Target) Is Nothing And Target.Count = 1 Then
    a = Sheets("bd").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 <> "" Then
   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 If
   ActiveCell.Value = Me.ComboBox1
End Sub

JB

**fflintt** · 28/10/2016, 21h03

Bonjour Jacques,

la formule que vous proposez est absolument parfaite quand je regarde le fichier que vous avez annexé. J'aimerais utiliser ce système dans mon fichier de gestion de Pool de hockey. Étant donné mes faibles connaissances avec Visual Basic, auriez-vous l’amabilité d'adapter mon fichier avec votre formule ? Le fichier contient 3 onglets, le premier("Joueurs") étant la liste des joueurs dont la colonne a nommer est AR. Ensuite, je voudrais que dans mes 2 autres onglets, lorsque j'inscris une transaction entre 2 individus, qu'Excel me suggère les joueurs de la liste débutant par les première lettre que je saisis pour une transaction. J'ai inscrit des explications supplémentaires dans le fichier.

Je vous remercie énormément, cela me permettra de continuer à faire du développement.

**boisgontierjacques** · 30/10/2016, 01h10

Bonjour,

-Créer un champ nommé Liste
-Créer un combobox
-propriété MatchEntry à None

Dans le code de la page

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
Dim a(), mémo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set zSaisie = Range("I3:I1000,N3:N1000")
  If Not Intersect(zSaisie, Target) Is Nothing And Target.Count = 1 Then
    If mémo <> "" Then If IsError(Application.Match(Range(mémo), a, 0)) Then Range(mémo) = ""
    a = Application.Transpose(Sheets("joueurs").Range("liste"))
    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
    mémo = Target.Address
  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
    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 If
  ActiveCell.Value = Me.ComboBox1
End Sub
 
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  ComboBox1.List = Sheets("joueurs").Range("liste").Value
  Me.ComboBox1.DropDown
End Sub
 
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

**fflintt** · 31/10/2016, 14h13

Bonjour M.Boisgontier,

je vous remercie énormément pour votre générosité, le résultat est surprenant!

Si je veux utiliser la même formule mais pour un 2e onglet, "draft17", aux cellules F3 à F150 me proposer la même liste de joueurs, est-ce possible ?

je vous remercie l'avance

Frank

**boisgontierjacques** · 31/10/2016, 18h17

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
Dim a(), mémo
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set zSaisie = Range("f3:f1000")
  If Not Intersect(zSaisie, Target) Is Nothing And Target.Count = 1 Then
    If mémo <> "" Then If IsError(Application.Match(Range(mémo), a, 0)) Then Range(mémo) = ""
    a = Application.Transpose(Sheets("joueurs").Range("liste"))
    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
    mémo = Target.Address
  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
    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 If
  ActiveCell.Value = Me.ComboBox1
End Sub
 
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  ComboBox1.List = Sheets("joueurs").Range("liste").Value
  Me.ComboBox1.DropDown
End Sub
 
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

**B-A-M** · 29/11/2016, 16h05

Bonjour Jacques,

Comment avez vous fait pour avoir plusieurs objets sur une meme feuille ?
Merci

Nom : Capture.JPG
Affichages : 7994
Taille : 73,4 Ko

**boisgontierjacques** · 03/12/2016, 08h13

Bonjour,

>Comment avez vous fait pour avoir plusieurs objets sur une meme feuille ?

IL n'y a qu'un objet (combobox1) qui est déplacé dans la cellule où l'opérateur clique.

Boisgontier

**L.Durand** · 17/05/2017, 13h41

Bonjour à tous,

Je viens de faire le tour du forum et je suis tombé sur cet article qui m’intéresse tout particulièrement.
Je cherchais une liste déroulante dans laquelle on pouvait entrer les premiers caractères (ou quelques caractères contenu dans le mot).
J'ai fini par testé le fichier "Saisie Intuitive-1.xls".
Cependant j'aimerai appliquer la méthode de ce fichier pour ma liste d'adresse qui contient plusieurs ligne par cellules, exemple :

M. Durand
6 rue Henri Revoil
89200 Avallon

Le problème c'est qu'a priori les combobox ne prennent en compte qu'une seule ligne, j'ai donc VBA qui s'ouvre avec un message d'erreur.

Ce que je souhaiterais, c'est pouvoir taper par exemple "urand" ou "Avallon" pour voir apparaître l'adresse précédente dans ma liste déroulante.

Avez-vous une solution miracle pour mon problème ?

Cordialement,

LD

Saisie intuitive semie automatique dans excel (Comme dans Google Search)

Excel

Discussions similaires

Partager

Partager