Modifier un code

Version imprimable

Modifier un code

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:

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

08/08/2012, 16h59
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:

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.
08/08/2012, 17h26
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
08/08/2012, 17h43
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 ?
08/08/2012, 17h50
maxval18

1 pièce(s) jointe(s)

Re,

Ci joint mon fichier qui seras plus efficace
08/08/2012, 18h04
gFZT82

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

Re,

Oui tu peux sélectionner les noms indifféremment dans la ListBox ou ComboBox, mais tu ne peux rien modifier en partant le la listbox alors qu'en partant de la combobox cela est possible.

@+
08/08/2012, 18h28
gFZT82

Place un point d'arrêt sur la ligne

Code:

If Me.ListBox1.ListIndex > -1 Then

et regarde ce qui se passe en pas à pas lorsque tu sélectionnes un nom avec la ListBox.
08/08/2012, 18h37
maxval18

Oui ?

Mais rien de spécial.....

En pas à pas, tu peux constater que la ligne

Code:

Me.ListBox1.ListIndex = -1

provoque l’évènement ListBox1_Change() qui va réinitialiser les contrôles avec un numéro de ligne erroné puisque ListIndex = -1.
Tu dois donc placer cette instruction en fin de traitement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton8_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
        .Range("P" & Lig).Value = "Modifié le: " & "  " & Format(Now, "dd/mm/yyyy") & "  " & " à " & Format(Now, "hh:mm:ss")
        ' Etc ...
    End With
    Me.ListBox1.ListIndex = -1
End Sub

Cordialement.

08/08/2012, 18h59
maxval18

Re,

Je te remercie beaucoup sa marche nickel...!

Je te souhaite une bonne soirée

Max