Supprimer sélection liste userform

[OUIZEMANN]

Bonjour,

Je suis à la recherche d'une solution pour supprimer une sélection de mots qui se trouvent dans une liste d'un userform.

Je vous joint mon fichier. J'ai pu trouver la solutions permettant d'ajouter des mots, mais je n'arrive pas à faire l'inverse.

Merci par avance de votre aide.

 

[kjin]

Re : Supprimer sélection liste userform

Bonsoir,

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

A+
kjin

 

[youky(BJ)]

Re : Supprimer sélection liste userform

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

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

Bruno

 

[kjin]

Re : Supprimer sélection liste userform

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

 

[youky(BJ)]

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

 

[OUIZEMANN]

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.