Liste validation par macro

Bonjour à tous,

Je désire, pour une application , créer des cellules avec validation.

Lors de l'exécution de la macro j'ai le message suivant:

Erreur d'exécution '1004':

Erreur définie par l'application ou par l'objet

Parce que ce message ne me permet pas de résoudre mon problème, je me tourne vers vous.Voici ci après mon code (créé par la création de macro).Le débogage surligne les lignes en gras

Sub Macro1()
    Range("$b$4:$b$204").Select
            With Selection.Validation
                .Delete
                [b].Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="=$m$3:$m$20"[/b]
                .IgnoreBlank = False
                .InCellDropdown = True
                .InputTitle = ""
                .ErrorTitle = "Joueurs"
                .InputMessage = ""
                .ErrorMessage = "Ce joueur n'appartient pas au club."
                .ShowInput = True
                .ShowError = True
            End With
End Sub

Dans l'attente de vous lire, je vous souhaite une bonne fin de soirée

Annette

edit Dan : changer titre du sujet

Bonsoir,

Essaie :

Sub Macro1()
'Macro amendée Dan pour anpi
Dim plage As Range
Set plage = Range("m3:m20")
With Range("$b$4:$b$204").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=plage"
.IgnoreBlank = False
.InCellDropdown = True
.ErrorTitle = "Joueurs"
.ErrorMessage = "Ce joueur n'appartient pas au club."
.ShowInput = True
.ShowError = True
End With
End Sub

Amicalement

Dan

Rebonsoir

Dan j'ai modifié le code, mais il bloque toujours (même message, même ligne)

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=plage"

Je précise au cas ou que ce code est dans un excel 2007

A bientôt

Annette

PS :Merci pour la modification du titre pour qu'il soit plus explicite

re,

Je n'ai aucun souci. Ton pb doit venir d'autre chose.

Place ton fichier sous excel 2003, on regardera

Amicalement

Dan

Re-bonsoir à tous,

Dan, j'ai copié dans le fichier joint la partie qui pose problème.

Mon fichier étant trop volumineux.

J'espère que cela suffira pour trouver ce qui provoque l'arrêt

Merci et à bientôt

Annette

https://www.excel-pratique.com/~files/doc2/Classeur9.xls

Re,

le pb vient de la protection de ta feuille.

En début de macro remplace

ActiveSheet.Protect UserInterfaceOnly:=True

par

ActiveSheet.unprotect

et à la fin remplace

ActiveSheet.Protect UserInterfaceOnly:=False

par

ActiveSheet.Protect

ensuite place le code que je t'ai donné.

Amicalement

Dan

re-Bonsoir,

Grand merci Dan, Je pensai que le code:

ActiveSheet.Protect UserInterfaceOnly:=True 'evite de déprotéger la feuille

que j'utilisais grâce à Excel-Pratique donnait le même résultat que:

ActiveSheet.UnProtect

Je me trompai ......

Demain je chercherai la différence entre ces deux écritures.

Bonne nuit

Annette