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 ' ajout automatique d'un tiret en 3ème et en 6ème position
recherche_cartes.Text = sSaisie & "-"
Exit Sub
End If
If Len(recherche_cartes.Text) < 9 Then Exit Sub ' les n° de cartes comportent 9 caractères numériques
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 |