Effacer contenu cellule suivant valeur autre cellule

[glm]

Bonjour le forum,
je cherche à éffacer le contenu de plusieurs cellules suivant la valeur d'une autre cellule
J'ai essayé ceci mais bug

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("D23") = 4 Then
Range("V32:V35").Value = 0
End_If
End Sub
Quelqu'un peut m'expliquer le pourquoi?
Merci
A+

 

[excalibur]

Re : Effacer contenu cellule suivant valeur autre cellule

bonjour glm le forum ca vient de end_if
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D23").Value = 4 Then
Range("v32:v35").Value = 0
End If
End Sub
salutations

 

[glm]

Re : Effacer contenu cellule suivant valeur autre cellule

Bonjour excalibur,
je ne comprends ce que tu veux dire
Il faut finir avec End_if...!?
j'ai même essayé cela
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Range("D23").Value = 4 Then
Target.Range("v32:v35").Value = 0
End_If
End_Sub
mais cela met la même erreur
A+

 

[Banzai64]

Re : Effacer contenu cellule suivant valeur autre cellule

Bonjour

Pas de _ dans End If ni dans End Sub

Désolé excalibur d'avoir répondu à ta place

 

[glm]

Re : Effacer contenu cellule suivant valeur autre cellule

Oh P.....!
je n'avais pas vu....
mais bon cela ne fait ce que je veux
J'explique:j'ai une toupie qui m'incrémente la cellule D23
et quand je viens incrémenter ma cellule D23 à 4 grace à la toupie
il ne reconnait pas le changement et ne mets pas à 0 les cellules V32:V35
Comment faire
Merci A+

 

[glm]

Re : Effacer contenu cellule suivant valeur autre cellule

J'ai trouvé, enfin je pense...
Private Sub Worksheet_Calculate()
au lieu de Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dites moi si je me trompe....?

 

[Banzai64]

Re : Effacer contenu cellule suivant valeur autre cellule

Bonjour

Pour comprendre le problème : 1 fichier (conditions habituelles) en indiquant ce que tu as et ce que tu veux obtenir

Cela ira plus vite pour trouver une solution (Enfin je le crois)

 

[excalibur]

Re : Effacer contenu cellule suivant valeur autre cellule

rebonjour comme le dit l ami Banzai pas de _ autrement erreur
tu plus simplifier comme cela
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [d23] = 4 Then [v32:v35] = 0
End Sub

target ne s emploie pas dans ce contexte

 

[glm]

Re : Effacer contenu cellule suivant valeur autre cellule

Désolé mais avec calculate cela m'a planté l'appli
car il calcule dès qu'il arrive sur une cellule ou il y a des formules!!
Pour cela je vous envoi un exemple
Merci encore de votre aide

 

[excalibur]

Re : Effacer contenu cellule suivant valeur autre cellule

re le fil bien dans ton code bouton tu mets
Sub Compteur2_QuandChangement()
If [c8] = 4 Then [e13] = 0 Else [e13] = "dede"
End Sub
salutations

 

[excalibur]

Re : Effacer contenu cellule suivant valeur autre cellule

re le fil je te renvoie ton fichier corrige
a adapter
salutations

 

[glm]

Re : Effacer contenu cellule suivant valeur autre cellule

Oui, oui...!!
je suis vraiment débutant
je m'obstinait à faire avec selection change...
Désolé
A+
Gilles