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 :

Affiche Userform si mot non trouve dans Textbox [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Mars 2009
    Messages
    241
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2009
    Messages : 241
    Par défaut Affiche Userform si mot non trouve dans Textbox
    Bonsoir au forum,

    Je souhaite ouvrir un UserForm2 si le mot n'existe pas dans la colonne B de la feuille 3 en remplissant Textbox de UserForm1

    Exemple : tape mot "légume" dans TxtBoxProduit de l'UserForm1, si celui-ci existe en "feuille3 colonne B" alors Exit Sub sinon ouvre UserForm2

    Comment on fait ?

    Merci

    Stephanie

  2. #2
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    Bonjour,

    A adpater, ici sur Exit du TextBox1 :
    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
     
    Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
     
        Dim Plage As Range
        Dim Cel As Range
     
        'plage en colonne B à partir de B2
        With Worksheets("Feuil3")
     
            Set Plage = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))
     
        End With
     
        'recherche
        Set Cel = Plage.Find(TextBox1.Text, , xlValues, xlWhole)
     
        'si pas trouvé, affiche la form
        If Cel Is Nothing Then UserForm2.Show
     
    End Sub
    Hervé.

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Mars 2009
    Messages
    241
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2009
    Messages : 241
    Par défaut
    Bonjour Theze et au forum

    Pouvez-vous m'expliquer ce code ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set Plage = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))
    Merci

    Stephanie

  4. #4
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    Re,

    En le remettant dans son contexte :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    With Worksheets("Feuil3")
     
        Set Plage = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))
     
    End With
    Ce qui veut dire que la plage fait référence à la colonne B ".Cells(2, 2)" de la feuille "Feuil3" à partir de la ligne 2 ".Cells(2, 2)" jusqu'à la dernière cellule non vide en recherchant cette dernière depuis le bas de la colonne ".End(xlUp)"

    Hervé.

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Mars 2009
    Messages
    241
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2009
    Messages : 241
    Par défaut
    Bonjour Theze et au forum

    Merci Theze pour vos éclaircissements

    C'est bon, j'ai compris

    Stephanie

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

Discussions similaires

  1. recherche fulltext : mot non trouvé
    Par sam01 dans le forum Requêtes
    Réponses: 1
    Dernier message: 30/05/2006, 14h03
  2. Erreur de "Élément non trouvé dans cette collection"
    Par charleshbo dans le forum Access
    Réponses: 4
    Dernier message: 04/05/2006, 18h42
  3. Variable générale non trouvée dans une fonction
    Par mickael.be dans le forum Langage
    Réponses: 10
    Dernier message: 21/02/2006, 19h18
  4. [PHP-JS] Formulaire non trouvé dans une fonction
    Par philippe30 dans le forum Langage
    Réponses: 4
    Dernier message: 11/12/2005, 21h53

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