formule dans une meme cellule que le renseignement

[BLACKHAYES]

Bonjour le forum,

Voila j'expose mon probleme et ma demande,

Je voudrais savoir comment fait on pour ecrire une formule dans une cellule et pouvoir ensuite rentrer une valeur dans cette meme cellule sans ecraser la formule.

Exemple dans fichier joint (la formule ecrite est celle qui doit etre dans la cellule invisible)

je voudrais que quand je tape la valeur "-" (sigle moins) dans cette cellule il s'y affiche "*****";

mais je ne voudrais pas de code vba, sauf si cela est obligatoire

cette cellule est inserer dans un tableau que l'on renseigne a plusieurs employés, d'ou ma demande sans code;

Merci d'avance

 

[job75]

Re : formule dans une meme cellule que le renseignement

Bonsoir,

mais je ne voudrais pas de code vba, sauf si cela est obligatoire

C'est obligatoire :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
[E6] = IIf([E6].Text = "-" Or [E6].Text = "*****", "*****", "")
Application.EnableEvents = True
End Sub

A+

 

[BLACKHAYES]

Re : formule dans une meme cellule que le renseignement

BONJOUR JOB 75,

ok merci pour votre aide, je vais donc procédé comme indiqué.

merci a vous pour votre travail,

a bientot

 

[BLACKHAYES]

Re : formule dans une meme cellule que le renseignement

Bonsoir,



C'est obligatoire :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
[E6] = IIf([E6].Text = "-" Or [E6].Text = "*****", "*****", "")
Application.EnableEvents = True
End Sub

A+

UNE derniere question pour faire ce code non pas sur E6 seulement, mais de E10 a E150 par exemple ,

merci d'avance

 

[job75]

Re : formule dans une meme cellule que le renseignement

Re,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Target, [E10:E150])
If Not r Is Nothing Then
  Application.EnableEvents = False
  For Each r In r 'si plusieurs cellules
    r = IIf(r.Text = "-" Or r.Text = "*****", "*****", "")
  Next
  Application.EnableEvents = True
End If
End Sub

A+