Discussion :

[stephadm]

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

[Theze]

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

[stephadm]

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

[Theze]

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

[stephadm]

Bonjour Theze et au forum

Merci Theze pour vos éclaircissements

C'est bon, j'ai compris

Stephanie