Discussion :

[clarisse]

bonjour,

Voici mon problème :

Je voudrai, que selon le contenu que l'utilisateur entre dans une cellule, une listbox apparaisse.
Dans cette listbox, une liste de choix, qui doit être conditionnée par le contenu de la cellule.

j'utilise le Sub Worksheet_Change(ByVal Target As Range) pour la detection de la valeur que l'utilisateur entre dans la cellule, et j'ai une erreur "objet recquis", au moment d'affecter la plage-source à la listbox.

Je ne sais pas où je dois mettre la listbox : userform ? sur la feuille excell ??

Merci,
Clarisse.

[jfontaine]

peut etre que ca t'aidera

ce code ajoute dans la listebox, les valeurs saisient dans la cellule A1

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_Change(ByVal Target As Range)
 
If Target.Address = "$A$1" Then
 
    If Target.Value <> "" Then
        Me.OLEObjects("listbox1").Visible = True
        Me.OLEObjects("listbox1").Object.AddItem (Target.Value)
        Target.Value = ""
    End If
 
End If
 
End Sub

[clarisse]

salut Jérôme,

Désolée mais ça ne m'aide pas trop :

- j'ai essayé ton code, j'ai une erreur "la méthode OLEObjects de l'object Worksheet a échoué"

- cela ne réponds pas exactement à ce que je souhaite :

par exemple, l'utilisateur entre "1" dans une cellule, et une listbox s'affiche avec différents choix (situés dans une plage d'une feuille de calcul)
S'il entre "2", la listbox s'affiche avec d'autres choix...

Je ne sais pas si je suis claire dans mes explications...

Merci.
Clarisse

[jfontaine]

Ci joint le code + le fichier

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
i = 1
 
If Target.Address = "$A$1" Then
 
    If Target.Value <> "" Then
        Me.OLEObjects("listbox1").Object.Clear
        Me.OLEObjects("listbox1").Visible = True
 
        Do While Range("F" & i).Value <> vide
            If Range("F" & i).Value = Target.Value Then
                Me.OLEObjects("listbox1").Object.AddItem (Range("G" & i).Value)
            End If
            i = i + 1
        Loop
 
        Target.Value = ""
    End If
 
End If
 
End Sub

Pièce jointe 16904

[clarisse]

Salut Jérôme !

Merci bien pour l'envoi du code et du fichier, c'est vraiment cool.
Ca marche nickel !

Bonne fin d'aprem, et surtout, bon week end !

Clarisse.