Interdire saisie formule

[papyjc]

Bonjour à tous et bonne année 2012

Nouveau sur ce forum, je bute sur le problème du type suivant

La cellule A1 contient un mot (exemple : le mot "fruit") et cette cellule sera masquée et verrouillée
Le mot est en fait la réponse à une question

L'utilisateur devra saisir la réponse à cette question dans la cellule b1 par exemple

Comment empêcher l'utilisateur de tricher en tapant en b1 la formule =a1 pour obtenir la réponse, tout en lui laissant bien sûr la possibilité de taper vraiment le mot "fruit" s'il a deviné la réponse ?

Merci beaucoup d'avance de votre aide

 

[DoubleZero]

Re : Interdire saisie formule

Bonjour à toutes et à tous,

Bienvenue sur XLD, papyjc !

Peut-être ainsi (code à adapter et placer dans le module de l'onglet) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("b1").FormulaR1C1 = "=RC[-1]" Then Range("b1").ClearContents
End Sub

A bientôt 🙂

 

[tototiti2008]

Re : Interdire saisie formule

Bonjour papyjc, Bonjour 00 😉

Bienvenue sur XLD

Je me permet de modifier un peu la proposition de 00

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 🙂

 

[DoubleZero]

Re : Interdire saisie formule

Re-bonjour,

@ tototiti2008,

Bonjour 😀 et MERCI de t'être permis 🙂🙂

... 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 🙂

A bientôt 🙂

 

[papyjc]

Re : Interdire saisie formule

Merci beaucoup !!

Quelle rapidité pour obtenir une réponse !

 

[papyjc]

Re : Interdire saisie formule

Rebonjour

je profite de votre bonté et de votre réactivité pour compléter maintenant ma demande

Comment faire pour que cela marche pas seulement pour une cellule comme b1 dans mon exemple mais pour toute une colonne (la colonne b par exemple, les réponses aux questions se trouvant en regard dans la colonne a par exemple et masquées bien entendu)

Merci d'avance !

Bonjour papyjc, Bonjour 00 😉

Bienvenue sur XLD

Je me permet de modifier un peu la proposition de 00

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 🙂

 

[DoubleZero]

Re : Interdire saisie formule

Re-bonjour,

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

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 🙂

 

[papyjc]

Re : Interdire saisie formule

Re merci !!

re-bonjour,

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

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 🙂