Comment effectuer une saisie semi-automatique lors de la saisie dans la liste déroulante Excel?

Si vous avez une liste déroulante de validation de données avec des éléments volumineux, vous devez faire défiler la liste vers le haut et vers le bas juste pour trouver le bon, ou taper le mot entier directement dans la zone de liste. S'il existe une méthode permettant de compléter automatiquement lors de la saisie de la première lettre dans la liste déroulante, tout deviendra plus facile. Ce didacticiel fournira une méthode VBA pour vous aider à y parvenir.

Saisie semi-automatique lors de la saisie dans la liste déroulante avec le code VBA
Plus de tutoriels pour la liste déroulante ...

Saisie semi-automatique lors de la saisie dans la liste déroulante avec le code VBA

Veuillez procéder comme suit pour créer une liste déroulante automatiquement après avoir tapé les lettres correspondantes dans la cellule.

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

1. Ouvrez la feuille de calcul qui contient la cellule de la liste déroulante que vous souhaitez effectuer automatiquement.

2. Avant d'insérer une zone de liste déroulante, vous devez ajouter l'onglet Développeur au ruban Excel. Si l'onglet Développeur s'affiche sur votre ruban, passer à l'étape 3. Sinon, procédez comme suit: Cliquez sur Déposez le > Les options ouvrir le Les options la fenêtre. Dans ce Options Excel fenêtre, cliquez sur Personnaliser le ruban dans le volet gauche, vérifiez le Promoteurs , puis cliquez sur le OK bouton. Voir la capture d'écran:

3. Cliquez Promoteurs > insérer > Zone de liste déroulante (contrôle ActiveX).

4. Dessinez une zone de liste déroulante dans la feuille de calcul actuelle. Faites un clic droit dessus puis sélectionnez Propriétés dans le menu contextuel.

5. dans le Propriétés boîte de dialogue, veuillez remplacer le texte original dans le (Nom) terrain avec TempCombo.

6. Éteignez le Mode de conception en cliquant Promoteurs > Mode de conception.

Ensuite, appliquez le code VBA ci-dessous

7. Cliquez avec le bouton droit sur l'onglet de la feuille actuelle et cliquez sur Voir le code dans le menu contextuel. Voir la capture d'écran:

8. Dans l'ouverture Microsoft Visual Basic pour applications , veuillez copier et coller le code VBA ci-dessous dans la fenêtre Code de la feuille de calcul.

Code VBA: saisie semi-automatique lors de la saisie dans la 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

9. presse autre + Q touches simultanément pour fermer le Applications Microsoft Visual Basic fenêtre.

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

Note : Ce code ne fonctionne pas pour les cellules fusionnées.

Articles Liés:

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

• Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
• Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
• Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
• Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
• Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
• Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
• Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
• Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
• Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.

Lire la suite... Téléchargement Gratuit... Achat... 

---

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

• Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
• Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
• Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!

Lire la suite... Téléchargement Gratuit... Achat...