excel_symbole_€_cellule_vide Résolu/Fermé

Question

bonjour à tous et toutes, 
j'espere que vous allez  bien

je viens vers vous pour une petite question. 
afin de faciliter la compréhension de ma question voici le fichier : https://www.cjoint.com/?3DelLYdl422 

en b6:b10 , j'ai des cellules dans lesquelles peuvent venir des montants (j'écris  peuvent car parfois ce n'est pas le cas dans toutes)

lorsque je place un 0 ou un nombre dans une cellule, j'ai le symbole € qui apparaît. 
une fois qu'il n'y a pas de nombre dans la cellule, le symbole disparaît (normal)


je cherche à savoir c'est , existe-t-il un moyen pour faire en sorte que le symbole € reste visible dans la cellule indépendemmant du fait qu'il y a ou non qq chose dans la cellule. à mon sens ce n'est pas possible sauf si je laisse le zero. 
le problème c'est lorsque je dois effacer  le contenu de la feuille (c'est une feuille à utiliser pour différentes personnes),  j'efface bien entendu le zero et donc mon symbole € s'efface. 

l'objectif final étant de toujours voir les cellules dans lesquelles devraient venir un montant. 

je pense que ma requête est un peu veine mais..qui sait..j'attends votre avis.

tres belle journée 

berni///

Dracknard · Answer

Bonjour,

(je n'ais pas regardé ton fichier)

Pour le "codage" pour faire apparaître le "€" je ne sais pas.

Je te propose une autre solution moins compliqué

Si j'ai bien compris, tu veux que tous les utilisateurs sachent quels sont les cellules où il y aura des montant.

Est ce que mettre un "code couleur" (surlignage) sur ces cellules ne t'aiderai pas?

Exemple : b6 à b10 en vert pomme ^^

Bonne journée

benji71 · Answer

bonjour Dracknard, 

merci pour votre réponse et proposition. 
malheureusement non, ce "petit" tableau fait partie d'une feuille qui sera imprimée en N/B.

il est tres possible qu'il n'y ai pas de solution car je pense que ce que cherche est impossible mais je pose la question pour être sur.

merci à vous, 

tres bonne pm, 

berni///

jokimda · Answer

facile ton symbole tu fait copier coller et le met dans la case a moins que veuille absolument automatiser

ccm81 · Answer

Bonjour à tous

Peut être une solution qui pourrait te convenir mais via une macro!
https://www.cjoint.com/?3DemkTgbOGo

bonne suite

benji71 · Answer

Bonjour ccm81, 

plaisir de vous lire. 
j'espere que vous allez bien. 
j'ai bien pensé à la macro mais mes cellules ne sont pas côte à côte.
je retiens votre idée mais...

un tt grand merci à vous. 

berni//

ccm81 · Answer

Ce n'est pas vraiment un problème

Const plage1 = "A2:B4"
Const plage2 = "C5"

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, plage As Range
Set plage = Union(Range(plage1), Range(plage2))
If Not Intersect(Target, plage) Is Nothing Then
  For Each c In Target
    If Not Intersect(c, plage) Is Nothing Then
      If c.Value = "" Then c.Value = "€"
    End If
  Next c
End If
End Sub
cdlmt

gbinforme · Answer

Bonjour à tous,

Il me semble que vous vous compliquez la vie. Dans une cellule, tu mets le format suivant : 
0.00 €;-0.00 €;€ 
Tu saisis un 0 et tu n'as que € affiché. il te suffit de copier ta cellule dans toutes les cellules où tu souhaites ce format et la fonction est remplie. All good ? :)

Mike-31 · Answer

Salut,

Je pense comme Bginforme que je salue, mais en partant de son format, je saisirais ce format personnalié

0.00 €;-0.00 €;""

il est possible d'ajouter une couleur pour les valeurs négatives
0.00 €;[Rouge]-0.00 €;""

et pourquoi pas une pour les positives
[Bleu]0.00 €;[Rouge]-0.00 €;""

ccm81 · Answer

Les cellules modifiées par la macro sont uniquement celles qui sont déjà formatées au format monétaire "€" (et calées à droite si tu veux que le symbole € soit calé à droite lorsque la cellule est vide)     
Au passage on peut ajouter pour pas cher (en euros bien sûr) un petit bouton qui mettrait à "zeuro" ces cellules là     

Bonne journée et beaucoup d'euros à tous

gbinforme · Answer

Bonjour benji71 et tout le forum,

Comme apparemment tu tiens à ta macro, autant faire une macro qui t'efface correctement toute la plage concernée :

Public Sub effacer()
Dim elm As Range
For Each elm In Union(Range("I12:I48"), Range("L12:L48"))
    If Left(elm.Formula, 1) <> "=" _
        And InStr(1, elm.NumberFormatLocal, "€") > 0 Then elm.Value = 0
Next elm
End Sub 
Tu peux remplacer le zéro que j'ai mis par ton € mais tes calculs ne fonctionnent plus...

benji71 · Answer

Bonjour à tous, 

merci à tous de vous y être mis pour m'aider à trouver une solution. 
ça fait tjrs plaisir de voir qu'on peux compter sur plus perspicace et plus habille que soi-même. les "dinosaures" de ce site restent vraiment des gentlemans, merci à eux....ils se reconnaîtront (avec ou sans € :-)

très cdlmnt,

berni///

Excel_symbole_€_cellule_vide

11 réponses