Renvoi d'une listbox à un userform

Version imprimable

20/02/2013, 22h50
Chris171717

Renvoi d'une listbox à un userform

Bonsoir,

une question... je souhaiterai pouvoir renvoyer des infos contenues dans une listbox (par selection de la ligne) dans un userform... afin de pouvoir modifier ces infos...

est-ce possible !? :?

Je pose d'abord la question car je n'en ai aucune idée... j'en viendrai au code après...
20/02/2013, 23h16
keygen08
Bonsoir

Oui c'est possible. Et déjà fait.
Code:

1 2 3 4 5 6 For i = 0 To num + 1 If cboxanim.Selected(i) = True Then lig = Cells(65000, COL).End(xlUp).Row + 1 Cells(lig, COL).Value = cboxanim.List(i) End If Next
Cela me servait a renvoyer plusieurs noms sur une feuille.
Donc au pire, on clic sur la valeur a modifier qui l'envoi sur une feuille qui le renvoi dans le userform.
20/02/2013, 23h39
Chris171717

Ok super...

je regarderai ça demain car j'ai posé la question avant de créer mes userform (au cas où ça ne soit pas possible...)

donc je crée tout ça et j'essai...

:ccool:
21/02/2013, 08h13
keygen08

Une idée neuve

Bonjour

Ha oui, la charrue, les boeufs...tout ça, tout ça.
Ou alors toussa toussa ;)

Loin de moi, l'idée de vouloir remettre en jeu ton travail. j'ai regardé un peu tout tes post et je voudrai juste te laisser entrevoir une autre facon de faire.
A ce qu'il me semble, tu n'as qu'une feuille dans ton classeur et tu galere un peu parce que tu veux tout gerer par des listbox ou combobox. Ne serait t-il pas plus simple d'utiliser des filtre sur la feuille et de remplir les combo ou textbox avec ces données filtré. Un peu la methode des requete access. Ceci t'épargnerai nombre de probleme rencontré. J'avais réaliser un fichier un peu dans le genre, cela marchait du tonnerre et je n'avais pas eu de gros probleme de programmation. Un seul userform se remplissait au gré de mes filtre et les bouton necessaire apparaissais ou disparaissais en fonction des besoins. Tellement simple.
Malheureusement, j'ai beau chercher, je remet pas la main dessus.
21/02/2013, 11h44
Chris171717

Bonjour,

exactement... oui c'est sûr ta proposition à l'air très intéressante... mais au point où j'en suis et vu mes (toutes) petites compétences dans le domaine, je ne sais pas si ça vaut vraiment le coup de recommencer le fichier...
(maintenant, si tu retrouve ton exemple, je serai ravi de pouvoir y jeter un oeil)

Pour revenir au code ci-dessus, j'ai l'impression que les infos sont renvoyées dans le même userform... est-ce bien ça... !? Du coup si je veux envoyer dans userform9 par exemple, comment puis-je lui dire !?

Merci pour ton aide précieuse... :ccool:

Pour info... j'ai réussi autrement...

Après avoir selectionné la ligne souhaitée dans le listbox, je clique sur "modifier" (commandbutton3) et ça m'envoi tout ça réparti dans les textbox de mon userform 10

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton3_Click()
 
    With ListBox1
         UserForm10.TextBox1 = .List(.ListIndex, 0)
         UserForm10.TextBox2 = .List(.ListIndex, 1)
         UserForm10.TextBox3 = .List(.ListIndex, 2)
         UserForm10.TextBox4 = .List(.ListIndex, 3)
         UserForm10.TextBox5 = .List(.ListIndex, 4)
         UserForm10.TextBox6 = .List(.ListIndex, 5)
         UserForm10.TextBox7 = .List(.ListIndex, 7)
         UserForm10.CheckBox1 = .List(.ListIndex, 6)
 
    End With
    Unload Me
    UserForm10.Show
 
End Sub

Merci encore pour l'aide :ccool:

A plus

Bonjour,

Je reviens dans ce fil pour une question complémentaire...

J'ai ce code pour renvoyer des valeurs d'une listbox vers un userform. ça fonctionne très bien sauf pour la checkbox qui prend une valeur nulle lors de l'ouverture de l'userform...

j'ai déjà mis la propriété Triplestate à False, mais je voudrais que la checkbox se coche ou non en fonction de la valeur de .ListIndex, 9

