Affiche Userform si mot non trouve dans Textbox

Version imprimable

05/11/2012, 22h39
stephadm

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

Bonjour,

A adpater, ici sur Exit du TextBox1 :

Code:

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é.

06/11/2012, 09h04
stephadm

Bonjour Theze et au forum

Pouvez-vous m'expliquer ce code ?

Code:

Set Plage = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))

Merci

Stephanie
06/11/2012, 09h58
Theze
Re,

En le remettant dans son contexte :
Code:

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é.
06/11/2012, 10h01
stephadm

Bonjour Theze et au forum

Merci Theze pour vos éclaircissements

C'est bon, j'ai compris

Stephanie