Effacer automatiquement

[philmar]

Bonjour,

est il possible que des cellules B2 C2 E2 sur une feuille1 soient automatiquement effacées si une cellule A2 de la feuille BASE devient vide.
En effet c'est une base donnée de patients avec des champs nombreux, et quand on change de patient (nom dans BASE A2 et lié dans feuille1 A2), je voudrais que les informations soient automatiquement effacées dans B2 C2 E2
Je ne sais pas si c'est clair, mais envoyer ma base...elle fait près de 2Mo..

Bon week-end ensoleillé!

Philippe

 

[JCGL]

Re : Effacer automatiquement

Bonjour à tous,

Peux-tu essayer avec :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Sheets("Base").Range("A2") = "" Then Sheets("Feuil1").Range("B2:D2").ClearContents
End Sub

dans le module de la feuille "Base"

A+

 

[philmar]

Re : Effacer automatiquement

Bonjour, ça marche, bien sur! merci beaucoup!
et bon 1er mai
Philippe