Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

ftpo69

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
 

Pièces jointes

  • Classeur1.xlsm
    25.9 KB · Affichages: 5

vgendron

XLDnaute Barbatruc
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…