Re : recherche sans sélectionner
Bonjour Ziopizza,
Je ne comprends pas bien la question mais s'il s'agit d'améliorer le code, je te propose cette macro :
Option Explicit ' Pour éviter de ne pas déclarer les variables
Sub RechercheMot()
Dim Plage As Range, Cel As Range, N As Byte
Application.ScreenUpdating = False ' Pour afficher qu'en fin de macro
' Effacement des résultats précédents
With Sheets("Feuil1") ' Précise la feuille de travail
.Range("A2:A30").ClearContents
Set Plage = .Range("B2:C30") ' Plage de recherche
For Each Cel In Plage
If Cel = .Range("A1").Value Then
N = N + 1
.Range("A" & N + 2).Value = "Mot dans le cellule " & Cel.Address(0, 0) 'Adresse des celulles trouvés
Cel.Font.ColorIndex = 3 'Juste pour faire ressortir les mots trouvés
Else
Cel.Font.ColorIndex = xlAutomatic
End If
Next Cel
.Range("A2").Value = "Nombre de mots trouvé " & N 'Total des mots trouvés
.Range("A1").Select
End With
Application.ScreenUpdating = True
End Sub
Cordialement
Bernard