Discussion :

[Chris171717]

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...

[keygen08]

Bonsoir

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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...

[keygen08]

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.

[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...

[Chris171717]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A plus