XL 2013 Macro pour qu'une cellule soit vide

lestoiles1 · 17 Juin 2021

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 · 17 Juin 2021

Bonjour,

Essayez ceci:

VB:

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 · 17 Juin 2021

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 · 17 Juin 2021

Regardez si cela convient

Cdlt

lestoiles1 · 17 Juin 2021

Merci Rouge , ça marche

Rouge à dit:
Regardez si cela convient

Cdlt

XL 2013 Macro pour qu'une cellule soit vide

lestoiles1

XLDnaute Occasionnel

Pièces jointes

Rouge

XLDnaute Impliqué

lestoiles1

XLDnaute Occasionnel

Rouge

XLDnaute Impliqué

Pièces jointes

lestoiles1

XLDnaute Occasionnel

Discussions similaires