Code pour Modifier les données

Bonjour,

J'ai un USF auquel j'aimerai lui apporter une modification. Je voudrais lui ajouter un code pour modifier les données se trouvant sur ma feuille.

Je vous remercie d'avance.

Cordialement

Maval

Bonjour Max18

Une possibilité

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("C" & Lig).Value = Me.TextBox3
    ' Etc ...
  End With
End Sub

A+

Bonsoir,

J'ai un problème j'ai mis le code suivant:

    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("C" & Lig).Value = Me.TextBox3
        .Range("D" & Lig).Value = Me.TextBox4
        .Range("E" & Lig).Value = Me.TextBox5
        ' Etc ...
     End With

Le problème est: que je modifie en partant de la combobox mais pas avec en partant de la listbox

Merci

@+

Max

Re,

Personne pour me donner une idée

Cordialement

Max

Salut Max18

J'y ai normalement pensé

As-tu essayé le code quel problème as-tu !?

A+

Bonsoir Bruno

Je peux modifier sans problème en partant de la combobox mais si je part de la listbox sa ne fonctionne pas

Cordialement

Max