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