effacer le contenu d'une cellule

[QEUMARH]

Bonsoir a tous,

j'aimerai savoir si le petit programme suivant peut marcher (j'ai tester mais ca ne fais pas grand chose)

Sub efface()
If D1 = 1 Then
E1.ClearContents
End If
End Sub

ce qu'il faut savoir c'est que E1 est une cellule qui renvoit une liste de choix.

marc

 

[QEUMARH]

Re : effacer le contenu d'une cellule

en fait des que la valeur de D1 est modifiée (D1 peut prendre plusieur valeur)
automatiquement le contenu de E1 est effacé.

bref c'est une remise a zero si on veut

 

[QEUMARH]

Re : effacer le contenu d'une cellule

slt robert,

If target.Address = "$D$1" signifie si le contenu de D1 est modifié?

j'ai testé mais rien ne se passe meme s'il manquait le end if

 

[Staple1600]

Re : effacer le contenu d'une cellule

Bonjour

Je me permets de répondre à la place de Robert

qui lui-même a repondu à la place de JCGL 😉

Cela fonctionne quand tu saisis une valeur en D1 puis que tu valides ta saisie
par [ENTREE] par exemple

Private Sub Worksheet_Change(ByVal Target As Range)

If target.Address = "$D$1" Then Range("E1").ClearContents
End Sub​

If target.Address= si l'adresse de la cellule active

Et quand le If...Then tiens sur une seul ligne pas besoin de End If

edit:
tu peux aussi utiliser(ce qui revient au même)
If Target.Address = "$D$1" Then Target.Offset(, 1).ClearContents

 

[QEUMARH]

Re : effacer le contenu d'une cellule

slt Staple1600,

merci pour les infos
mais je ne suis toujours pas avancé car ce code ne marche pas.
bizarre, bizarre

 

[Staple1600]

Re : effacer le contenu d'une cellule

Re


Le code est bien dans la feuille (Feuil1)

Pas dans un module?

edit: théoriquement oui puisque tu as du voir la copie d'écran de JCGL ,non?


Ce code fonctionne (j'ai vérifié)

 

[QEUMARH]

Re : effacer le contenu d'une cellule

oui il est bien ds la feuille

chez toi, ca realise bien la bonne fonction. des que le contenu de la cellule D1 est modifié alors le contenu de la cellule E1 est effacé.

 

[JCGL]

Re : effacer le contenu d'une cellule

Re,
Re Staple,

QEUMARH : le code de Staple et donc de Robert 😉 fonctionne

Effacer E1 quand D1 est sélectionné, c'est bien ce que tu souhaites 😕

Ce n'est plus un fil mais une pelote...

A+

 

[QEUMARH]

Re : effacer le contenu d'une cellule

en fait il ne faut pas uniquement que D1 soit selectionné mais que le contenu soit modifié

 

[JCGL]

Re : effacer le contenu d'une cellule

Re,

Essaye avec :

Private Sub Worksheet_Change(ByVal Target As Range)
If [D1].Value <> "" Then [E1].ClearContents
End Sub

A+