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

 

[abc]

Re : effacer le contenu d'une cellule

Bonsoir,
macro faite avec l'enregistreur
Range("E1").Select
Selection.ClearContents
Range("E1").Select
Essayer avec enregitrer macro
A+

 

[JCGL]

Re : effacer le contenu d'une cellule

Bonsoir,

Peux-tu essayer avec :

Sub Efface()
If Range("D1").Value = 1 Then
Range("E1").ClearContents
End If
End Sub

Pas testé...

A+

Edit Salut abc pas vu


A+

 

[QEUMARH]

Re : effacer le contenu d'une cellule

merci de la reponse. en fait comment fait on pour enregistrer une macro. moi, j'ouvre le VBE et ensuite j'ecris le programme. c'est didderent?

 

[QEUMARH]

Re : effacer le contenu d'une cellule

merci JCGL ca marche nickel
je peux me permettre une autre question.
le resultat marche bien mais pour cela on doit ouvrir la macro.
est il possible d'obtenir le meme resultat mais sans rien faire, c'est a dire des que D1 = 1 alors automatiquement le contenu de E1 soit effacé

merci

 

[JCGL]

Re : effacer le contenu d'une cellule

Re,

A placer dans le module de la feuille concernée :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("D1").Value = "1" Then
Range("E1").ClearContents
End If
End Sub

A+

 

[QEUMARH]

Re : effacer le contenu d'une cellule

merci ca marche bien
tu es trop fort.

 

[QEUMARH]

Re : effacer le contenu d'une cellule

peux tu me dire a quoi correspond la premiere ligne et pourquoi on doit placer le code dans la feuille 1

 

[JCGL]

Re : effacer le contenu d'une cellule

Re,

C'est une macro évènementielle...

Pour faire simple :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Juste dans cette feuille dès que la valeur de la cellule change

alors appliquer le code

A+

 

[QEUMARH]

Re : effacer le contenu d'une cellule

Bonjour,

c'est encore moi. juste une petite question.

If Range("D1").Value = "1" Then
blablabla
ce code permet de faire blablabla si le contenu de la cellule D1 est egale a 1

je voudrais faire blablabla des que le contenu de la cellule D1 est modifié. il faut changer quoi dans le code?

merci
marc

 

[JCGL]

Re : effacer le contenu d'une cellule

Re,

C'est déjà le cas.
Peux-tu être plus explicite.

A+

 

[Robert]

Re : effacer le contenu d'une cellule

Bonjour le fil, bonjour le forum,


Mort de rire...

 

[QEUMARH]

Re : effacer le contenu d'une cellule

slt,

l'effacement du contenu de la cellule E1 ne se fait que si le contenu de la cellule D1 est egal a 1.

j'aimerai que l'effacement se fasse des que le contenu de la cellule D1 est modifié. (par exemple, le contenu passe de 5 a 3 ou de 21 a 6)


voila

 

[JCGL]

Re : effacer le contenu d'une cellule

Re,

Ta condition initiale était si D1 égale à 1 effacer E1

Que souhaites-tu maintenant...

Effacer E1 quelque soit la valeur de D1 : me mets pas de code ni de formule 😛

Effacer E1 si D1 différent de 1 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("D1").Value <> 1  Then
Range("E1").ClearContents
End If
End Sub

A+

 

[Robert]

Re : effacer le contenu d'une cellule

Bonjour le fil, bonjour le forum,​

Je me permets de répondre à la place de JCGL pour me faire pardonner...​

 [LEFT]Private Sub Worksheet_Change(ByVal Target As Range)
[LEFT]If target.Address = "$D$1" Then Range("E1").ClearContents
End Sub[/LEFT]

[/LEFT]


Édition :

Salut JCGL on s'est croisés