Discussion :

[maxval18]

Bonjour,

J'ai un USF avec combobox et listbox ou j'ai un petit souci quand je veut modifier une ligne en passant par la combobox je n'ai aucun problème. Si je passe la listbox sa ne modifie rien?

Ci joint mon code

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
Private Sub CommandButtonModifierleclient_Click()
  Dim Lig As Long
  ' modifications
 If Me.ListBox1.ListIndex > -1 Then
    Lig = 3 + Me.ListBox1.ListIndex
  Else
    Lig = 3 + Me.ComboBox1.ListIndex
  End If
  With Sheets("Adm.")
    .Range("B" & Lig).Value = Me.ComboBox2
    .Range("D" & Lig).Value = Me.TextBox4 ' Ne pas inverser l'ordre des TextBox 4, 5, 3
    .Range("E" & Lig).Value = Me.TextBox5  'Ne pas inverser l'ordre des TextBox 4, 5, 3
    .Range("C" & Lig).Value = Me.TextBox3  'Ne pas inverser l'ordre des TextBox 4, 5, 3
    .Range("J" & Lig).Value = Me.TextBox9
    .Range("K" & Lig).Value = Me.TextBox10
    .Range("F" & Lig).Value = Me.TextBox6
    ' Etc ...
 End With
 
End Sub

Cordialement

Max

[gFZT82]

Bonjour,

Le seul problème que je vois dans ton code, c’est que dès l’instant où une ligne de la ListBox a été sélectionnée, la sélection d’une ligne de la ComboBox est inopérante.
Pour permettre cette sélection, tu peux forcer ListIndex à -1 après chaque sélection dans la ListBox.

Code :

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

1
2
3
4
5
6
If Me.ListBox1.ListIndex > -1 Then 
	Lig = 3 + Me.ListBox1.ListIndex 
	Me.ListBox1.ListIndex = -1
Else 
	Lig = 3 + Me.ComboBox1.ListIndex 
End If

Cordialement.

[maxval18]

Bonjour gFZT82

Je te remercie d'avoir répondu, mais sa n'a rien donnée, sa marche bien avec la combobox mais en sélectionnant par la listbox sa ne fonctionne pas je ne comprend pas ?

Cordialement

Max

[gFZT82]

J’ai fait le test avec un Userform comprenant une ComboBox, une ListBox et un CommandButton pour lancer le traitement et je n’ai pas rencontré de problème. Le numéro de ligne pris en compte est bien celui qui correspond à la ligne de la ComboBox ou ListBox selon le choix effectué.
La vérité est ailleurs ?

[maxval18]

Re,

Ci joint mon fichier qui seras plus efficace

[gFZT82]

Je ne comprends pas mieux.
Dans ton Userform, je peux sélectionner les noms indifféremment dans la ListBox ou ComboBox.