bonjour,

j'ai cette commande dans ma feuille excel que je voudrais validé par entrer plutôt que cela cherche tout seul...
serait il possible de m'indiquer comment faire plz ?

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
Private Sub recherche_cartes_Change()
Dim rg As Range, sSaisie As String
sSaisie = recherche_cartes.Text
If sSaisie Like "##" Or sSaisie Like "##-##" Then
    recherche_cartes.Text = sSaisie & "-"
    Exit Sub
End If
If Len(recherche_cartes.Text) < 9 Then Exit Sub
Set rg = Range("A7:A500").Find(sSaisie, LookIn:=xlValues, LookAt:=xlWhole)
    If Not rg Is Nothing Then
        MsgBox ("Trouvé !")
    Else
        MsgBox ("pas trouvé !")
        recherche_cartes.Text = ""
    End If
End Sub

Merci et bonne soirée a tous