recherche sans sélectionner

[ziopizza]

Bonjour le forum,
je joins un petit fichier avec un code de recherche dans une plage,qui fonctionne.
Je me demande s'il n'est pas possible de faire autrement que de sélectionner la plage pour optimiser le code.
Merci à tous.
Bonne journée Yves

 

[CBernardT]

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

 

[ziopizza]

Re : recherche sans sélectionner

Bonjour CBernardT,
Merci pour le code ,c'est tout à fait ce que je recherchais.
Salut Yves