Supprimer un client

[apdf1]

Bonjour,

J'aimerais via mon bouton supprimer un client de ma listbox et sur ma feuille.

Je vous remercie d'avance.

Cordialement

Max

 

[MJ13]

Re : Supprimer un client

Bonjour max

A développer 🙂:

' Supprimer un client
Private Sub CommandButton2_Click()
MsgBox ListBox1.ListIndex
End Sub

 

[Pierrot93]

Re : Supprimer un client

Bonjour Max, Michel🙂

une autre solution pour le supprimer de la "listbox" :

With ListBox1
    If .ListIndex <> -1 Then .RemoveItem (.ListIndex)
End With

bonne journée
@+

 

[Papou-net]

Re : Supprimer un client

Bonjour apdf1,

Voici le code à mettre dans CommandButton2_Click :

Private Sub CommandButton2_Click()
Dim Fact As String, Lg As Long

Fact = TextBox3.Text
With Sheets("Feuil1")
  Lg = .Range("D:D").Find(Fact, LookIn:=xlValues).Row
  .Cells(Lg, 1).EntireRow.Delete
End With
UserForm_Initialize
End Sub

Espérant avoir répondu.

Cordialement.

Edit : oups, bonjour Michel et Pierrot.

 

[Gruick]

Re : Supprimer un client

Ciao apdf1,

Vu le titre du fil, mes lointaines origines siciliennes ont une solution avec la version 6.35 d'excel......

Gruick

 

[apdf1]

Re : Supprimer un client

Re,

Je vous remercie beaucoup Pierrot, Michel,Papou et Gruick

Pour Gruick étant moi même dorigines italien par ma mére je ne peut avoir que des titres de fil comme sa (rire)