Probleme avec le bouton modification

Bonjour,

Sur ma ligne sélectionnée ou je souhaite faire des modifications, quand je clique sur le bouton "modify", il me crée une nouvelle ligne avec les modifications apportees, ce que je ne souhaite pas!

J'aurais besoin d'un coup de main, pour que se soit la ligne sélectionnée qui soit conservée avec les modifications.

Pouvez vous m'aider ?

@+

Sur ma ligne sélectionnée ou je souhaite faire des modifications, quand je clique sur le bouton "modify", il me crée une nouvelle ligne avec les modifications apportees, ce que je ne souhaite pas!

Bonjour Dan,

En fait sur la ligne sélectionnée, je souhaiterais modifier n'importe qu'elle valeur de la ligne. Et lors de la validation des valeurs par le bouton "modify" sur cette ligne, qu'il ne me fasse pas un doublon de la ligne avec les modifcations presentes.

Votre question m'interpelle, il aurait fallu que la valeur choisie soit sur toutes les combobox 1 a 26 et textbox de 26 a 30 ?

Merci,

Cdlt,

@+

En fait sur la ligne sélectionnée, je souhaiterais modifier n'importe qu'elle valeur de la ligne. Et lors de la validation des valeurs par le bouton "modify" sur cette ligne, qu'il ne me fasse pas un doublon de la ligne avec les modifcations presentes.

Cela j'avais compris c'est mentionné dans le début du fil

Par contre vous ne répondez pas à la question posée.

Je dois savoir quelle est la référence. Donc une cellule de votre feuille où il n'y a pas de doublons possible et qui est toujours complétée dans votre userform

Ok, desole.

C'est bien la Combobox2.

Cdlt

Re Dan,

desole, se sera la Combox 1, je ferais en sorte qu’il des identifiants uniques.

Merci encore du soutien technique.

Cdlt

Juste pour confirmer

Dans la feuille les colonnes AB à AE viennent toujours bien des textbox27 à 30 ?
La colonne AA vient de la textbox 26

Cette question parce que je vois que vous avez aussi des Combo27 à 30

Bonsoir
Oui tout à fait Dan !

A+

Vous pouvez tester comme ceci

Private Sub CommandButton8_Click()
Dim ligne As Integer
Dim TS As ListObject
Dim i As Byte

Set TS = Sheets("DATABASE").ListObjects(1)
If ListBox20.ListIndex = -1 Then Exit Sub

'trouver ligne correspondant à combobox1
ligne = WorksheetFunction.Match(ListBox20.List(ListBox20.ListIndex, 0), TS.ListColumns(1).DataBodyRange, 0)

With TS
    For i = 2 To 26 'on part de la combobox2 pour compléter colonnes 2 à 26
        .DataBodyRange(ligne, i).Value = Me.Controls("Combobox" & i).Value
    Next i

    For i = 27 To 30 'compléter colonnes 27 à 30
        .DataBodyRange(ligne, i + 1).Value = Me.Controls("Textbox" & i).Value
    Next i

End With
Unload Me
MsgBox "modification done!"
MODEMIDENTIFICATION.Show
UserForm_Initialize
End Sub

Sinon il y a d'autres choses à modifier je vois.
Votre code delete par exemple..

Bonsoir

Je ne pourrais tester que demain matin.

Je vous remercie pour votre soutien.

Je vous tiens au courant

@+

Bonjour Dan,

Super, ca marche !

Merci encore.

@+