Supprimer sélection liste userform

K

kjin

XLDnaute Barbatruc

• 30 Septembre 2010

• #2

Re : Supprimer sélection liste userform

Bonsoir,

Code:

Private Sub CommandButton2_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
Sheets("CAS2").Range("A" & ListBox1.ListIndex + 1).Delete xlUp
End Sub

A+
kjin

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 30 Septembre 2010

• #3

Re : Supprimer sélection liste userform

Bonsoir,
Il serait bon de nommer ta liste avec la formule =DECALER....
Voici pour le bouton

Code:

Private Sub CommandButton2_Click()
Sheets("CAS2").Rows(Me.ListBox1.ListIndex + 1).Delete
End Sub

Bruno

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 30 Septembre 2010

• #4

Re : Supprimer sélection liste userform

Bonsoir Bruno,
Qu'advient-il si aucune sélection dans la ListBox ?
Pourquoi supprimer la ligne ?
A+
kjin

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 1 Octobre 2010

• #5

Re : Supprimer sélection liste userform

Bonjour kjin,
Désolé, pas vu ton message lors de mon envoi.
En effet j'ai zappé si pas de selection. . .
Pourquoi la ligne plutot que le range . . .je pensais à une BD
Ouizermann choisira selon.
Bonne journée kjin
Bruno

 

Vote positif 0 Vote négatif

O

OUIZEMANN

XLDnaute Junior

• 1 Octobre 2010

• #6

Re : Supprimer sélection liste userform

Bravo et merci pour votre réponse rapide.
C'est exactement ce qu'il me faut.
A bientôt.

 

Vote positif 0 Vote négatif