Comment activer l'autocomplétion lors de la saisie dans une liste déroulante Excel ?

Pour une liste déroulante de validation des données contenant de nombreux éléments, vous devez faire défiler la liste vers le haut ou vers le bas pour trouver celui dont vous avez besoin ou taper correctement le mot entier dans la zone de liste. Existe-t-il un moyen de rendre la liste déroulante auto-complétée lorsque vous tapez les caractères correspondants ? Cela aiderait les utilisateurs à travailler plus efficacement dans les feuilles de calcul avec des listes déroulantes dans les cellules. Ce tutoriel propose deux méthodes pour vous aider à y parvenir.

Activer l'autocomplétion des listes déroulantes avec du code VBA
Activer facilement l'autocomplétion des listes déroulantes en 2 secondes
Plus de tutoriels pour les listes déroulantes...

Activer l'autocomplétion des listes déroulantes avec du code VBA

Veuillez suivre les étapes ci-dessous pour rendre une liste déroulante auto-complétée après avoir tapé les lettres correspondantes dans la cellule.

Tout d'abord, vous devez insérer une zone combinée dans la feuille de calcul et modifier ses propriétés.

1. Ouvrez la feuille de calcul qui contient les cellules de la liste déroulante que vous souhaitez rendre auto-complétées.
2. Avant d'insérer une zone combinée, vous devez ajouter l'onglet Développeur au ruban Excel. Si l'onglet Développeur est visible sur votre ruban, passez à l'étape 3. Sinon, suivez les étapes ci-dessous pour afficher l'onglet Développeur dans le ruban : Cliquez sur "Fichier" > "Options" pour ouvrir la fenêtre "Options". Dans cette fenêtre "Options Excel", cliquez sur "Personnaliser le Ruban" dans le volet gauche, cochez la case "Développeur", puis cliquez sur le bouton "OK". Voir capture d'écran :
   
3. Cliquez sur "Développeur" > "Insérer" > "Zone combinée (Contrôle ActiveX)".
   
4. Dessinez une zone combinée dans la feuille de calcul actuelle. Faites un clic droit dessus, puis sélectionnez "Propriétés" dans le menu contextuel.
   
5. Dans la boîte de dialogue "Propriétés", remplacez le texte original dans le champ "(Nom)" par "TempCombo."
   
6. Désactivez le "Mode Création" en cliquant sur "Développeur" > "Mode Création".

Ensuite, appliquez le code VBA ci-dessous

1. Faites un clic droit sur l'onglet de la feuille actuelle et cliquez sur "Afficher le Code" dans le menu contextuel. Voir capture d'écran :
   
2. Dans la fenêtre "Microsoft Visual Basic for Applications" qui s'ouvre, copiez et collez le code VBA ci-dessous dans la fenêtre Code de la feuille de calcul.
   Code VBA : Autocomplétion lors de la saisie dans une liste déroulante

   Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   'Update by Extendoffice: 2020/01/16
       Dim xCombox As OLEObject
       Dim xStr As String
       Dim xWs As Worksheet
       Dim xArr
       
       Set xWs = Application.ActiveSheet
       On Error Resume Next
       Set xCombox = xWs.OLEObjects("TempCombo")
       With xCombox
           .ListFillRange = ""
           .LinkedCell = ""
           .Visible = False
       End With
       If Target.Validation.Type = 3 Then
           Target.Validation.InCellDropdown = False
           Cancel = True
           xStr = Target.Validation.Formula1
           xStr = Right(xStr, Len(xStr) - 1)
           If xStr = "" Then Exit Sub
           With xCombox
               .Visible = True
               .Left = Target.Left
               .Top = Target.Top
               .Width = Target.Width + 5
               .Height = Target.Height + 5
               .ListFillRange = xStr
               If .ListFillRange = "" Then
                   xArr = Split(xStr, ",")
                   Me.TempCombo.List = xArr
               End If
               .LinkedCell = Target.Address
           End With
           xCombox.Activate
           Me.TempCombo.DropDown
       End If
   End Sub
   Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
       Select Case KeyCode
           Case 9
               Application.ActiveCell.Offset(0, 1).Activate
           Case 13
               Application.ActiveCell.Offset(1, 0).Activate
       End Select
   End Sub

   
3. Appuyez simultanément sur les touches "Alt + Q" pour fermer la fenêtre Microsoft Visual Basic for Applications.

Dès maintenant, lorsque vous cliquez sur une cellule de liste déroulante, la liste déroulante apparaîtra automatiquement. Vous pouvez commencer à taper la lettre pour compléter automatiquement l'élément correspondant dans la cellule sélectionnée. Voir capture d'écran :

Activer facilement l'autocomplétion des listes déroulantes en 2 secondes

Pour la plupart des utilisateurs d'Excel, la méthode VBA ci-dessus est difficile à maîtriser. Mais avec la fonctionnalité "Liste déroulante consultable" de Kutools pour Excel, vous pouvez facilement activer l'autocomplétion pour les listes déroulantes de validation des données dans une plage spécifiée en seulement 2 secondes. De plus, cette fonctionnalité est disponible pour toutes les versions d'Excel.

1. Pour activer l'autocomplétion dans vos listes déroulantes, commencez par sélectionner la plage contenant les listes déroulantes. Ensuite, accédez à l'onglet "Kutools", choisissez "Liste déroulante" > "Rendre la liste déroulante consultable, Auto-popup."
2. Dans la boîte de dialogue "Rendre la liste déroulante consultable", cliquez sur le bouton "OK" pour enregistrer le paramètre.

Résultat

Une fois la configuration terminée, cliquer sur une cellule de liste déroulante dans la plage spécifiée fera apparaître une liste déroulante. Lorsque vous entrez des caractères, dès qu'un élément correspond exactement, le mot entier est immédiatement mis en surbrillance dans la liste déroulante et peut être inséré dans la cellule de la liste déroulante simplement en appuyant sur la touche Entrée.

Articles connexes :