XL 2013 Erreur d'exécution '1004'

[Disiz4K]

Bonjour à tous,

J'ai un petit problème avec un tableau Excel j'ai l'erreur "Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet"

Le débogage m'affiche un problème sur cette partie de la macro:

        .Modify xlValidateCustom, _
        AlertStyle:=xlValidAlertStop, _
        Operator:=xlEqual, Formula1:=protectioncool

Dans cette partie:

    With Range("G6").Validation
        .Modify xlValidateCustom, _
        AlertStyle:=xlValidAlertStop, _
        Operator:=xlEqual, Formula1:=protection
        .InputTitle = "Ne pas modifier"
        .ErrorTitle = "Ne pas modifier"
        .ErrorMessage = "Vous ne devez pas modifier cette case"
    End With

Merci à vous,
Cordialement

 

[Fred0o]

Bonjour Disiz4K et bienvenue sur le forum

Je pense que le probleme vient de "Formula1:=protection" ou "Formula1:=protectioncool"

Essaie ceci :

    With Selection.Validation
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=false"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "Ne pas modifier"
        .ErrorTitle = "Ne pas modifier"
        .ErrorMessage = "Vous ne pouvez pas modifier cette case"
    End With

 

[Disiz4K]

Bonjour Disiz4K et bienvenue sur le forum

Je pense que le probleme vient de "Formula1:=protection" ou "Formula1:=protectioncool"

Essaie ceci :

    With Selection.Validation
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=false"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "Ne pas modifier"
        .ErrorTitle = "Ne pas modifier"
        .ErrorMessage = "Vous ne pouvez pas modifier cette case"
    End With

Bonjour Fred0o,

Merci pour t'as réponse, j'avais oublié d'enlever le "cool" pour la deuxième, enfaite ce fichier Excel a été fait en 2017 par un ancien salarié, apparemment il ne marche plus depuis quelques semaines, apparemment personne ne l'aurait modifié.

J'ai essayé ce que que tu m'as recommandé, ça ne marche pas. Enfaite le problème c'est que j'ai plusieurs conditions "With" et que si j'en supprimes une le debug vas m'afficher un problème à la prochaine exactement au même endroit c'est à dire:

        .Modify Type:=xlValidateCustom, _
        AlertStyle:=xlValidAlertStop, _
        Operator:=xlEqual, Formula1:=protectioncool

La suivante:

    With Range("D6").Validation
        .Modify Type:=xlValidateWholeNumber, _
        AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="1", Formula2:="10000"

Ainsi de suite, je me demandais personnellement si un conflit de version était possible ?

Merci encore

 

[Bernard_XLD]

Bonjour le fil, le forum

Sans fichier de test (allégé, anonymisé et permettant de reproduire le problème) et sans plus de précisions, cela va être compliqué, on ne sait même pas de quelles versions d'Excel tu parles, il y en a légion en circulation !

Bien cordialement, @+

 

[Disiz4K]

Bonjour,

Du coup en prenant une version antérieur du fichier il remarche, je suppose une corruption du fichier du fait que tous soit identique.

Merci de vos réponses