[Excel - VB] Liste de choix non reconnue?
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:
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
Citation:
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.
