[-RESOLUTO-]Confirmation de la recherche dans un TextBox

Ilino · 4 Janvier 2015

Bonsoir Forum
Je souhaite chercher une valeur dans la colonne C de la feuille "Contrats" via un TextBox1 d’un USF et afficher la confirmation de la recherche dans un TextBox2.
Example:
Si la valeur saisie dans le TextBox1 existe dans la colonne C de la feuille "Contrats"
alors afficher dans le TextBox2 : Contrat existe
si non : Contrat non inscrit
GRAZIE

Ilino · 4 Janvier 2015

Re : Confirmation de la recherche dans un TextBox

Bonsoir Forum et Bon début de semaine
est ce que mon souci est clair??
GRAZIE

job75 · 5 Janvier 2015

Re : Confirmation de la recherche dans un TextBox

Bonjour Ilino,

Code:

Private Sub TextBox1_Change()
TextBox2 = "Contrat " & IIf(Application.CountIf(Range("C2:C" & Rows.Count), TextBox1), "existe", "non inscrit")
End Sub

ou :

Code:

Private Sub TextBox1_Change()
With Sheets("Contrats")
TextBox2 = "Contrat " & IIf(Application.CountIf(.Range("C2:C" & .Rows.Count), TextBox1), "existe", "non inscrit")
End With
End Sub

Assez élémentaire non ?

Bonne journée.

Ilino · 5 Janvier 2015

Re : Confirmation de la recherche dans un TextBox

Bonjour MAITRE
oUI Merci pour la réponse, mais si le TextBox1 est vide il s'afiche dans le TextBox2 Contrat existe ??
Grazie maitre

Ilino · 5 Janvier 2015

Re : Confirmation de la recherche dans un TextBox

job75 à dit:

Bonjour Ilino,

Code:

Private Sub TextBox1_Change()
TextBox2 = "Contrat " & IIf(Application.CountIf(Range("C2:C" & Rows.Count), TextBox1), "existe", "non inscrit")
End Sub

ou :

Code:

Private Sub TextBox1_Change()
With Sheets("Contrats")
TextBox2 = "Contrat " & IIf(Application.CountIf(.Range("C2:C" & .Rows.Count), TextBox1), "existe", "non inscrit")
End With
End Sub

Assez élémentaire non ?

Bonne journée.

Re
si tu permet j'ai ajouter a ton code (2eme) le code suivant : If TextBox1.Value = "" Then TextBox2.Value = ""

Code:

Private Sub TextBox1_Change()
With Sheets("Contrats")
TextBox2 = "Contrat " & IIf(Application.CountIf(.Range("C2:C" & .Rows.Count), TextBox1), "existe", "non inscrit")
If TextBox1.Value = "" Then TextBox2.Value = ""
End With
End Sub

Assez élémentaire non ?
GRAZIE MAITRE
PBLM RESOLUTO

job75 · 5 Janvier 2015

Re : Confirmation de la recherche dans un TextBox

Re,

Ilino à dit:
mais si le TextBox1 est vide il s'afiche dans le TextBox2 Contrat existe ??

Tu dois être capable de faire ce qu'il faut [Edit] eh oui, tu l'as fait, mais enlève les .Value totalement inutiles.

A+

[-RESOLUTO-]Confirmation de la recherche dans un TextBox

Ilino

XLDnaute Barbatruc

Pièces jointes

Ilino

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

Ilino

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires