Discussion :

[crissud]

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

[crissud]

Mon problème n'est pas résolu, étant donné de l'ancienneté de ma question je dois bien alors le clôturer