Bonjour,

Après pas mal de recherche, je n'ai pas trouvé un moyen pour "imposer" la valeur d'une liste de validation via une macro.
J'utilise le code ci-dessous où j'aimerais utilise la valeur de la cellule active via "data" comme valeur dans une liste de validation sur la page "General Info". le code ne change pas la valeur de la liste de validation.
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
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
Dim data As String
 
If Not Application.Intersect(Target, Range("A2:A100")) Is Nothing Then
 
Application.EnableEvents = False
    If ActiveCell.Value = "" Then
        End
        Else
        data = ActiveCell.Value
        Sheets("General Info").Select
        With Range("D1").Validation
            .Delete
            .Add xlValidateList
            .Value = data
        End With
    End If
 
Application.EnableEvents = True
End If
End Sub
Que puis-je faire?

Merci d'avance!
Arnaud