Modifier un code

[maval]

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 qui a était réaliser par Bruno45 que je salut au passage.

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

Maval

 

[Bebere]

Re : Modifier un code

bonjour maval
comme suit

 If Me.ListBox1.ListIndex > -1 Then
    Lig = 3 + Me.ListBox1.ListIndex
  ElseIf Me.ComboBox1 <> "" Then
    Lig = 3 + Me.ComboBox1.ListIndex
  End If

 

[maval]

Re : Modifier un code

Bonsoir Bebere

Et merci d'avoir répondu. Le code fonctionne en partie, je m'explique lorsque je modifie une donnée en partant de la combobox tous fonctionne très bien, lorsque je modifie une donnée en partant de la listbox j'ai les textboxs nom, prénom et nom prénom soit "Textbox 4,5 et 3" auquel je n'ai aucun problème et tous les autres textbox je ne peux pas les modifier en partant de ma listbox.

je joint mon fichier avec le modèle il seras certainement plus explicite

Cordialement

Maval

 

[Bebere]

Re : Modifier un code

bonjour maval
initialise la listbox comme suit

  With ListBox1
'    .ColumnCount = 1
'    '.ColumnHeads = True
'    .RowSource = Range("C3:C" & Range("C65536").End(xlUp).Row).Address
    .List = Range("C3:C" & Range("C65536").End(xlUp).Row).Value
  End With

 

[maval]

Re : Modifier un code

Bonjour Bebere

J'ai un message d'erreur "Permission refusée"

@+
Maval

 

[maval]

Re : Modifier un code

Re,

Excuse moi j'ai fait une boulette sa fonctionne Nickel

Je te remercie et te souhaite une bonne journée

Maval