[-RESOLUTO-]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.

Cliquez pour agrandir...

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

Ilino à dit:

mais si le TextBox1 est vide il s'afiche dans le TextBox2 Contrat existe ??

Cliquez pour agrandir...