bonjour le forum
je vais esayé de mieux m'expliqué :
quand je sélectionne la feuille "petchy" pas de probleme la listbox est bien renseigné,mais si je sélectionne un autre feuille "toto" il reprend les informations de la feuille "petchy",car l'USF sert pour toute les feuilles,comment faire si je sélectionne la feuille "toto" je récupère les infos de cette feuille dans la listbox et les textbox.
je crois que c'est plus clair
merci
Private Sub UserForm_Initialize()
Dim C As Range
Dim L As Integer
Dim CTRL As Control
Dim Plage As String
Set ActuelWkbk = ThisWorkbook
With ActuelWkbk
Set WsBase = .Worksheets("petchy")
End With
ListBox1.Clear
For Each C In Range("F5:F" & Range("F65536").End(xlUp).Row)
ListBox1.AddItem C
Next
For Each CTRL In Controls
If CTRL.Tag = "IniTextBox" Then
With CTRL
.Value = ""
.Enabled = False
End With
End If
Next
End Sub
Private Sub ListBox1_Click()
Dim Cell As Object
Dim H As Integer
Dim maille As Boolean
NomLBindex = ListBox1.ListIndex + 5
TextBox1 = WsBase.Range("F" & NomLBindex)
TextBox2 = WsBase.Range("E" & NomLBindex)
TextBox3 = WsBase.Range("G" & NomLBindex)
TextBox5 = WsBase.Range("H" & NomLBindex)
With Range("f5:f" & Range("A65536").End(xlUp).Row)
Set Cell = .Find(ListBox1, LookIn:=xlValues)
CommandButton3.Visible = True
End With
Exit Sub
CommandButton3.Visible = True
CommandButton10.Visible = True
End Sub
@ plus
petchy