Comment faire !?

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
25
26
27
28
    With ListBox1
        UserForm8.TextBox1.Tag = ListBox1.List(ListBox1.ListIndex, 1)
        UserForm8.TextBox1.Text = ListBox1.List(ListBox1.ListIndex, 1)
 
        UserForm8.TextBox2.Tag = ListBox1.List(ListBox1.ListIndex, 2)
        UserForm8.TextBox2.Text = ListBox1.List(ListBox1.ListIndex, 2)
 
        UserForm8.TextBox3.Tag = ListBox1.List(ListBox1.ListIndex, 3)
        UserForm8.TextBox3.Text = ListBox1.List(ListBox1.ListIndex, 3)
 
        UserForm8.TextBox4.Tag = ListBox1.List(ListBox1.ListIndex, 4)
        UserForm8.TextBox4.Text = ListBox1.List(ListBox1.ListIndex, 4)
 
        UserForm8.TextBox5.Tag = ListBox1.List(ListBox1.ListIndex, 5)
        UserForm8.TextBox5.Text = ListBox1.List(ListBox1.ListIndex, 5)
 
        UserForm8.TextBox6.Tag = ListBox1.List(ListBox1.ListIndex, 6)
        UserForm8.TextBox6.Text = ListBox1.List(ListBox1.ListIndex, 6)
 
        UserForm8.TextBox7.Tag = ListBox1.List(ListBox1.ListIndex, 7)
        UserForm8.TextBox7.Text = ListBox1.List(ListBox1.ListIndex, 7)
 
        UserForm8.CheckBox1.Tag = ListBox1.List(ListBox1.ListIndex, 8)
        UserForm8.CheckBox1.Value = ListBox1.List(ListBox1.ListIndex, 8)
 
        UserForm8.TextBox9.Tag = ListBox1.List(ListBox1.ListIndex, 9)
        UserForm8.TextBox9.Value = ListBox1.List(ListBox1.ListIndex, 9)
    End With

25/02/2013, 17h09
Invité

Bonjour,
Tes données son envoyées comme ça :

Code:

UserForm10.TextBox1 = .List(.ListIndex, 0)

Tu veux le récupérer où, dans quoi ?
Sois plus précis.

Bonjour chris171717

Heureux de retrouver une partie de ma proposition.

comme expliqué par rdurupt, il n'est pas utile de mettre "ListBox1.List(ListBox1.ListIndex, 1)"
car il y a une déclaration "With ListBox1" qui remplace par "ListBox1" toutes les instructions commençantes par un point.

Mais ce n'est pas ce qui provoque à mon avis l'erreur.

Code:

ListBox1.List(ListBox1.ListIndex, 8)

contient du texte hors bien qu'il accepte d'autres valeurs, il faut utiliser ces valeurs pour les remplir :

Citation:

CheckBox Valeur entière indiquant si l'élément est activé.
Null Indique que l'élément est à l'état Null, ni activé, ni désactivé.
–1 True. Indique que l'élément est activé.
0 False. Indique que l'élément est désactivé.

Donc il faut un code du genre pour remplacer les deux lignes :
Code:

1 2 3 4 5 6 7 8 9 10 Select Case UCase(.ListBox1.List(ListBox1.ListIndex, 8)) 'Pour limiter le choix aux textes en majuscules Case "OUI", "YES", "X" '"oui", "Yes", "x", "Oui" inutiles UserForm8.CheckBox1.Tag = -1 UserForm8.CheckBox1.Value = -1 Case "NON", "No" UserForm8.CheckBox1.Tag = 0 UserForm8.CheckBox1.Value = 0 End Select
ESVBA

après adaptation à mon fichier... ça ne fonctionne pas...

la checkbox se met toujours en valeur nulle :roll:

Code:

1
2
3
4
5
6
7
8
9
        Select Case UCase(.List(.ListIndex, 8))  'Pour limiter le choix aux textes en majuscules
            Case "VRAI"
                UserForm8.CheckBox1.Tag = -1
                UserForm8.CheckBox1.Value = -1
 
            Case "FAUX"
                UserForm8.CheckBox1.Tag = 0
                UserForm8.CheckBox1.Value = 0
         End Select

25/02/2013, 21h46
ESVBA

En recopiant, j'ai moi même fait l'erreur des listbox1:oops:

Que vaut "UCase(.List(.ListIndex, 8))" ?
25/02/2013, 22h27
Chris171717

ça vaut bien '0' ou '-1' en fonction des lignes... :roll:
25/02/2013, 23h02
keygen08
Bonsoir

Et avec un ptit IF, qu'est ce que cela donnerait
Code:

1 2 If UCase(.List(.ListIndex, 8)) = "-1" Then checkbox1.value= True

Alors en fait...

Avec le code de ESVBA ça fonctionne après une toute petite modif :

Code:

1
2
3
4
5
6
7
8
9
        Select Case UCase(.List(.ListIndex, 8))  'Pour limiter le choix aux textes en majuscules
            Case "-1"
                UserForm8.CheckBox1.Tag = True
                UserForm8.CheckBox1.Value = True
 
            Case "0"
                UserForm8.CheckBox1.Tag = False
                UserForm8.CheckBox1.Value = False
         End Select

Merci à tous pour l'aide précieuse... :ccool:

Pour simplifier :

Code:

1
2
UserForm8.CheckBox1.Tag = ((.List(.ListIndex, 8))=-1)   'True si -1
UserForm8.CheckBox1.Value = ((.List(.ListIndex, 8))=-1)

ESVBA

26/02/2013, 10h47
Chris171717

ah ok super... ça allège effectivement pas mal... :ccool:

Merci