Problème avec validation par formule
Bonjour,
J'ai un petit problème de validation, et si quelqu'un pouvait m'aider ce serait bien sympatique.
Je dois limiter les valeurs possibles d'une cellule à un numéro de sécurité sociale belge valable. Le problème est que cette cellule doit être positionnée par un utilisateur, je dois donc passer par une macro en vba. Je passe sur les détails du calcul de vérification, mais en gros la formule à entrer devrait ressembler à ça :
97-mod(left(<la cellule>;9);97)-right(<la cellule>;2)=0
ce qui donne dans ma macro
"=(97-mod(left(<la cellule>,9),97)-right(<la cellule>,2)=0)"
Code:
1
2
3
4
5
6
7
8
9
10
11
|
With Range("<la cellule>").Validation
.Add Type:= xlValidateCustom, AlertStyle:= xlValidAlertStop, _
Operator:=xlBetween, _
Formula1:="=(97-mod(left(<la cellule>,9),97)-eight(<la cellule>,2)=0)", _
Formula2:=""
.InputTitle = "blabla"
.ErrorTitle = "blabla"
.InputMessage = "blabla"
.ErrorMessage = "blabla"
End With |
Ca ne fonctionne malheureusement pas, je reçois une erreur d'exécution 1004 : "erreur définie par l'application ou l'objet".
Pourtant j'ai bien remplacé les ";" par des "," , les noms des formules sont en anglais,.. Je ne vois vraiment pas d'où peu provenir l'erreur, d'autant plus que si je fais la validation à la main ça fonctionne ... après qu'excel m'ait dit que formule était éronnée..
Toute aide est la bienvenue! D'avance, merci!
