Discussion :

[abeilles26]

Bonsoir à tous,

J'ai beau chercher je ne trouve pas! Mon problème est le suivant:
1/ J'ai un formulaire qui contient:
- Une date (via le controle date and time picker)
- Un bouton "remplissage"
- Un bouton "delete selection"
- Une listbox en mode multi-select extended, comprenant plusieurs colonnes

2/ La listbox est remplie par une recherche de la date dans une feuille différente et les différentes colonnes comprennent les informations correspondantes à l'entrée trouvée. La première colonne reprend le numéro de la ligne en question dans la feuille

3/ Là ou le bas blesse:
Une fois les lignes que l'on désire supprimer de la feuille originale, je voudrais que en appuyant sur le bouton "delete", toutes les lignes correspondantes se suppriment mais uniquement celles-là (supprimer uniquement une ligne en cas de doublons par exemple)

4/ Je suis partie sur une recherche du numéro de ligne qui une fois trouvée doit être supprimée MAIS du fait de la suppression, tous les numéros de lignes qui suivent changent. Le code est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub deletion()
 
Dim todele As Integer
Dim i As Long, x
With Me.ListBoxChoosen
 
        For i = 0 To .ListCount - 1
        If .Selected(i) Then
            todele = CInt(ListBoxChoosen.List(i, 0))
            Worksheets("offs").Rows(todele - 1).Delete
        End If
    Next
End With
 
End Sub

Auriez-vous une solution ou une piste a exploiter? Promis j'ai déja beaucoup chercher dans les topics précédents, si j'ai rater celui qui peut m'aider, je vous prie de m'excuser.

Merci d'avance en tous les cas,

Isabelle

[Guiiand]

Bonjour,

Pour contrer ce genre de problème innérant à la suppression, il faut partir de la fin et remonter jusqu'au début, ainsi, les lignes qui restent à supprimer se situent AVANT celle que l'on vient de supprimer.

Aussi, remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = 0 To .ListCount - 1

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = .ListCount - 1 to 0 step -1

Bonne journée

[abeilles26]

UN GRAND MERCI!!!! (je me sens particulièrement bête de pas y avoir pensé)

[Guiiand]

Re,

N'oublie pas de marquer ton post comme résolu, et pense au petit pouce vert :p