Recherche d'une valeur dans une autre feuiile

Bonsoir

J'utilise la macro suivante pour rechercher une valeur

Sub recherche()

Dim Mot As Variant

Dim AddresseMot As String

With Sheets("64_4t").Range("ai7:ao43")

Set Mot = .Find(Sheets("resultat").Range("bo1").Value, LookIn:=xlValues)

If Not Mot Is Nothing Then

AddresseMot = Mot.Address

Do

Mot.Interior.ColorIndex = 44

Set Mot = .FindNext(Mot)

Loop While Not Mot Is Nothing And Mot.Address <> AddresseMot

End If

End With

End Sub

si en "bo1" j'ai la valeur 22 seule la cellule ayant la valeur 22 sera sélectionnée en Sheets("64_4t")

si en "bo1" j'ai la valeur 2 toutes les cellules ayant le chiffre 2 sont sélectionnées - 12, 22, 23, 24, 32

Etant novice je ne trouve pas la correction afin que seule la cellule ayant la valeur 2 soit selectionnée

Merci pour votre aide

Pierre br

Salut pierre br,

il faut ajouter l'argument LookAt , essaie comme ca:

Sub recherche()
Dim Mot As Variant
Dim AddresseMot As String

With Sheets("64_4t").Range("ai7:ao43")
Set Mot = .Find(Sheets("resultat").Range("bo1").Value, LookIn:=xlValues, lookat:=xlWhole)
If Not Mot Is Nothing Then
AddresseMot = Mot.Address
Do
Mot.Interior.ColorIndex = 44
Set Mot = .FindNext(Mot)
Loop While Not Mot Is Nothing And Mot.Address <> AddresseMot
End If
End With
End Sub

Bonne nuit

Bonjour

Cela fonctionne

Merci pour le dépannage

Pierre br