XL 2013 Macro pour qu'une cellule soit vide

[lestoiles1]

Bonjour à tous,

Pouvez-vous me donner un macro comme condition suivante:

- Lorsque je tape "1234" dans une cellule dans la colonne A, celle-ci devient vide lorsque j'appuie sur "ENTER"

Merci d'avance pour votre réponse

Lestoiles1

 

[Rouge]

Bonjour,

Essayez ceci:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A2:A10000")) Is Nothing Then
        If Target.Value = "1234" Then Target.Value = ""
    End If
Sortie:
    Application.EnableEvents = True
End Sub

Cdlt

 

[lestoiles1]

Bonjour Rouge,

ça marche mais le problème c'est que j'ai déjà un autre macro dans la feuille et je ne sais pas comment les associer, c'est private sub worksheet-change egalement.

cordialement

Lestoiles

 

[Rouge]

Regardez si cela convient

Cdlt

 

[lestoiles1]

Merci Rouge , ça marche

Regardez si cela convient

Cdlt