Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
Est-il possible par le biais de DonnéesValidation de refuser une formule dans une cellule ?
Validation n'acceptant pas (me semble-t-il) de fonction perso... Une proc évènementielle ?
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub If zz.HasFormula Then Application.EnableEvents = False zz.Select: MsgBox "saisie de formules interdite !" zz = "" Application.EnableEvents = True End If End Sub
AV
Est-il possible par le biais de DonnéesValidation de refuser une formule
dans une cellule ?
Validation n'acceptant pas (me semble-t-il) de fonction perso...
Une proc évènementielle ?
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
If zz.HasFormula Then
Application.EnableEvents = False
zz.Select: MsgBox "saisie de formules interdite !"
zz = ""
Application.EnableEvents = True
End If
End Sub
Est-il possible par le biais de DonnéesValidation de refuser une formule dans une cellule ?
Validation n'acceptant pas (me semble-t-il) de fonction perso... Une proc évènementielle ?
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub If zz.HasFormula Then Application.EnableEvents = False zz.Select: MsgBox "saisie de formules interdite !" zz = "" Application.EnableEvents = True End If End Sub
AV
Nicolas B.
Merci AV, ça marche.
J'espérais pouvoir le faire sans macros, mais ça n'a pas l'air d'être possible.
Est-il possible par le biais de DonnéesValidation de refuser une formule dans une cellule ?
Validation n'acceptant pas (me semble-t-il) de fonction perso... Une proc évènementielle ?
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub If zz.HasFormula Then Application.EnableEvents = False zz.Select: MsgBox "saisie de formules interdite !" zz = "" Application.EnableEvents = True End If End Sub
AV
Merci AV, ça marche.
J'espérais pouvoir le faire sans macros, mais ça n'a pas l'air d'être
possible.
Est-il possible par le biais de DonnéesValidation de refuser une
formule dans une cellule ?
Validation n'acceptant pas (me semble-t-il) de fonction perso...
Une proc évènementielle ?
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
If zz.HasFormula Then
Application.EnableEvents = False
zz.Select: MsgBox "saisie de formules interdite !"
zz = ""
Application.EnableEvents = True
End If
End Sub
Est-il possible par le biais de DonnéesValidation de refuser une formule dans une cellule ?
Validation n'acceptant pas (me semble-t-il) de fonction perso... Une proc évènementielle ?
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub If zz.HasFormula Then Application.EnableEvents = False zz.Select: MsgBox "saisie de formules interdite !" zz = "" Application.EnableEvents = True End If End Sub
AV
garnote
Salut Nicolas,
Oui c'est possible avec un petit détour !
Supposons que je veuille interdire la saisie de formules en A1. Je me fais une fonction personnalisée :
Function cav(ici) As Boolean 'cav : cellule avec formule cav = ici.Range("A1").HasFormula End Function
J'entre Êv(A1) en B1 ou ailleurs et dans validation de données : ±úUX
Il y a tout de même un tipeu de code !
Serge
"Nicolas B." a écrit dans le message de news:
Merci AV, ça marche.
J'espérais pouvoir le faire sans macros, mais ça n'a pas l'air d'être possible.
Est-il possible par le biais de DonnéesValidation de refuser une formule dans une cellule ?
Validation n'acceptant pas (me semble-t-il) de fonction perso... Une proc évènementielle ?
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub If zz.HasFormula Then Application.EnableEvents = False zz.Select: MsgBox "saisie de formules interdite !" zz = "" Application.EnableEvents = True End If End Sub
AV
Salut Nicolas,
Oui c'est possible avec un petit détour !
Supposons que je veuille interdire la saisie
de formules en A1.
Je me fais une fonction personnalisée :
Function cav(ici) As Boolean
'cav : cellule avec formule
cav = ici.Range("A1").HasFormula
End Function
J'entre Êv(A1) en B1 ou ailleurs et dans validation
de données : ±úUX
Il y a tout de même un tipeu de code !
Serge
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
news: ehMcPSmwDHA.1744@TK2MSFTNGP12.phx.gbl...
Merci AV, ça marche.
J'espérais pouvoir le faire sans macros, mais ça n'a pas l'air d'être
possible.
Est-il possible par le biais de DonnéesValidation de refuser une
formule dans une cellule ?
Validation n'acceptant pas (me semble-t-il) de fonction perso...
Une proc évènementielle ?
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
If zz.HasFormula Then
Application.EnableEvents = False
zz.Select: MsgBox "saisie de formules interdite !"
zz = ""
Application.EnableEvents = True
End If
End Sub
Est-il possible par le biais de DonnéesValidation de refuser une formule dans une cellule ?
Validation n'acceptant pas (me semble-t-il) de fonction perso... Une proc évènementielle ?
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub If zz.HasFormula Then Application.EnableEvents = False zz.Select: MsgBox "saisie de formules interdite !" zz = "" Application.EnableEvents = True End If End Sub
AV
garnote
Salut Nicolas,
Oui c'est possible avec un petit détour ! Supposons que je veuille interdire la saisie de formules en A1. Je me fais une fonction personnalisée :
Function caf(ici) As Boolean 'caf : cellule avec formule caf = ici.Range("A1").HasFormula End Function
J'entre Êf(A1) en B1 ou ailleurs et dans validation de données : ±úUX
Il y a tout de même un tipeu de code !
Serge
"Nicolas B." a écrit dans le message de news:
Merci AV, ça marche.
J'espérais pouvoir le faire sans macros, mais ça n'a pas l'air d'être possible.
Est-il possible par le biais de DonnéesValidation de refuser une formule dans une cellule ?
Validation n'acceptant pas (me semble-t-il) de fonction perso... Une proc évènementielle ?
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub If zz.HasFormula Then Application.EnableEvents = False zz.Select: MsgBox "saisie de formules interdite !" zz = "" Application.EnableEvents = True End If End Sub
AV
Salut Nicolas,
Oui c'est possible avec un petit détour !
Supposons que je veuille interdire la saisie
de formules en A1.
Je me fais une fonction personnalisée :
Function caf(ici) As Boolean
'caf : cellule avec formule
caf = ici.Range("A1").HasFormula
End Function
J'entre Êf(A1) en B1 ou ailleurs et dans validation
de données : ±úUX
Il y a tout de même un tipeu de code !
Serge
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
news: ehMcPSmwDHA.1744@TK2MSFTNGP12.phx.gbl...
Merci AV, ça marche.
J'espérais pouvoir le faire sans macros, mais ça n'a pas l'air d'être
possible.
Est-il possible par le biais de DonnéesValidation de refuser une
formule dans une cellule ?
Validation n'acceptant pas (me semble-t-il) de fonction perso...
Une proc évènementielle ?
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
If zz.HasFormula Then
Application.EnableEvents = False
zz.Select: MsgBox "saisie de formules interdite !"
zz = ""
Application.EnableEvents = True
End If
End Sub
Est-il possible par le biais de DonnéesValidation de refuser une formule dans une cellule ?
Validation n'acceptant pas (me semble-t-il) de fonction perso... Une proc évènementielle ?
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub If zz.HasFormula Then Application.EnableEvents = False zz.Select: MsgBox "saisie de formules interdite !" zz = "" Application.EnableEvents = True End If End Sub
AV
Nicolas B.
Salut,
C'est ce que je cherchais : une solution en passant par DonnéesValidation (plus facile à modifier, ne ralentit pas Excel, etc).
Est-il possible par le biais de DonnéesValidation de refuser une formule dans une cellule ?
Validation n'acceptant pas (me semble-t-il) de fonction perso... Une proc évènementielle ?
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub If zz.HasFormula Then Application.EnableEvents = False zz.Select: MsgBox "saisie de formules interdite !" zz = "" Application.EnableEvents = True End If End Sub
AV
Salut,
C'est ce que je cherchais : une solution en passant par DonnéesValidation
(plus facile à modifier, ne ralentit pas Excel, etc).
Est-il possible par le biais de DonnéesValidation de refuser une
formule dans une cellule ?
Validation n'acceptant pas (me semble-t-il) de fonction perso...
Une proc évènementielle ?
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
If zz.HasFormula Then
Application.EnableEvents = False
zz.Select: MsgBox "saisie de formules interdite !"
zz = ""
Application.EnableEvents = True
End If
End Sub
Est-il possible par le biais de DonnéesValidation de refuser une formule dans une cellule ?
Validation n'acceptant pas (me semble-t-il) de fonction perso... Une proc évènementielle ?
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub If zz.HasFormula Then Application.EnableEvents = False zz.Select: MsgBox "saisie de formules interdite !" zz = "" Application.EnableEvents = True End If End Sub
AV
garnote
Et pour le plaisir :
=NON(B1) ou ±=0 semblent également convenir.
;-)
Serge
"Nicolas B." a écrit dans le message de news:
Salut,
C'est ce que je cherchais : une solution en passant par DonnéesValidation (plus facile à modifier, ne ralentit pas Excel, etc).
Est-il possible par le biais de DonnéesValidation de refuser une formule dans une cellule ?
Validation n'acceptant pas (me semble-t-il) de fonction perso... Une proc évènementielle ?
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub If zz.HasFormula Then Application.EnableEvents = False zz.Select: MsgBox "saisie de formules interdite !" zz = "" Application.EnableEvents = True End If End Sub
AV
Et pour le plaisir :
=NON(B1) ou ±=0 semblent également convenir.
;-)
Serge
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
news: OTf8SkmwDHA.1760@TK2MSFTNGP10.phx.gbl...
Salut,
C'est ce que je cherchais : une solution en passant par DonnéesValidation
(plus facile à modifier, ne ralentit pas Excel, etc).
Est-il possible par le biais de DonnéesValidation de refuser une
formule dans une cellule ?
Validation n'acceptant pas (me semble-t-il) de fonction perso...
Une proc évènementielle ?
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Address <> "$A$1" Then Exit Sub
If zz.HasFormula Then
Application.EnableEvents = False
zz.Select: MsgBox "saisie de formules interdite !"
zz = ""
Application.EnableEvents = True
End If
End Sub
Est-il possible par le biais de DonnéesValidation de refuser une formule dans une cellule ?
Validation n'acceptant pas (me semble-t-il) de fonction perso... Une proc évènementielle ?
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Address <> "$A$1" Then Exit Sub If zz.HasFormula Then Application.EnableEvents = False zz.Select: MsgBox "saisie de formules interdite !" zz = "" Application.EnableEvents = True End If End Sub
AV
AV
C'est ce que je cherchais : une solution en passant par DonnéesValidation (plus facile à modifier, ne ralentit pas Excel, etc).
Pour chaque cellule contenant cette "validation" tu es tributaire d'une autre cellule contenant une formule faisant appel à une fonction perso (2 calculs) donc pour ce qui du "ralentissement" d'XL..... bofff ;-)
Le mieux serait qu' XL autorise l'utilisation des fonctions persos dans "Validation" ! XL 3000 ?
AV
C'est ce que je cherchais : une solution en passant par DonnéesValidation
(plus facile à modifier, ne ralentit pas Excel, etc).
Pour chaque cellule contenant cette "validation" tu es tributaire d'une autre
cellule contenant une formule faisant appel à une fonction perso (2 calculs)
donc pour ce qui du "ralentissement" d'XL..... bofff ;-)
Le mieux serait qu' XL autorise l'utilisation des fonctions persos dans
"Validation" !
XL 3000 ?
C'est ce que je cherchais : une solution en passant par DonnéesValidation (plus facile à modifier, ne ralentit pas Excel, etc).
Pour chaque cellule contenant cette "validation" tu es tributaire d'une autre cellule contenant une formule faisant appel à une fonction perso (2 calculs) donc pour ce qui du "ralentissement" d'XL..... bofff ;-)
Le mieux serait qu' XL autorise l'utilisation des fonctions persos dans "Validation" ! XL 3000 ?
AV
Nicolas B.
Pour chaque cellule contenant cette "validation" tu es tributaire d'une autre cellule contenant une formule faisant appel à une fonction perso (2 calculs) donc pour ce qui du "ralentissement" d'XL..... bofff ;-)
Je pensais plutôt au ralentissement causé lors de la modification de cellules qui n'ont rien à voir avec celle qui ne doit pas avoir de formules (à cause du worksheet_change). Mais peut-être qu'Excel refait les calculs de toutes les fonctions perso quelque soit la cellule modifiée dans la feuille, ce qui reviendrait au même ?
Le mieux serait qu' XL autorise l'utilisation des fonctions persos dans "Validation" ! XL 3000 ?
Pour chaque cellule contenant cette "validation" tu es tributaire
d'une autre cellule contenant une formule faisant appel à une
fonction perso (2 calculs) donc pour ce qui du "ralentissement"
d'XL..... bofff ;-)
Je pensais plutôt au ralentissement causé lors de la modification de
cellules qui n'ont rien à voir avec celle qui ne doit pas avoir de formules
(à cause du worksheet_change). Mais peut-être qu'Excel refait les calculs de
toutes les fonctions perso quelque soit la cellule modifiée dans la feuille,
ce qui reviendrait au même ?
Le mieux serait qu' XL autorise l'utilisation des fonctions persos
dans "Validation" !
XL 3000 ?
Pour chaque cellule contenant cette "validation" tu es tributaire d'une autre cellule contenant une formule faisant appel à une fonction perso (2 calculs) donc pour ce qui du "ralentissement" d'XL..... bofff ;-)
Je pensais plutôt au ralentissement causé lors de la modification de cellules qui n'ont rien à voir avec celle qui ne doit pas avoir de formules (à cause du worksheet_change). Mais peut-être qu'Excel refait les calculs de toutes les fonctions perso quelque soit la cellule modifiée dans la feuille, ce qui reviendrait au même ?
Le mieux serait qu' XL autorise l'utilisation des fonctions persos dans "Validation" ! XL 3000 ?
