utilisation des listbox

Version imprimable

20/07/2007, 11h43
clarisse

utilisation des listbox

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.

peut etre que ca t'aidera

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

Code:

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

20/07/2007, 12h52
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

Ci joint le code + le fichier

Code:

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

20/07/2007, 13h40
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.