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
Partager