XL 2013 Erreur d'exécution '1004'

Disiz4K

XLDnaute Nouveau
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:
VB:
        .Modify xlValidateCustom, _
        AlertStyle:=xlValidAlertStop, _
        Operator:=xlEqual, Formula1:=protectioncool

Dans cette partie:

Code:
    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

XLDnaute Barbatruc
Bonjour Disiz4K et bienvenue sur le forum

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

Essaie ceci :
VB:
    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

XLDnaute Nouveau
Bonjour Disiz4K et bienvenue sur le forum

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

Essaie ceci :
VB:
    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:

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

La suivante:

Code:
    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 :)
 

Statistiques des forums

Discussions
294 039
Messages
1 935 786
Membres
187 447
dernier inscrit
Harvedo