Comment faire apparaître une liste avec selection de ligne prédéfini?

[KyFranRD]

Re bonjour

Je voudrais savoir comment faire apparaître en A1 une liste déroulante si K1 = "Arrivée"....
Par contre, comment faire court pour généralisé à l'ensemble de la colonne K par rapport à la colonne A.
J'aurai désiré savoir comment faire apparaître cette liste "si possible" de 3 ligne "1>> A vérifier, 2>> A faire et 3>> Fait" avec la ligne 1 "A vérifier" comme ligne de sélection automatique dés l'apparition de la liste


merci à l'avance

 

[mapomme]

Re : Comment faire apparaître une liste avec selection de ligne prédéfini?

Bonjour KyFranRD,

Un essai en VBA. Le code se trouve dans le module de la feuille "Feuil1":

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xcell As Range

Application.EnableEvents = False
If Not Intersect(Range("K:K"), Target) Is Nothing Then
  For Each xcell In Intersect(Range("K:K"), Target)
    If xcell = "Arrivée" Then
      With Cells(xcell.Row, "a").Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
      xlBetween, Formula1:="A vérifier,A faire,Fait"
      End With
      Cells(xcell.Row, "a") = "A vérifier"
    Else
      Cells(xcell.Row, "a").Validation.Delete
    End If
  Next xcell
End If
Application.EnableEvents = True
End Sub

 

[KyFranRD]

Re : Comment faire apparaître une liste avec selection de ligne prédéfini?

Merci bien mapomme. Je teste cela dès que possible. Encore merci