Bonjour à tous,
j'ai un classeur qui contient 13feuilles, dont 1 contient une liste.
Dans cette liste je nomme la 1ere col ListeM (avec Insertion - Nom - def nom). Le nom que j'ai donné à la liste est unique, il ne sert que pour ce classeur!
Après j'exécute ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Sub ListeDeChoix()
Dim i As Integer
Dim Feuille As Worksheet
 
For Each Feuille In Worksheets
  Feuille.Activate
  If Cells(3, 1) = "Nom & Prénom" Then
    i = 5
    While Cells(i, 1) <> "Total Enfants"
      Range("A" & i & "").Select
      With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
              xlBetween, Formula1:="=ListeM"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
      End With
      i = i + 1
    Wend
  End If
Next
End Sub
Le problème est qu'il bloque sur la ligne .Add Type. Je ne sais pourquoi étant donné que j'utilise cette methode pour d'autres classeurs, et ca marche nickel...
Il me met
Erreur d'exe '1004' Erreur def par l'appli ou par l'objet
Si quelqu'un a une idée, elle est la bienvenue!
D'avance, merci à tous.