XL 2016 Liste déroulante seulement si... (Probablement VBA)

sylvanu à dit:

Bonjour Etoto,
Un essai en PJ avec :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target = "" Then Exit Sub
    If Not Intersect(Target, Columns(4)) Is Nothing Then
        On Error GoTo Fin:
         Application.EnableEvents = False
         Application.ScreenUpdating = False
         If Target = "Avance" Or Target = "Retour d'avance" Then
            Cells(Target.Row, "E").Select
            With Selection.Validation
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=Liste"
            End With
        End If
    End If
Fin:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Cliquez pour agrandir...

Etoto à dit:

Bon, j'avoue, c'est de ma faute,

Cliquez pour agrandir...

Else
  Cells(Target.Row, "E").Validation.Delete
End If

sylvanu à dit:

Re,

Entièrement d'accord.
Il suffit de rajouter ça :

VB:

Else
  Cells(Target.Row, "E").Validation.Delete
End If

Cliquez pour agrandir...

sylvanu à dit:

Voir page Gestion d'avances de ma première PJ.
Regarde la pièce jointe 1136771
En PJ votre fichier rectifié.

Cliquez pour agrandir...