Bonjour,
Par macro, j'impose qu'une cellule devienne "une liste de validation".
J'utilise ce code :
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
 
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.