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

code VBA pour Macro recherche et remplace

  • Initiateur de la discussion Initiateur de la discussion mavean
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mavean

XLDnaute Junior
Bonsoir

Dans un tableau (qui s'étend de I13 à M81) qui effectue des calculs (donc avec des formules).
J'ai des (zéro) soit rentré directement soit qui sont le résultat d'une formule).
j'aimerais attribué un bouton à une macro qui remplace toutes les cellules ayant un 0 (zéro) par une cellule vide.

J'ai essayé ce code
Sub Macro1()
Range("i13:m81").Select
Selection.Replace What:="0", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

qui marche la ou le zéro n'est pas le résultat d'une formule

Qui pour m'aider ?

Merci.
 
Re : code VBA pour Macro recherche et remplace

bonjour

sans VBA, dans les options Excel désactiver Valeurs Zéro, les "0" issus de saisie ou de formules n'apparaîtront plus.

Par contre sous XL2010, je ne sais pas exactement où ça se trouve .

A+
 
Re : code VBA pour Macro recherche et remplace

Bonjour à toutes et à tous,

Comme ceci ?

Code:
Option Explicit
Sub Zéro_zéro()
    Dim c As Range
    For Each c In Range("plage")    ' à adapter
        If c = 0 Then c = ""
    Next
End Sub

A bientôt 🙂
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
299
Réponses
2
Affichages
540
Réponses
3
Affichages
563
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…