effacer le contenu d'une cellule

Q

QEUMARH

Guest

• 14 Juillet 2007

• #16

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

 

Vote positif 0 Vote négatif

Q

QEUMARH

Guest

• 14 Juillet 2007

• #17

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Juillet 2007

• #18

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​

Cliquez pour agrandir...

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

 

Dernière édition: 14 Juillet 2007

Vote positif 0 Vote négatif

Q

QEUMARH

Guest

• 14 Juillet 2007

• #19

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Juillet 2007

• #20

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é)

 

Dernière édition: 14 Juillet 2007

Vote positif 0 Vote négatif

Q

QEUMARH

Guest

• 14 Juillet 2007

• #21

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é.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 14 Juillet 2007

• #22

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+

 

Vote positif 0 Vote négatif

Q

QEUMARH

Guest

• 14 Juillet 2007

• #23

Re : effacer le contenu d'une cellule

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 14 Juillet 2007

• #24

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

Cliquez pour agrandir...

A+

 

Vote positif 0 Vote négatif