Suppression ligne userform + feuille

bonjour le forum?

En cette période d'inactivité, j'en profite pour me replonger dans mes fichiers.

En pièce jointe, j'ai joint une partie de mon fichier principal.

Je souhaiterai lorsque je double-clique sur ma listbox supprimer la ligne de la listbox mais aussi supprimer la

la correspondant le la feuille "contacts".

Je pense y être presque arrivé, mais...

Merci de vous intéresser à mon "cas".

à bientôt de vous lire.

13essai.xlsm (103.80 Ko)

Bonjour,

un essai:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    If MsgBox("Voulez-vous vraiment supprimer :  " & Me.TextBox1.Value, vbCritical + vbYesNo + vbDefaultButton1, _
            "SUPPRESSION") <> vbYes Then Exit Sub
            'MsgBox "Cette action est irréversible"
            'MsgBox Me.ListBox1.List(Me.ListBox1.ListIndex, 0)
    ListBox1.RemoveItem (ListBox1.ListIndex)
    Sheets("contacts").Rows(Me.ListBox1.ListIndex + 2).Delete Shift:=xlUp
    Unload Me

End Sub

A+

Bonjour Algoplus,

et un grand merci pour ton aide.

C'est exactement ce que je voulais. Encore merci.

bon confinement

@+

Rechercher des sujets similaires à "suppression ligne userform feuille"