Discussion :

[Reis71]

Bonjour,

Je sollicite votre aide pour un formulaire de saisie pour une liste déroulante et le bouton Ajouter du UserForm si vous pouvez m'aider svp!
La méthode le plus simple était via un bouton de recherche mais si possible je souhaite utiliser via la liste déroulante

Merci
@+

USERFORM CLIENT.xlsm

[Invité]

Bonjour Reis71

Voici le code corrigé

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
18
19
20
21
22
Option Explicit
 
Dim ws As Worksheet
 
 
Private Sub UserForm_Initialize()
  ComboBox1.ColumnCount = 1
  Set ws = Sheets("CLIENT")
  Me.ComboBox1.List = ws.Range("T_Client").Value
End Sub
 
 
Private Sub ComboBox1_Change()
  Dim Ligne As Long, Ind As Integer
 
  If Me.ComboBox1.ListIndex = -1 Then Exit Sub
  ' List Index commence à 0, donc
  Ligne = 2 + ComboBox1.ListIndex
  For Ind = 1 To 6
    Me.Controls("TextBox" & Ind) = ws.Cells(Ligne, 1 + Ind)
  Next Ind
End Sub

A+

[Reis71]

Bonjour Reis71

Voici le code corrigé

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
18
19
20
21
22
Option Explicit
 
Dim ws As Worksheet
 
 
Private Sub UserForm_Initialize()
  ComboBox1.ColumnCount = 1
  Set ws = Sheets("CLIENT")
  Me.ComboBox1.List = ws.Range("T_Client").Value
End Sub
 
 
Private Sub ComboBox1_Change()
  Dim Ligne As Long, Ind As Integer
 
  If Me.ComboBox1.ListIndex = -1 Then Exit Sub
  ' List Index commence à 0, donc
  Ligne = 2 + ComboBox1.ListIndex
  For Ind = 1 To 6
    Me.Controls("TextBox" & Ind) = ws.Cells(Ligne, 1 + Ind)
  Next Ind
End Sub

A+

Bonjour Bruno45,

Merci beaucoup c'est parfait.
Je vais voir de pour ajouter.

@+