XL 2010 Aide code VBA transposition listbox vers une userform

[dukoko]

Bonjour,

J'ai un bouton "modifier" sur mon fichier, je souhaite rechercher une analyse lorsque je clique sur la ligne ma Userform de saisie s'ouvre avec les données déjà connues.

J'ai crée un code :

Private Sub ListBoxResultat_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
' Choisir Contact

Dim Compteur As Integer
For Compteur = 0 To (ListBoxResultat.ListCount - 1)
If ListBoxResultat.Selected(Compteur) = True Then
UserForm1.TextBox4 = UserForm3.ListBoxResultat.List(Compteur, 0)
UserForm1.TextBox2 = UserForm3.ListBoxResultat.List(Compteur, 1)
UserForm1.TextBox25 = UserForm3.ListBoxResultat.List(Compteur, 2)
UserForm1.TextBox3 = UserForm3.ListBoxResultat.List(Compteur, 3)
UserForm1.ComboBox4 = UserForm3.ListBoxResultat.List(Compteur, 4)
UserForm1.ComboBox3 = UserForm3.ListBoxResultat.List(Compteur, 5)
UserForm1.ComboBox2 = UserForm3.ListBoxResultat.List(Compteur, 6)
UserForm1.ComboBox1 = UserForm3.ListBoxResultat.List(Compteur, 7)
UserForm1.TextBox5 = UserForm3.ListBoxResultat.List(Compteur, 8)

UserForm1.Show
Exit Sub
End If
Next
ActiveCell = ListBoxResultat.Value
End Sub

Cela fonctionne, juste au niveau de ma Combobox 4 il ne me saisie pas le bon format, j'attend des service = 2021, 2026.... au lieu de ça il me note 1, 2....

Et lorsque je souhaite continuer mon code pour qu'il me remplisse le reste des analyses, cela beugue...

Bref je suis bloqué.

 

[Dranreb]

Bonjour.
Dans la 5ième colonne de la ListBox, de N°4, donc, vous avez mis le numéro de ligne source.
Peut être auriez vous intérêt à repartir des données source, justement.

Private Sub ListBoxResultat_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim VLgn()
VLgn = CL.PlgTablo.Rows(ListBoxResultat.List(ListBoxResultat.ListIndex, 4)).Value
UserForm1.TextBox4 = VLgn(1, 1)
etc.

Vous auriez vraiment intérêt à mettre des noms mnémoniques à vos contrôles. Je ne comprends pas comment vous faites pour vous y retrouver.

Edit: Remarque: vous auriez peut être intérêt à garder trace du numéro de ligne source dans la 9ième plutôt, la 8 donc, car je vois qu'elle n'est pas utilisée pour afficher des données. Alors que la 4, si ! Ce numéro de ligne écrase le service. j'ai l'impression qu'à l'origine cette programmation n'affichait que 4 colonnes. Si ça suffit pour repérer visuellement la ligne, vous pourriez toujours faire comme ça en allant rechercher l'information restante à sa source.

 

[dukoko]

Merci de votre aide