Discussion :

[ren0_]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[SilkyRoad]

bonsoir

Tu as écris eight au lieu de right :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Formula1:="=(97-mod(left(<la cellule>,9),97)-eight(<la cellule>,2)=0)",

bonne soirée
michel

[ren0_]

c'était une faute de recopiage j'ai résolu le problème en mettant une valeur dans la cellule avant la validation, avec le code suivant ça fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Range("<la cellule>")=1
With Range("<la cellule>").Validation
    .Add Type:= xlValidateCustom, AlertStyle:= xlValidAlertStop, _
      Operator:=xlBetween, _
      Formula1:="=(97-mod(left(<la cellule>,9),97)-right(<la cellule>,2)=0)", _
        Formula2:=""
    .InputTitle = "blabla"
    .ErrorTitle = "blabla"
    .InputMessage = "blabla"
    .ErrorMessage = "blabla"
End With
Range("<la cellule>")=""