XL 2010 Recherche de valeur via Boite de dialogue

[jokerfidelio]

Bonjour a tous,

Sur l'exemple donné en fichier joint, j'aimerais faire une recherche de nombre (peu importe le nombre)
Via une boite de dialogue qui permettrait dans un premier temps de demander le nombre recherché et de demander ensuite par qu'elle nombre on souhaiterait le remplacer.

Code utilisé :

Sub SelectionnerCellulesValeur()
Dim vValeur As Single
Dim vCellule As Object
Dim vSélection As String
vValeur = Val(InputBox("Valeur à sélectionner"))
Selection.CurrentRegion.Select
For Each vCellule In Selection
    If vCellule.value = vValeur Then vSélection = vSélection &
vCellule.Address & "."
Next
If Len(vSélection) > 0 Then
    Range(Left(vSélection, Len(vSélection) - 1)).Select
    Selection.Interior.ColorIndex = 6
End If
End Sub

a l’exécution du code j'ai un message d'erreur ligne 8

- J'aimerais aussi pouvoir incorporer une ligne pour sélectionner une plage reprécise de recherche

je vous remercie d'avance pour vos réponse

 

[Staple1600]

Re

Voir les commentaires dans le code du message#11
Voir également le PS de ce message#11

Es-tu sûr d'avoir tester CTRL+H en utilisant Options et Format?