XL 2019 VBA rechercher et effacer les valeurs inférieures à une valeur spécifique

[ftpo69]

Bonjour,
J'essaye en VBA de rechercher dans une feuille de calcul les valeurs inférieures à 20 et à les effacer, en spécifiant dans une boite de dialogue la plage de recherche.
J'ai trouvé dans un forum un code que je n'arrive pas à adapter.
Pouvez-vous m'aider? Merci

Sub FindReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
If Rng.Value < 20 Then
Rng.Value = 0
End If
Next
End Sub

 

[st007]

bonjour
Ce code fonctionne parfaitement
Soit en sélectionnant une zone, puis clic bouton et enter
ou clic bouton et indiquer la zone à effacer, puis enter

 

[vgendron]

Bonjour

qu'essaies tu d'adapter ??
qu'est ce qui ne "fonctionne'" pas dans le code ci dessus??
à part la ligne "Set WorkRng = Application.Selection" qui ne sert à rien puisque que tu refais un set WorkRng juste en dessous..
un fichier exemple serait bienvenu

 

[ftpo69]

bonjour
Ce code fonctionne parfaitement
Soit en sélectionnant une zone, puis clic bouton et enter
ou clic bouton et indiquer la zone à effacer, puis enter

Merci pour votre réponse. En effet, comme cela cela fonctionne.