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

[MAN]

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

 

[job75]

Bonjour MAN,

La ListBox est sans doute remplie par sa propriété RowSource sans que la feuille soit précisée.

Dans ce cas c'est la feuille active qui est utilisée comme source.

A+

 

[MAN]

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

 

[job75]

RowSource : A2:G50 => c'est pas bon.

RowSource : A!A2:G50 => c'est bon.

RowSource : B!A2:G50 => c'est bon aussi mais différent.

 

[MAN]

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

 

[job75]

Donc vous n'utilisez pas RowSource, cette propriété doit rester vide.

Remplacez ActiveSheet par Sheets("A") ou Sheets("B") selon la feuille désirée.

 

[MAN]

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.

 

[job75]

Il est évident qu'avec ActiveSheet la source sera toujours la feuille active, un point c'est tout.