Bonjour,

J'ai besoin d'un petit coup de main.

Depuis un Userform1[UsfLignes] je lance une Userform2 pour faire un choix à retourner dans une Userform.combobox1

C'est pu écrire le code pour le 1er combobox1.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
' Appel Userform liste
 
Private Sub ImgCombobox1_Click()
   frm_Liste.Show
        End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
Private Sub ListBox1_Click()
    UsfLignes.CboCompte1 = Val(ListBox1.List(ListBox1.ListIndex, 0))
       Unload Me
End Sub
Ce code fonctionne pour la première ligne, mais j'ai 12 Combobox

J'ai écrit ce code mais il ne fonctionne pas

Dans mon Userform1 [UsfLignes]
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Public Lign As Integer
Private Sub ImgCompte1_Click()
Lign = 1
frm_PlanComptable.Show
End Sub
.Private Sub ImgCompte2_Click()
Lign = 2
frm_PlanComptable.Show
End Sub
.
Etc
Dans mon Userform2
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Private Sub ListBox1_Click()
Dim n As Integer
 
'UsfLignes.CboCompte1 = Val(ListBox1.List(ListBox1.ListIndex, 0))
 
n = UsfLignes.Lign
Me.Controls("UsfLignes.CboCompte" & n).Value = Val(ListBox1.List(ListBox1.ListIndex, 0))
 
Unload Me
End Sub

J'ai bien dans n le no de la ligne provenant de l'Userform1 et Tt ma valeur.

Mais le résultat ne s'affiche pas dans la combobox(x) de l'Userform1
correspondante à la ligne d'appel.

Merci d'avance de votre aide, pour aboutir