Comment "effacer" une cellule ?

[grotsblues]

Bonjour,

dans le fichier joint, je n'arrive pas à faire disparaître le chiffre et le format de cellule inscrit en D1 si B1 = NON ?
Pas de problème en C1, mais je suis obligé de laisser l'utilisateur du fichier incrire manuellement le nbre de kms en D1.
Quelqu'un a-t-il une solution à me proposer ?

Merci d'avance
grotsblues

 

[phlaurent55]

Re : Comment "effacer" une cellule ?

Bonjour grotsblues,

en ajoutant une MFC sur D1
voir fichier joint

à+
Philippe

 

[grotsblues]

Re : Comment "effacer" une cellule ?

Merci Philippe de ta réponse,
mais problème, la valeur de la cellule en D1 est conservée alors que je ne le souhaite pas ?
Comment faire ?
As-tu une solution ?
A+

 

[Gardien de phare]

Re : Comment "effacer" une cellule ?

Bonsoir,

Avec une procédure événementielle...

HTH

 

[Regueiro]

Re : Comment "effacer" une cellule ?

Bonsoir à Tous.
Avec une procédure évenementielle dans la feuille "Feuill1"
Pour voir le Code VBA
ALT + F11

A+

 

[grotsblues]

Re : Comment "effacer" une cellule ?

Merci Gardien de phare et Regueiro
Cela fonctionne exactement comme je voulais.
Bonne année à vous et à bientôt.
grotsblues

 

[grotsblues]

Re : Comment "effacer" une cellule ? V2

Bonjour à vous,

après modification de mon fichier, je n'arrive pas à adapter la formule de Gardien de Phare sur la ligne du dessous ?
Si E5=NON alors G5 s'efface bien mais çà ne fonctione pas si E6=NON, G6 ne s'efface pas ?
Fichier ci-joint
Pouvez vous me dire ce qu'il manque ?
Merci et bonne journée
grotsblues

 

[phlaurent55]

Re : Comment "effacer" une cellule ?

Bonjour à tous,

avec ce code

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E5:E6")) Is Nothing Then Exit Sub
If Target.Value = "NON" Then Cells(Target.Row, 7).ClearContents
End Sub

à+
Philippe

 

[grotsblues]

Re : Comment "effacer" une cellule ?

Merci Philippe
çà fonctionne bien. Je me bornais à essayer de désigner des cellules alors qu'il fallait choisir la colonne.
Merci encore
grotsblues

 

[Regueiro]

Re : Comment "effacer" une cellule ?

Bonsoir à Tous
grotblues
Voici en PJ le même fichier que sur le Post N°5
Regarde dans l'onglet "Version 2"
Bonne soirée
A+