Problème avec SelectionChange

Bonjour,

Je voudrai pouvoir effacer la cellule B2 à chaque fois que je change le contenu de la cellule B1. Malheureusement avec:

Private sub worksheet SelectionChange (byval....)

' et tout le programme pour effacer le contenu de la cellule B1

end sub

Placé dans la feuille "Feuil1" et pas dans un module, cela ne fonction pas comme je veux car je ne sais pas comment lui dire de ne le faire que quand je change la valeur de B1 et pas quand je change des valeurs ailleurs.

En mettant une condition sur le contenu de B1 avant le changement qui s'écrit en A1 et qui execute l'effacement de B2 que si B1.value <> A1.value cela fonctionne.

Sauf que pour un problème de protection de feuille que je sais mettre et enlever en VBA dès qu'il sélectionne la cellue B2 pour l'effacer il recommence le private sub et avec la protection ça plante.

Alors comment faire pour que l'effacement ne s'opère qu'après le changement de B1 ?

Bonjour,

Je crois que la réponse à ta question se trouve quelque part sur ce forum, et plus précisément : ICI

Cordialement,

Merci beaucoup

Rechercher des sujets similaires à "probleme selectionchange"