Sheets("petchy").Activate

[petchy]

Bonsoir le Forum,

J'ai encore un probleme,j'ai une dizaine de feuilles,je click sur un bouton et un USF apparait,à l'intérieur il y a une listbox ou il y à une liste qui se trouve sur la feuille qui est sélectionnée.Mais quand je change de feuille se code ne fonctionne pas,car la feuille "petchy" n'est pas activé.
quel est le code pour faire activé la feuille qui est sélectionné,car l'USF sert pour toute les feuilles
Sheets("petchy").Activate
j'espere que c'est clair
merci

 

[Arnaud]

salut,

je t'avou que j'ai un peu de mal à comprendre la 🙁 enfin on va mettre ça sur le fait qu'il est encore tôt et que je ne suis pas réveillé 🙂.
tu n'aurai pas un petit classeur a joindre en exemple cela sera beaucoup plus simple.

 

[petchy]

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

 

[Arnaud]

remplace
Set WsBase = .Worksheets("petchy")
par
Set WsBase = .ActiveSheet

 

[petchy]

salut Arnaud


je vois que tu est réveillé,car ça fonctionne super bien.

merci beaucoup.