jokerfidelio
XLDnaute Occasionnel
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é :
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
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é :
Code:
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 Suba 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