Excel: "Validation des données" en Vba

fanch55 à dit:

Bonjour à tous,

Je suis resté près d'une demi-journée à me demander pourquoi en tentant de faire un range.validation.add, je me heurtais systématiquement à une erreur 1004 .
Pourtant, le code que j'exécutais avait été construit par l'enregistreur de macro , et ce code aboutissait également à une erreur 1004 .

VB:

Exemple:
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _
            Formula1:="=ET(SOMME($B4:$D4)<=$B$2;OU(B4="""";ESTNUM(B4));MOD(B4;0.5)=0)"

Après moult consultations de différents forums, j'ai remarqué que les utilisateurs anglophones avaient rarement ce type d'erreur .
J'ai donc tenté de "traduire" la formule :

VB:

        .Add xlValidateCustom, xlValidAlertStop, xlBetween, _
            "=AND(SUM($B4:$D4)<=$B$2;OR(B4="""";ISNUMBER(B4));MOD(B4;0.5)=0)"

code qui provoquait toujours une erreur 1004 ...
puis je me suis souvenu qu'en Excel Anglophone, le caractère ";" n'était pas le délimiteur standard, mais le caractère "," (virgule)

VB:

    With Range("B4").Validation
        .Add xlValidateCustom, xlValidAlertStop, xlBetween, _
            "=AND(SUM($B4:$D4)<=$B$2,OR(B4="""",ISNUMBER(B4)),MOD(B4,0.5)=0)"
        .IgnoreBlank = True: .InCellDropdown = True
        .InputTitle = "": .InputMessage = "": .ShowInput = True
        .ErrorTitle = "": .ErrorMessage = "": .ShowError = True
    End With

Code qui à ma plus grande satisfaction se déroule correctement ....

Que de temps perdu pour une particularité non indiquée dans les aides de Microsoft !!!!

Cliquez pour agrandir...

With Range("B4").Validation
        .Add xlValidateCustom, xlValidAlertStop, xlBetween, _
        FormulaLocal:="=ET(SOMME($B4:$D4)<=$B$2;OU(B4="""";ESTNUM(B4));MOD(B4;0.5)=0)"
        .IgnoreBlank = True: .InCellDropdown = True
        .InputTitle = "": .InputMessage = "": .ShowInput = True
        .ErrorTitle = "": .ErrorMessage = "": .ShowError = True
    End With

Gégé-45550 à dit:

avez-vous testé le résultat obtenu en remplaçant Formula1 par FormulaLocal et en conservant le code en français ?

Cliquez pour agrandir...

cp4 à dit:

Bonjour @fanch55 , @Gégé-45550 ,

@fanch55 : VBE est en Anglais, personnellement je lance l'enregistreur de macro, la formule est au préalable saisie dans une cellule en Français,
je sélectionne la cellule, puis sélectionne le texte de la formule dans la barre de formule,
je fais un Ctrl+C et Entrée.
J'arrête l'enregistreur, cela me donne la formule en Anglais à utiliser dans mon code VBA.

Bonne journée.

Cliquez pour agrandir...

Gégé-45550 à dit:

Bonjour à tous,
moi, j'utilise l'option de menu "Traducteur" pour le même résultat, mais je ne sais plus si cette option est dispo dans toutes les versions d'Excel.
Regarde la pièce jointe 1170872
Bonne journée à tous

Cliquez pour agrandir...

TooFatBoy à dit:

Bonjour,

Moi pour traduire une formule vers de l'english, j'utilise cette macro :

VB:

Sub MaFormule()
    Debug.Print ActiveCell.Formula
End Sub

Cliquez pour agrandir...

TooFatBoy à dit:

Merci Gégé, j'avais bien vu qu'avec ta proposition il fallait installer un truc en plus dans Excel, d'où ma proposition d'une simple ligne de code VBA qui me semble beaucoup plus simple.

Et puisqu'on a le choix entre trois solutions données ici, maintenant chacun fait c'qui lui plait plait plait


Bonne nuit l'ami, fais de beaux rêves !

Cliquez pour agrandir...

fanch55 à dit:

Un petit bémol à ce traducteur :
Toutes les fonctions ne sont pas traduites .
Il ne supporte pas la notation de table structurée dans les arguments d'une fonction .
Il ne me semble pas "fini" .... ( voir le message ci-dessous )
Regarde la pièce jointe 1171111
Le lien pour envoyer des commentaires ne fonctionne pas ou plus :
Regarde la pièce jointe 1171112

Cliquez pour agrandir...