Listbox validé valeur vers cellule

[niepce26]

Bonjour à tous,

Voici mon souci...

Dans un USF j'ai une listbox, je désire

1) sélectionner un nom dans la listbox.
2) en validant (bouton) renvoyer une valeur (1, x, vrai peu importe).
3) valeur qui doit se trouver sur la ligne du nom de la listbox dans une colonne définis.

Ci-joint un ptit fichier afin d'y voir plus clair...

Merci

Niepce26

 

[Guest]

Re : Listbox validé valeur vers cellule

Bonjour,

voici deux méthodes:
1 -pour remplir ta liste
2 -pour valider le choix

Private Sub UserForm_Initialize()
    Dim t
    Sheets("archi").Activate
    On error resume next 'Au cas où il n'y est aucun items
    t = Range("A7:A100").SpecialCells(xlCellTypeConstants).Value
    ListBox1.List = t
End Sub
Private Sub CommandButton1_Click()
 With ListBox1
    If .ListIndex > -1 Then
        Range("J7").Offset(.ListIndex) = 1
        MsgBox "Archi Validé"   'on affiche que c'est validé
    End If
 End With
End Sub

A+

 

[niepce26]

Re : Listbox validé valeur vers cellule

Bonjour Hasco,

c'est impeccable merci beaucoup.

Niepce26

 

[niepce26]

Re : Listbox validé valeur vers cellule

Re bonjour,

Je reviens vers vous, car un prb n'arrive jamais seul...

Sur mon USF il y a maintenant plusieurs Listbox (venant de plusieurs feuilles),

Je suis arrivé (avec le code de Hasco) à toutes les initialiser mais je n'arrive pas à écrire la fonction CommandButton1_Click() pour toutes les Listbox.

Attention le résultat des Listbox ne vont pas dans les mêmes colonnes (Range J7 pour la listbox1, Range B7 pour la listbox2...)

Merci à ce qui se pencherons sur mon problème.

Niepce26