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

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.

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

 
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...                        
 

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 :

 
No problemo