Supprimer un client

MJ13

XLDnaute Barbatruc

• 25 Janvier 2011

• #2

Re : Supprimer un client

Bonjour max

A développer 🙂:

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Janvier 2011

• #3

Re : Supprimer un client

Bonjour Max, Michel🙂

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

Code:

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

bonne journée
@+

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 25 Janvier 2011

• #4

Re : Supprimer un client

Bonjour apdf1,

Voici le code à mettre dans CommandButton2_Click :

Code:

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.

 

Dernière édition: 25 Janvier 2011

Vote positif 0 Vote négatif

Gruick

XLDnaute Accro

• 25 Janvier 2011

• #5

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

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 25 Janvier 2011

• #6

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)

 

Vote positif 0 Vote négatif