Suppression d'une ligne sur listbox et tableau en même temps

Bonsoir tout le monde,

j'ai un journal sur une listbox alimenté par un tableau (base de donnée).

en double cliquant sur la ligne de la listbox, j'arrive à supprimer la ligne dans la listbox mais pas dans le tableau qui l'alimente.

Quelle est le code qui pourrait supprimer ces informations sur la listbox et le tableau en même temps ?

Merci beaucoup pour votre aide.

Private Sub List_InterventionMach_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

If Me.List_InterventionMach.ListIndex >= 0 Then
    If MsgBox("Voulez-vous Supprimer la ligne historique " & Inter_Machines.Numéro.Caption & " ?", vbYesNo + vbCritical) = vbYes Then

        Me.List_InterventionMach.RemoveItem Me.List_InterventionMach.ListIndex

    End If
End If

End Sub

Salut,

Private Sub List_InterventionMach_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    ' // On va supposer que tu travaille avec un tableau structuré je l'espère en tous cas
    ' // Sinon cela ne marchera pas

    Dim lngIndex As Long

    With Me.List_InterventionMach
        If .ListIndex >= 0 Then
            If MsgBox("Voulez-vous Supprimer la ligne historique " & Inter_Machines.Numéro.Caption & " ?", vbYesNo + vbCritical) = vbYes Then

                .RemoveItem .ListIndex
                ' // on récupère l'index de la ListBox
                lngIdex .ListIndex
              Range("Le nom de ton tableau tructuré").ListObject.ListRows(lngIndex).Delete
            End With

        End If
    End If

End Sub

Salut,

merci pour ton aide.

Mais, il y a un souci avec la listdex.

Bonjour Jacko,

Une autre approche :

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

 With Me.ListBox1

  If .ListIndex >= 0 Then

   If MsgBox("Voulez-vous supprimer la ligne du tableau ?", vbYesNo + vbCritical) = vbYes Then

    .RemoveItem .ListIndex Range("Tableau1")

    .ListObject.ListRows(Me.ListBox1.ListIndex + 1)

    .Delete

   End If

  End If

 End With

 MsgBox "La ligne du tableau a été supprimée !"

End Sub

Salut,

je ne me suis pas relu

donc modifications à apporter

Private Sub List_Intervention_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    Dim lngIndex As Long

    With Me.List_Intervention
        If .ListIndex >= 0 Then
            If MsgBox("Voulez-vous Supprimer la ligne historique " & Inter.Numéro.Caption & " ?", vbYesNo + vbCritical) = vbYes Then

                .RemoveItem .ListIndex
                ' // on récupère l'index de la ListBox
                lngIndex = .ListIndex + 1
                Range("Tableau2").ListObject.ListRows(lngIndex + 1).Delete

            End If
        End If
    End With
End Sub

De plus change le code dans Userform_Activate

Private Sub UserForm_Activate()
    With Me.List_Intervention
        .Clear
        .List = Range("Tableau2").ListObject.DataBodyRange.Value
    End With
End Sub

Et y'a pas que cela.....