Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1585 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Remplacer la valeur 0 par un blanc ou tiret

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Remplacer la valeur 0 par un blanc ou tiret

n°2033687
Coellophys​is
Posté le 02-11-2010 à 20:44:11  profilanswer
 

Bonsoir,  
 
J'ai une macro qui rempli des valeurs numériques mais, dans un but plus "estétique", je souhaiterai avoir un blanc ou un tiret à la place de zéro.  
 
Comment puis-je faire S.V.P? merci
 
Bien à vous
 
Coellophysis

mood
Publicité
Posté le 02-11-2010 à 20:44:11  profilanswer
 

n°2033691
olivthill
Posté le 02-11-2010 à 21:12:09  profilanswer
 

Je suppose que c'est pour Exel. De toutes manières c'est presque pareil pour Access et VB.
 
Il faut choisir un format de cellule qui fait cela. Si ça n'existe pas en standard, faîtes un format personnalisé en vous inspirant du format pour les numéros de téléphone.

n°2033859
Xxxaaavvv
Posté le 03-11-2010 à 17:43:56  profilanswer
 

un exemple de ce que tu veux ?
 
la valeur est "0000000378"
et tu veux "-------378" ?
 
 
en VB la fonction suivante :
replace("0000000378","0","-" )
va rendre "-------378"

n°2034543
Coellophys​is
Posté le 07-11-2010 à 22:10:28  profilanswer
 

Xxxaaavvv a écrit :

un exemple de ce que tu veux ?
 
la valeur est "0000000378"
et tu veux "-------378" ?
 
 
en VB la fonction suivante :
replace("0000000378","0","-" )
va rendre "-------378"


 
 
Bonsoir, je ne suis pas très familier avec la fc "Replace" en VBA, ça ne marche pas, je vous montre ma macro:
 
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Quotes!C[-3]:C[11],5,FALSE)*3"  
                        If ActiveCell.FormulaR1C1 = 0 Then
                        ActiveCell.FormulaR1C1 = Replace("0", 1, 1, "-" )
                         
                        End If
 
Je vous remercie d'avance

n°2034770
Xxxaaavvv
Posté le 08-11-2010 à 17:53:12  profilanswer
 

Coellophysis a écrit :


 
 
Bonsoir, je ne suis pas très familier avec la fc "Replace" en VBA, ça ne marche pas, je vous montre ma macro:
 
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Quotes!C[-3]:C[11],5,FALSE)*3"  
                        If ActiveCell.FormulaR1C1 = 0 Then
                        ActiveCell.FormulaR1C1 = Replace("0", 1, 1, "-" )
                         
                        End If
 
Je vous remercie d'avance


 
Premièrement je suppose que ceci :  
 
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Quotes!C[-3]:C[11],5,FALSE)*3"
 
est la formule qui te donne une valeur ?
puis que cette valeur tu veux la traiter ...
donc :
 
ActiveCell.Value= Replace(ActiveCell.Value,"0", "-" )
 
le If que tu a mis semble ne servir a rien...                        
 

n°2034968
dje69r
Arme de distraction massive
Posté le 09-11-2010 à 14:11:30  profilanswer
 

C'est pas une bonne idée Xxxaaavvv, justement le If est important...
 
Dans ton cas avec une valeur : 00000003708
Ca donnerait : -------37-8
 
Ouch...
 
Alors qu'avec :

Code :
  1. ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Quotes!C[-3]:C[11],5,FALSE)*3" 
  2.    If ActiveCell.Value = 0 Then ActiveCell = "-"

 
No problemo


---------------
Plus tu pédales moins vite, moins tu avances plus vite — SuperLoustic ! La radio des Loustics !

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Remplacer la valeur 0 par un blanc ou tiret

 

Sujets relatifs
Comment remplacer un caractère dans une très longue listeRemplacer URL par LIEN cliquable via REGEX
Obtenir la valeur d'une url ?afficher valeur tableau echo' '
valeur par défaut[MySQL/PHP] Précision du Like '%valeur%' ??
Ecire et remplacer caractère dans un fichier txtRécupérer une valeur retournée par une fonction appellée par un event
Récupérer la valeur d'un bouton radio en JSMoyen le plus simple de modifier/remplacer ?
Plus de sujets relatifs à : Remplacer la valeur 0 par un blanc ou tiret


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR