Sub Modèle_Autres()
With ActiveWorkbook
.Sheets("listes").Range("b1:b46").Name = "act"
'For s = 2 To ActiveWorkbook.Sheets.Count - 1
With .ActiveSheet.Range("a17:a26").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=act"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
'Next
End With
End Sub
Sub Modèle()
With ActiveWorkbook
.Sheets("listes").Range("b1:b46").Name = "act"
.Sheets("listes").Range("v1:v1540").Name = "ress"
.Sheets("listes").Range("z2:z22").Name = "pourc"
'For s = 2 To ActiveWorkbook.Sheets.Count - 1
With .ActiveSheet.Range("a17:a26").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=act"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
With .ActiveSheet.Range("d15:m15").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=ress"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
With .ActiveSheet.Range("c17:m26").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=pourc"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
'Next
End With
End Sub