Userform - creer un bouton modifier qui ne fait pas de doubl

Bonjour,

J'ai créé un formulaire qui permet de soit ajouter des données à un tableau soit modifier ces données.

Le problème c'est que lorsque je fais la modifications, au lieu de modifier directement la ligne concerné, il va me rajouter une nouvelle ligne avec les nouvelles modifications.

Donc ma question est comment faire pour que lorsque je souhaites faire une modification, il ne m'ajoute pas une nouvelle ligne ?

Private Sub Cmd_Modifier_Click()
    flag = 1
    With Worksheets("données")
        ln = Worksheets("données").Range("F4:F" & .Range("F" & Rows.Count).End(xlUp).Row).Find(ComboBox1, lookat:=xlWhole).Row
        For i = 1 To 26
          Worksheets("données").Cells(ln, i) = Controls("TextBox" & i).Value
          Controls("TextBox" & i).Value = ""
        Next i
        ComboBox1.ListIndex = -1
    End With
    MsgBox "La modification a été prise en compte."
End Sub

Merci à vous

François

Bonjour

Tu devrais joindre ton fichier, même en modifiant les données bidons...

Bye !

gmb a écrit :

Bonjour

Tu devrais joindre ton fichier, même en modifiant les données bidons...

Bye !

Je viens de le faire, le fichier était trop lourd

François

Alors, essaie en passant par http://www.cjoint.com

Bye !

gmb a écrit :

Alors, essaie en passant par http://www.cjoint.com

Bye !

Merci, j'ai modifié la mise en forme mais pour la prochaine fois je serais que l'on peut passer par ce site.

François