XL 2010 l'userform dont la list box n'est pas stable

MAN

XLDnaute Occasionnel
bonjour le forum. bonjour a tous.
j'ai un userform que j'appelle Userform1 .
cet userform est le meme dans tous le classeur a structure identique.
pour toute feuille 'A'nous avons un bouton qui appelle cet userform
Private Sub CommandButton1_Click()
Sheets("A").Unprotect
UserForm1.Show

jusqu'ici, pas de problèmes
dans cet userform, il y a un listbox qui répons au code suivant.
Private Sub ListBox1_Click()
lig = Me.ListBox1.ListIndex
With ListBox1
ComboBox1 = ListBox1.List(ListBox1.ListIndex, 0)
TextBox1 = ListBox1.List(ListBox1.ListIndex, 1)
End With
Me.Enreg = Me.ListBox1.List(lig, 2)
End Sub

le problème est que la sélection de la list box n'est pas toujours fidèle aux données de la feuille de travail comme celà doit se passer. des fois, pour une feuille 'A', la list box affiche les données d'une feuille 'B'. comment stabiliser cet userform .
merci d'avance
 

MAN

XLDnaute Occasionnel
merci job 75. la listbox est vraiment remplie par cette propriété. malheureusement, quant on appelle l'userform dans la feuille 'A' par exemple, avec ses données, on ouvre ensuite l'Userform dans la feuille 'B', les données de la feuille 'A' apparaissent dans l'userform alors que ce sont celles de la feuille 'B' qui devaient apparaitre. et celà perturbe fortement mon travail. c'est çà le problème. faire que l'userform ainsi que la list box ne puisse pas avoir cette défaillance. il doit y avoir une ligne de code qui m'échappe.
merci encore
 

MAN

XLDnaute Occasionnel
N'étant pas capable de comprendre, je vous rements le code de remplissage de la list box.
Sub Listerenseigne()
a = ActiveSheet.Range("S8:T" & [S65000].End(xlUp).Row).Value
Me.ListBox1.Clear
For I = 1 To UBound(a)
If a(I, 2) <> "" Then
Me.ListBox1.AddItem
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = a(I, 1)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = a(I, 2)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = I + 7
End If
Next I

End Sub

je procède comment?.
 

MAN

XLDnaute Occasionnel
merci baucoup Job75.
si nous procédons a préciser la feuille, nous aurons les problèmes parceque l'userform est unique pour le fichier. nous ne pouvons utilliser que 'ActiveSheet' car si on précise la feuille, alors qu'il en a plusieurs centaines, ce ne sera pas possible. nous devrons créer par conséquent des centaines d'userform.
c'est une difficulté que nous devons contourner.
 

Discussions similaires