XL 2013 Macro pour qu'une cellule soit vide

R

Rouge

XLDnaute Impliqué

• 17 Juin 2021

• #2

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

 

Vote positif 0 Vote négatif

lestoiles1

XLDnaute Occasionnel

• 17 Juin 2021

• #3

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

 

Vote positif 0 Vote négatif

R

Rouge

XLDnaute Impliqué

• 17 Juin 2021

• #4

Regardez si cela convient

Cdlt

 

Pièces jointes

• lestoiles_Macro pour qu'une cellule soit vide.xlsm

  15.7 KB · Affichages: 4

Vote positif 0 Vote négatif

lestoiles1

XLDnaute Occasionnel

• 17 Juin 2021

• #5

Merci Rouge , ça marche

Rouge à dit:

Regardez si cela convient

Cdlt

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif