Interdire saisie formule

tototiti2008 à dit:

... Je me permet de modifier un peu la proposition de 00... car on peut valider une formule sans changer de cellule... Et HasFormula car il y a plusieurs formules qui pourraient renvoyer le contenu de A1 🙂

Cliquez pour agrandir...

tototiti2008 à dit:

Bonjour papyjc, Bonjour 00 😉

Bienvenue sur XLD

Je me permet de modifier un peu la proposition de 00

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("B1").HasFormula Then Range("B1").ClearContents
End Sub

Change plutôt que SelectionChange car on peut valider une formule sans changer de cellule
Et HasFormula car il y a plusieurs formules qui pourraient renvoyer le contenu de A1 🙂

Cliquez pour agrandir...

doublezero à dit:

re-bonjour,

j'espère que le code ci-après n'est pas une ânerie 🙄...

Code:

private sub worksheet_change(byval target as range)
dim c as range
    for each c in range("b1:b10000")
        if c.hasformula then c.clearcontents
    next
end sub

a bientôt 🙂

Cliquez pour agrandir...