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

valeur 0 et macro

  • Initiateur de la discussion Initiateur de la discussion toubib
  • 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 !

T

toubib

Guest
bonjour à tous,

au sein d'une macro je dois changer toutes les cellules dont la valeur est 0 en #N/A malheureusement avec le code que j'ai fait ca remplace tous les 0, je me retrouve par exemple avec des 90 qui ressemblent à ça: 9#N/A et en plus ca plante :s

quelqu'un voit ce qui plante?:


Dim m As Variant
For Each m In selection
If m.Value = 0 Then
selection.Replace what:='0', replacement:='#N/A'
End If
Next m
 
Bonjour

Déjà je declarerais m as range

et ton erreur vient de cette ligne

selection.Replace what:='0', replacement:='#N/A'

il faut

m.Replace what:='0', replacement:='#N/A'

sinon tu remplaces les 0 de toute ta selection

Bon courage
 
bonjour,

écrit le plus simplement

Dim m As Variant
For Each m In Selection
If m.Value = 0 Then
m.Value = '#N/A'
End If
Next m


ou fait l'équivalent de CTRL+H (remplacer)

Selection.Replace What:='0', Replacement:=''#N/A', LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False


salut
 
bonjour,

écrit le plus simplement

Dim m As Variant
For Each m In Selection
If m.Value = 0 Then
m.Value = '#N/A'
End If
Next m


ou fait l'équivalent de CTRL+H (remplacer)

Selection.Replace What:='0', Replacement:=''#N/A', LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False


salut
 
bonjour gibi,

merci pour ta réponse mais sache juste que t'as deuxième technique ne marche pas, ca remplace tous les 0 c'est pour ça que j'avais fait 'compliqué'

merci 🙂
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
7
Affichages
829
Réponses
5
Affichages
748
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…