macro pour effacer le contenu d'une cellule

[meldja]

Bonjour,
Hier j'ai vu une question sur ce forum qui m'a intéressée. En fait, la personne voulait une liste déroulante dont le contenu varie selon le choix d'une autre liste déroulante.
Il voulait également que lorsque l'on sélectionne une valeur dans la première liste déroulante (celle qui conditionne la seconde liste déroulante), automatique, la seconde liste déroulante affiche "" (rien).
J'ai fait des recherches pour voir si c'était possible mais je n'ai pas trouvé. J'ai essayé de bidouiller des codes qui permettent d'effacer la valeur d'une cellule sous conditions du style :
si A1 =1 alors ClearContents B1

Je récapitule ce que je cherche :
une macro qui efface le contenu d'une cellule (B1) si le contenu d'une autre cellule (A1) change.

voici ce que j'ai trouvé sur ce forum mais qui ne marche pas :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "a1" Then
Range("b1").ClearContents
End If
End Sub

Merci et désolé si le sujet a déjà été traité

 

[meldja]

Re : macro pour effacer le contenu d'une cellule

Re,
En fait je pense que si j'arrivais à modifier cette macro (que j'ai trouvé ici d'ailleurs), ça pourrai le faire :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Value <> 1 Then
Range("B1").ClearContents
End If
End Sub

Il faudrait juste modifier la ligne :
If Range("A1").Value <> 1 Then

pour lui demander : Si la valeur de la cellule A1 change Then
Je ne sais pas comment faire,
si quelqu'un connait, merci

 

[ninbihan]

Re : macro pour effacer le contenu d'une cellule

Bonjour Meldja

J'ai testé ceci:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Range("B1").ClearContents
End Sub

Et cela semble correspondre à ta demande,

Bon dimanche,

Ninbihan

 

[meldja]

Re : macro pour effacer le contenu d'une cellule

Merci nickel,
C'est fou comme c'est compliqué,
ta macro fonctionne alors qu'elle est pratiquement identique à celle que j'avais mis dans mon premier post : Private Sub Worksheet_SelectionChange(ByVal Target As Range)

sauf que ton code est Worsheet_Change
Je ne pensais pas non plus que les $ avaient autant d'importance dans ton code mais apparemment, si je les enlève ça ne marche plus,
Merci pour ta réponse.