Supprimer une ligne avec un listbox

Hervé

XLDnaute Barbatruc

• 15 Mai 2005

• #2

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

 

Vote positif 0 Vote négatif

M

marcus

Guest

• 15 Mai 2005

• #3

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

 

Pièces jointes

• Gestion.zip

  3.3 KB · Affichages: 175
• Gestion.zip

  3.3 KB · Affichages: 172
• Gestion.zip

  3.3 KB · Affichages: 187

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 15 Mai 2005

• #4

re

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

A plus

Salut

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 15 Mai 2005

• #5

re

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

Code:

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

 

Pièces jointes

• Classeur1_20050515142026.zip

  9.9 KB · Affichages: 534

Vote positif 0 Vote négatif

M

marcus

Guest

• 15 Mai 2005

• #6

ça iras plus vite 😉




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

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

 

Vote positif 0 Vote négatif

M

marcus

Guest

• 15 Mai 2005

• #7

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+ 🙂

 

Vote positif 0 Vote négatif

M

marcus

Guest

• 16 Mai 2005

• #8

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

 

Vote positif 0 Vote négatif

M

marcus

Guest

• 18 Mai 2005

• #9

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.

 

Vote positif 0 Vote négatif

M

marcus

Guest

• 18 Mai 2005

• #10

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]

 

Pièces jointes

• essai_20050518103938.zip

  13.7 KB · Affichages: 286

Vote positif 0 Vote négatif