IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Saisie dans combobox [XL-2007]


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Février 2013
    Messages
    54
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Février 2013
    Messages : 54
    Par défaut Saisie dans combobox
    Bonjour à tous,

    J'ai un combobox avec une liste trop longue.
    Je veux donc pouvoir saisir ce que je veux dedans et que ce combobox me propose automatiquement les données de la liste qui peuvent correspondre.
    Par exemple, si je tape 20, qu'il me propose tout ce qui commence par 20. Si je tape 204, qu'il me propose tout ce qui commence par 204 etc.
    On m'a parlé des propriétés style, matchrequired et matchentry mais ça n'a pas l'air de fonctionner.
    Pouvez vous m'aider svp ? Merci.

  2. #2
    Membre confirmé Avatar de midge
    Homme Profil pro
    Conseiller
    Inscrit en
    Juillet 2010
    Messages
    72
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Conseiller
    Secteur : Service public

    Informations forums :
    Inscription : Juillet 2010
    Messages : 72
    Par défaut
    Bonjour,
    Un début de réponse sur http://boisgontierjacques.free.fr

    sous la rubrique Listes en cascade et plus spécifiquement vers le classeur
    "Liste noms commençant par une lettre" (sans VBA) et voir les exemples à dispo pour l'utilisation de VBA ... mine d'infos à examiner comme je suis en train de le faire ... Espérant avoir été utile

  3. #3
    Membre chevronné
    Profil pro
    Inscrit en
    Novembre 2007
    Messages
    473
    Détails du profil
    Informations personnelles :
    Localisation : France, Vendée (Pays de la Loire)

    Informations forums :
    Inscription : Novembre 2007
    Messages : 473
    Par défaut
    Slt Flo et Midje

    Je pense que la version Like fonctionne un exemple, mais reste à vérifier et surtout à adapter car ici je fonctionne avec des ListBox :
    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
    Sub Macro1()
    Dim i, K, Y As Integer
     
     
        NbLgne = Sheets("feuil1").Range("a65000").End(xlUp).Row
     
    Application.ScreenUpdating = False 'désactive la mise à jour de l'écran
     
        ListBox1.Clear
     
     K = 0
     For Y = 0 To GL.ListBox3.ListCount - 1
     
     If GL.ListBox3.Selected(Y) = True Then
     For i = 2 To NbLgne + 1
     
          If Cells(i, 6) Like GL.ListBox3.List(Y) & "*" Then
           GL.ListBox1.AddItem
           GL.ListBox1.List(K, 0) = Sheets("feuil1").Cells(i, 1)
           GL.ListBox1.List(K, 1) = "| " & Sheets("feuil1").Cells(i, 3) ' 2ème colonnes List1
     
        K = K + 1
     Next i
    End If
    Next Y
     
    Application.ScreenUpdating = True 'active la mise à jour de l'écran
     
    End Sub
    Il faut donc retirer la boucle "Y" et adapter pour des combobox

    a+

  4. #4
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut heu
    Bonsoir

    Naturellement quand tu tape un texte dans ta combo, sa te sélectionne l'item le plus proche

    maintenant si tu veux que ca te sélectionne plusieurs options possibles il va te falloir travailler avec 2 comboboxs ou listboxs

    ou alors avec une variable tableau
    et tu sur d'avoir besoins de ca

    Au plaisir
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  5. #5
    Membre chevronné
    Profil pro
    Inscrit en
    Novembre 2007
    Messages
    473
    Détails du profil
    Informations personnelles :
    Localisation : France, Vendée (Pays de la Loire)

    Informations forums :
    Inscription : Novembre 2007
    Messages : 473
    Par défaut
    Patrick bonjour !

    OK en tout cas c'est toi qui m'a aider pour ça et ça fonctionne très bien!

    au plaisir !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2003] Autoriser une nouvelle saisie dans Combobox
    Par mikadoo57 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 10/01/2013, 22h24
  2. [XL-2007] Controle de saisie dans combobox
    Par Gestionnaire_rh dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 17/04/2011, 15h33
  3. pre-saisie dans combobox ou textbox
    Par oscar.cesar dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 26/03/2008, 18h21
  4. Vitesse de saisie dans une combobox.
    Par Delphi-ne dans le forum Delphi
    Réponses: 2
    Dernier message: 12/10/2006, 13h17
  5. [VB6] Comment faire pour annuler la saisie dans un combobox ??
    Par Lucas42 dans le forum VB 6 et antérieur
    Réponses: 6
    Dernier message: 14/06/2006, 15h16

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo