Liste de validation - DECALER
Bonjour,
Par macro, j'impose qu'une cellule devienne "une liste de validation".
J'utilise 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
|
Sub MacroAssignListLocaux()
' MacroAssignListLocaux Macro
'Enlève la protection de la feuille
ActiveSheet.Unprotect
'Vérifie si la colonne active est bien la colonne A et si la ligne active est bien supérieure à la ligne 8
If ActiveCell.Column = 1 And ActiveCell.Row > 8 Then
'Transforme la cellule en une cellule de liste déroulante
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Locaux"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Else
MacroErreurPlace
End If |
J'ai vu que je devais utiliser "DECALER", mais je ne vois pas ou l'introduire.
Merci de votre aide.