Effacer plusieurs cellules sous condition

[nabucho]

Bonjour à tous,

Je vais essayer de faire simple dans mon explication.
Je travaille sur les cellules de la colonne A, de A1 à A8. Je dois mettre un "x" dans une de ces cellules au choix. J'aimerai qu'il soit possible d'effacer le "x" d'une cellule automatiquement dès que je mets "x" dans une autre (exemple : A1="x", je mets "x" dans A3, A1 deviens A1="").
J'ai essayé quelques macros mais je bloque. Merci de votre aide.

 

[Pierrot93]

Re : Effacer plusieurs cellules sous condition

Bonjour,

une seule cellule de la plage doit contenir un x, les autres rien ??? et si c'est le x qui est dans cette plage qui est effacé ?

bonne soirée
@+

 

[nabucho]

Re : Effacer plusieurs cellules sous condition

Bonjour Pierrot,

Oui, une seule cellule doit contenir un x et rien dans les autres. Si on efface le seul x dans la plage, il ne doit rien se passer (je n'ai pas prévu d'effacer une cellule manuellement vu que mettre x dans une cellule efface le x d'une autre cellule)

 

[Pierrot93]

Re : Effacer plusieurs cellules sous condition

Re,

essaye ceci, à placer dans le module de la feuille concernée :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A8")) Is Nothing Or Target.Count > 1 Then Exit Sub
If Target = "x" Then
    Application.EnableEvents = False
    Range("A1:A8").ClearContents
    Target = "x"
    Application.EnableEvents = True
End If
End Sub

bonne journée
@+

 

[nabucho]

Re : Effacer plusieurs cellules sous condition

Re Pierrot,

Un grand merci pour ta réponse rapide et efficace. Tout fonctionne

Bonne fin de journée