Modifier dans la listbox et textbox en cas de recherche

Bonjour

svp j'ai utilisé ce code pour modifier les données mais il ne modifie pas la ligne correcte si je recherche une ligne spécifique

Dim Ligne As Long

    If ListBox1.ListIndex = -1 Then Exit Sub
    Ligne = ListBox1.ListIndex + 2

    Range("B" & Ligne) = TextBox1
    Range("C" & Ligne) = TextBox2
    Range("D" & Ligne) = TextBox3
    Range("E" & Ligne) = ComboBox1
    Range("F" & Ligne) = ComboBox2
    Call UserForm_Initialize

Aussi dans le bouton Supprimer

Merci

Bonjour

Dans votre userform, modifiez remplacez le code par celui ci-dessous

Private Sub CommandButton3_Click()
Dim Ligne As Long, s As String, lr As Long, x As Long
    If ListBox1.ListIndex = -1 Then Exit Sub
    Ligne = Range("A:A").Find(ListBox1.List(ListBox1.ListIndex, 0), LookIn:=xlValues).Row
    Range("B" & Ligne) = TextBox1
    Range("C" & Ligne) = TextBox2
    Range("D" & Ligne) = TextBox3
    Range("E" & Ligne) = ComboBox1
    Range("F" & Ligne) = ComboBox2
    Call UserForm_Initialize
    Call vide
End Sub

Cordialement

Merci beauuuuucoup

Est ce que possible l'utilisé pour la suppression ?

Re

Ben votre code est plus ou moins bon. Toutefois, mettez celui-ci à la place

Private Sub CommandButton2_Click()
Dim Indexlist
Indexlist = ListBox1.ListIndex + 2
If Indexlist < 2 Then Exit Sub
Sheets("Feuil1").Rows(Indexlist).Delete
Call UserForm_Initialize
Call vide
End Sub

Cordialement

Bonsoir

Mais il ne supprime pas la ligne spécifiée en cas de recherche, il supprime la première ligne

Merci pour votre attention

Re

En se basant sur le code de modification, remplacez le code Private Sub CommandButton2_Click() par celui ci-dessous

Private Sub CommandButton2_Click()
Dim ligne As Long
If ListBox1.ListIndex = -1 Then Exit Sub
ligne = Range("A:A").Find(ListBox1.List(ListBox1.ListIndex, 0), LookIn:=xlValues).Row
Sheets("Feuil1").Rows(ligne).Delete
Call UserForm_Initialize
Call vide
End Sub

Cordialement

Merci bcp bcp

salutations à vous