Liste de validation avec VBA, Excel 2010

Version imprimable

Voici mon programme, à partir de .Delete, j'ai :", erreur 1004,erreur définie par l'application ou par l'objet"
merci de votre aide

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
 
Sub ListeValidation()
Dim Lig As Integer, i As Integer
Dim Plage
i = Cells(2, 100).CurrentRegion.Rows.Count
Plage = Worksheets("NomFeuille").Range(Cells(2, 100), Cells(i, 100))
Lig = Cells(2, 1).CurrentRegion.Rows.Count
 
    With Worksheets("NomFeuille").Range(Cells(3, 24), Cells(Lig, 24)).Validation
        .Delete
        .Add Type:=xlValidateList, _
            AlertStyle:=xlValidAlertStop, _
            Operator:=xlBetween, _
            Formula1:=Plage
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
 
End Sub

Bonjour,

Une proposition

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
Sub ListeValidation()
 
Dim Lig As Integer, I As Integer
Dim Plage As Range
 
    With Worksheets("NomFeuille")
 
          I = .Cells(2, 100).CurrentRegion.Rows.Count
          Set Plage = .Range(.Cells(2, 100), .Cells(I, 100))
 
          Lig = .Cells(2, 1).CurrentRegion.Rows.Count
          With .Range(.Cells(3, 24), .Cells(Lig, 24)).Validation
               .Delete
               .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlEqual, Formula1:="=" & Plage.Address
               .IgnoreBlank = True
               .InCellDropdown = True
               .InputTitle = ""
               .ErrorTitle = ""
               .InputMessage = ""
               .ErrorMessage = ""
               .ShowInput = True
               .ShowError = True
           End With
           Set Plage = Nothing
 
    End With
 
End Sub

Nb : Operator:=xlEqual ou Operator:=xlBetween peut être ignoré.

Cordialement.

28/01/2015, 11h06
Invité

Tu cours toujours après ton problème ZeitnotZatopek ?