Problème addItem pour ListBox

grandepapatte · 11 Avril 2011

Bonjour,

Voila je souhaite ajouter des éléments à une listBox, mais lorsque j'execute il me met rien dans la liste.

Voici le code :

Code:

Private Sub UserForm2_Initialize()

    UserForm2.Liste.AddItem "OUI"
    UserForm2.Liste.AddItem "NON"

End Sub

Merci d'avance

Softmama · 11 Avril 2011

Re : Problème addItem pour ListBox

Bonjour,

cette formule devrait fonctionner...
Vérifie bien 2 choses bêtes : ton userform s'appelle bien UserForm2 ??
Ta ListBox s'appelle bien Liste ??

grandepapatte · 11 Avril 2011

Re : Problème addItem pour ListBox

C'est ca le soucis c'est que ma UserForm s'appelle bien UserForm2, et ma LitBox s'appelle Liste, en tout cas c'est se qu'il y a marqué dans Name dans Propriété

kjin · 11 Avril 2011

Re : Problème addItem pour ListBox

Bonjour,

grandepapatte à dit:
Private Sub UserForm2_Initialize()

Supprimes le 2 !
A+
kjin

grandepapatte · 11 Avril 2011

Re : Problème addItem pour ListBox

Ok c'est bon merci, erreur bête de ma part, merci encore.

Autre petite question : j'ai créé une Subroutine

Code:

 Sub Worksheet_SelectionChange(ByVal Target As Range)

qui me récupère la valeur de la cellule cliqué, mais je voudrais savoir comment récupérer le Numéro de la cellule cliqué, genre "I22" ou (5,7)

Merci

Softmama · 11 Avril 2011

Re : Problème addItem pour ListBox

re,

MsgBox Replace(Target.Address, "$", "")
MsgBox "(" & Target.Row & "," & Target.Column & ")"

Dranreb · 11 Avril 2011

Re : Problème addItem pour ListBox

Bonjour
Au choix:
Target.Address
ou Targer.Row et Target.Column
À+

kjin · 11 Avril 2011

Re : Problème addItem pour ListBox

grandepapatte à dit:
Worksheet_SelectionChange(ByVal Target As Range)

Tu l'as écrit toi -même !

Code:

Msgbox "tacliké sur" & Target.Address(0, 0)

grandepapatte · 11 Avril 2011

Re : Problème addItem pour ListBox

Merci à vous. C'est super.

Problème addItem pour ListBox

grandepapatte

XLDnaute Nouveau

Softmama

XLDnaute Accro

grandepapatte

XLDnaute Nouveau

kjin

XLDnaute Barbatruc

grandepapatte

XLDnaute Nouveau

Softmama

XLDnaute Accro

Dranreb

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

grandepapatte

XLDnaute Nouveau

Discussions similaires