XL 2010 liste déroulante "dynamique"

sylvanu à dit:

Bonsoir Clapas,
En PJ un essai de ce qu'il pourrait être fait :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B5")) Is Nothing Then
        If IsError(Application.Match(Target, Range("F:F"), 0)) Then
            Cells(1 + Range("F65500").End(xlUp).Row, 6) = Target
            MsgBox Target & " n'existant pas dans la liste" & Chr(13) & " Je l'ai rajouté à la fin"
            ' Mettre ici le tri et suppression de doublons
        End If
    End If
End Sub

Quand on valide une valeur dans la liste déroulante, si celle ci n'existe pas dans la liste, elle y est rajoutée.
Evidemment à modifier et enrichir avec vos macros de tri.

Cliquez pour agrandir...

sylvanu à dit:

Bonsoir Clapas,
En PJ un essai de ce qu'il pourrait être fait :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B5")) Is Nothing Then
        If IsError(Application.Match(Target, Range("F:F"), 0)) Then
            Cells(1 + Range("F65500").End(xlUp).Row, 6) = Target
            MsgBox Target & " n'existant pas dans la liste" & Chr(13) & " Je l'ai rajouté à la fin"
            ' Mettre ici le tri et suppression de doublons
        End If
    End If
End Sub

Quand on valide une valeur dans la liste déroulante, si celle ci n'existe pas dans la liste, elle y est rajoutée.
Evidemment à modifier et enrichir avec vos macros de tri.

Cliquez pour agrandir...