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 :

[VBA-E]UserForm + vlookup + fenêtre


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2007
    Messages
    38
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2007
    Messages : 38
    Par défaut [VBA-E]UserForm + vlookup + fenêtre
    Bonjour,

    j'ai un formulaire avec un premier textbox. Lorsque je rentre quelque chose dedant (correspond à un identifiant), il va faire une recherchev sur une feuille excel du même classeur et remplit les labels du formulaire correspondant.

    Cependant, il peut arriver qu'à l'identifiant rentrer dans le textbox corresponde plusieurs résultats de recherche.

    Ce que je voudrais faire, c'est quand il n'y a qu'une réponse possible, les labels se renseignent tous seuls. Par contre, si il existe plusieurs réponses, une fenêtre s'ouvre et me demande laquelle choisir. Un clic sur celle retenue et les labels correspondant se renseignent tout seul.

    Voilà, j'espère que j'ai été assez clair...en vous remerciant

  2. #2
    Membre éprouvé Avatar de cwain
    Profil pro
    Inscrit en
    Mars 2006
    Messages
    218
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 218
    Par défaut
    Hello,
    je ne sais pas (je ne crois pas) que le RECHERCHEV d'Excel puisse proposer plusieurs solutions si plusieurs résultats, c'est bien dommage d'ailleurs
    Ce que tu peux faire, c'est le faire à l'ancienne, avec une boucle, du genre
    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
    Dim ZorGlub()
    NbVal=0
    While ActiveCell <> "FinDuTableau"
        If ActiveCell.Value = "ValeurCherchée" Then
            NbVal = NbVal + 1
        End If
        Activecell.Offset(1,0).Activate
    Wend
    Redim Zorglub(NbVal)
    NbVal=0
    Cells(coordonnées du début).Activate
    While ActiveCell <> "FinDuTableau"
        If ActiveCell.Value = "ValeurCherchée" Then
            NbVal = NbVal + 1
            Zorglub(NbVal)=ActiveCell.Value
        End If
        Activecell.Offset(1,0).Activate
    Wend
    J'entend d'ici les chantres de l'optimisation de code fustiger le fait que j'utilise deux fois la même boucle Je n'ai hélas pas trouvé de solution pour récupérer les valeurs dans une même variable (le Redim efface toutes les valeurs récupérées avant)

Discussions similaires

  1. [VBA-E]Userform qui "plante"
    Par Elstak dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 02/05/2006, 11h33
  2. [VBA-E]UserFOrm
    Par malloc_92 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 12/04/2006, 15h24
  3. [VBA-E]Userform et transfert de variable
    Par Yanos dans le forum Macros et VBA Excel
    Réponses: 17
    Dernier message: 27/03/2006, 09h16
  4. [VBA-E] userform TextBox
    Par mulanzia2003 dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 25/03/2006, 09h18
  5. [VBA Excel] Libération de fenêtres
    Par thulvar dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 05/01/2006, 12h15

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