Discussion :

[Arnaud C]

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

[Ben_L]

Bonjour,

Essayez de remplacer le contenu de votre instruction With par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
            .Delete
            .Add Type:=xlValidateList, Formula1:=data

Cdt

[Arnaud C]

Merci Ben

Malheureusement, la liste ne prend toujours pas la valeurs data.
En fait, je cherche à afficher la valeur de la variable data dans la liste de validation car la feuille utilise cette liste pour plusieurs vlookup.

[Ben_L]

Et comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim data As String
    If Not Application.Intersect(Target, Me.Range("A2:A100")) Is Nothing Then
        Application.EnableEvents = False
        If Target.Value = "" Then Goto EndOfSub
        data = Target.Value
        With ThisWorkbook.Sheets("General Info").Range("D1").Validation
            .Delete
            .Add Type:=xlValidateList, Formula1:=data
        End With
EndOfSub:
        Application.EnableEvents = True
    End If
End Sub

Qu'obtenez-vous ?

Veuillez notez qu'il s'agit ici de définir une seule valeur acceptable pour la cellule D1 de la feuille "General Info".
Et cette valeur sera égale à la valeur de la cellule sur laquelle vous double-cliquez.

[Arnaud C]

Malheureusement, ça ne marche pas non plus.
Je pense que je vais devoir passer par un combobox plutôt que par la liste de validation...

[Ben_L]

Qu'obtenez-vous ?

Malheureusement, ça ne marche pas non plus.

Préciser ce qui fonctionne ou pas, la différence entre le comportement obtenu et celui recherché, les éventuels messages d'erreurs qui interviennent...
Tout cela ne semble pas superflu si votre but est d'obtenir de l'aide.

Le code proposé est fonctionnel sur un fichier test.

[Arnaud C]

Bonjour,

Je viens d'ajouter une feuille excel pour expliquer exactement mon problème.
Le principe est que, en double cliquant sur un des cellules de la colonne A de la page "sheet 3", la macro sélectionne la feuille "General Info" et et place la valeur de la cellule "double cliquée" dans la lise de validation en D1.

J'espère être plus claire?

En tout cas, merci pour votre aide!