Problème addItem pour ListBox

[grandepapatte]

Bonjour,

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

Voici le code :

Private Sub UserForm2_Initialize()

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

End Sub

Merci d'avance

 

[Softmama]

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]

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]

Re : Problème addItem pour ListBox

Bonjour,

Private Sub UserForm2_Initialize()

Supprimes le 2 !
A+
kjin

 

[grandepapatte]

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

 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]

Re : Problème addItem pour ListBox

re,

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

 

[Dranreb]

Re : Problème addItem pour ListBox

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

 

[kjin]

Re : Problème addItem pour ListBox

Worksheet_SelectionChange(ByVal Target As Range)

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

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

 

[grandepapatte]

Re : Problème addItem pour ListBox

Merci à vous. C'est super.