Dim t$, i As Variant
1 t = InputBox("Entrez... quelque chose...")
If t = "" Then Exit Sub
With Feuil4 'CodeName
i = Application.Match(t, .Range("A2:A" & .Rows.Count), 0)
End With
If IsError(i) Then GoTo 1
'---suite---
Dim t$, i As Variant
1 t = InputBox("Entrez... quelque chose...")
If t = "" Then Exit Sub
With Feuil4 'CodeName
i = Application.Match(t, .Range("A2:A" & .Rows.Count), 0)
End With
If IsError(i) Then MsgBox "Recommencez...": GoTo 1
'---suite---
Dim t$, i As Variant, m As String
m = "Entrez... quelque chose..."
1 t = InputBox(m)
If t = "" Then Exit Sub
With Feuil1 'CodeName
i = Application.Match(t, .Range("A2:A" & .Rows.Count), 0)
End With
If IsError(i) Then m = "Saisie précédente invalide...": GoTo 1