1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
|
Sub Recherche()
Worksheets("Base de Données").Activate
Dim cellule As Range
Dim j As Range
Dim i As Integer
Dim mot As String
mot = InputBox("VEUILLEZ SAISIR L'ELEMENT A RECHERCHER")
If mot = "" Then Exit Sub
i = 3
For Each cellule In Worksheets("Base de Données").Range("A1:D10000")
If UCASE(cellule.Value) Like "*" & UCASE(mot) & "*" Then
cellule.EntireRow.Copy Worksheets("Résultats").Range("A" & i)
i = i + 1
Set j = cellule
End If
Next
If j Is Nothing Then
MsgBox ("ELEMENT INTROUVABLE !")
Exit Sub
End If
Application.ExecuteExcel4Macro "SOUND.PLAY(,""C:\WINDOWS\MEDIA\gestloc.WAV"")"
Worksheets("Résultats").Select
End Sub |
Partager