Supprimer une ligne avec un listbox

[marcus]

Bonjours,
Voila j'ai une listBox en multiselection, sur un UserForm, qui récupère des données de 4 colonnes d'une feuille excel.
J'éssaye, en appuyant sur un boutons ,de supprimer totalement les lignes séléctionnées de la listBox de la feuille excel.
Je trouve pas le bon code, je tourne en rond.
si quelqu'un a une piste
Bon week-end

 

[Hervé]

bonjour



pourrais-tu joindre un modèle, ca nous éviterais d'avoir à construire un userform et tout le reste.

Personnellement quand je travaille avec les listbox, je rajoute toujours une colonne masqué en encodant dedans le numéro de ligne.

Ainsi quand tu boucles sur les items tu récupères en colonne 5 le numéro de la ligne à supprimer.

Attention, toujours boucler en partant de la fin lorsque l'on veut supprimer des lignes.

Salut

 

[marcus]

Merci pour ta réponse
je joint mon fichier
Ne fait pas attention au code, c'est du VBA de débutant
A+

je n'arrive pas à joindre le fichier?

Message édité par: marcus, à: 15/05/2005 13:45

 

[Hervé]

re

il faut que ton fichier, fasse moins de 50 Ko, zippé, sans accent et signe particulier.

A plus

Salut

 

[Hervé]

re

je t'ai préparé un exemple en pièce jointe.

Private Sub CommandButton1_Click()
Dim i As Integer

'avec la listbox
With ListBox1
    'si aucun élément de la listbox n'est sélectionné, sortir de la macro
    If .ListIndex = -1 Then Exit Sub
    'pour i=le nombre d'éléments de la listbox jusqu'à 0 avec un pas négatif de 1
    For i = .ListCount - 1 To 0 Step -1
        'si l'élément i est sélectionné
        If .Selected(i) = True Then
            'supprimer la ligne dont le numéro se trouve en colonne 5 de l'élément sélectionné
            Rows(.List(i, 4)).Delete
            'désélectionne l'élément
            .Selected(i) = False
        'fin de condition
        End If
    'prochain élément de la listbox
    Next i
'fin du travail avec la listbox
End With
'réinitialise la listbox
initlistbox
End Sub

Salut [file name=Classeur1_20050515142026.zip size=10142]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050515142026.zip[/file]

Message édité par: Hervé, à: 15/05/2005 14:21

 

[marcus]

ça iras plus vite




Message édité par: marcus, à: 15/05/2005 16:36

Message édité par: marcus, à: 15/05/2005 16:41

 

[marcus]

Un grand merci pour t'on aide
Je vais éssayer d'adapter le code que tu ma donner à mon projet.
Apparement c'est exactement ce que je cherchait.
encore merci et je te tient au courant
A+

 

[marcus]

Salut, c'est encore moi :woohoo:

Ton code marche nickel, mais j'ai un problème, il faud qu'il me reste au moins deux lignes de remplie sur ma feuilles pour que tout fonctionne(pour trier ,effacer,etc...) sinon j'ai une erreur.
Comment faire pour garder au moins deux lignes non éffaçable.
Je peut les cachées ?
un grand merci

 

[marcus]

Bonjours,
J'ai problême avec un textbox et je trouve pas pourquoi
si quelqu'un a le temps de jeter un p'tit coup d'oeil, se serait sympas.

 

[marcus]

J'arrive toujours pas à envoyer de fichiers [file name=essai_20050518103938.zip size=13980]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_20050518103938.zip[/file]