Discussion :

[vincendie]

Bonjour tout le monde,
je sèche actuellement avec un Listbox, je m'explique:

- j'ai 1 userform avec listbox1 qui affiche le nom de mes différents onglets
- 1 textbox8 qui affiche le nom selectionné dans le listbox1
ce qui me bloque c'est que je voudrais avoir des boutons qui me permettraient de naviguer de haut en bas dans la listbox et ce afin de me permettre d'inscrire dans la feuille correspondante (affichée en textbox8) sans devoir quitter l'usf.
voilà, j'espère que vous allez pouvoir m'aider à trouver des solutions a mon problème.
Merciiiii

[boisgontierjacques]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub B_suivant_Click()
 If Me.ListBox1.ListIndex < Me.ListBox1.ListCount - 1 Then
   Me.ListBox1.ListIndex = Me.ListBox1.ListIndex + 1
  End If
End Sub
 
Private Sub b_précédent_Click()
  If Me.ListBox1.ListIndex > 0 Then
    Me.ListBox1.ListIndex = Me.ListBox1.ListIndex - 1
  End If
End Sub
 
Private Sub ListBox1_Click()
  For i = 1 To 3
     Me("TextBox" & i) = Me.ListBox1.Column(i - 1)
  Next i
End Sub

Boisgontier

[vincendie]

Impeccable!
Merci beaucoup!!!