Discussion :

[remi2305]

Bonjour,

J'essaye de paramétrer une liste déroulante de manière à ce que la liste apparaisse si une cellule contient X et que je puisse saisir si ce n'est pas le cas.

J'utilise pour cela une fonction =SI(A1 = "X";LISTE_NOM;"") dans l'outil de validation des données.

Par quoi faudrait-il remplacer le vide pour pouvoir saisir du texte ?

Merci d'avance.

Rémi

[Theze]

Bonjour,

Je ne suis pas certain que ce soit possible car si il y a une formule dans la cellule, il ne peut y avoir de liste déroulante mais comme dis, je ne suis pas certain. Alors, je te propose une alternative au cas où j'ai raison, c'est de rajouter dynamiquement un ComboBox dans la cellule (colonne B, à adapter !) si dans la cellule à coté (colonne A) il y a un X ou x. Pour l'exemple, la liste est remplie de 5 éléments qu'il va falloir que tu adapte à tes besoins. A mettre dans le module de ta feuille :

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
24
25
26
27
28
29
30
31
32
33
34
35
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim S As Shape
    Dim I As Integer
 
    With Target
 
        If .Column <> 2 Or .Count > 1 Then Exit Sub
 
        'supprime le ComboBox
        On Error Resume Next '<-- si jamais il n'existe pas !
        Me.Shapes(.Address).Delete
 
        'si un X ou x dans la cellule de gauche (colonne A)
        If UCase(.Offset(, -1).Value) = "X" Then
 
            'ajoute un ComboBox
            Set S = Me.Shapes.AddFormControl(xlDropDown, .Left, .Top, .Width, .Height)
 
            'lui donne comme nom l'adresse de la cellule de façon à être unique
            S.Name = .Address
 
            'rempli la liste, à adapter
            For I = 1 To 5
 
                S.ControlFormat.AddItem "élément " & I
 
            Next I
 
        End If
 
    End With
 
End Sub

[remi2305]

Merci de ta réponse.

Mais en fait je rentre la formule une fois que j'ai sélectionné liste dans Validation des données et non pas dans une cellule. Je me suis mal exprimé.

Peux-être aurais-tu une solution pour ce cas là ?

Rémi

[gFZT82]

Bonjour,

Tu peux tester cette formule pour la liste de validation :
=SI(A1 = "X";LISTE_NOM;XFD1)

Cordialement.

[Theze]

Bonjour,

Non non, c'est moi qui est mal compris, désolé !

[remi2305]

Bonjour,

J'ai essayé avec XFD1 mais j'ai l'erreur suivante : "Impossible de trouver une plage nommée que vous avez spécifié".

Je ne connais pas le XFD1. Faut-il créer une plage XFD1 ?

Merci.

Rémi