Discussion :

[Malfudan]

Bonjour,
Je souhaite pouvoir supprimer des lignes dont des cellules sont sélectionnées.
De base j’étais partie sur

Code :

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

1
2
 
Selection.rows.Delete

Mais quand je sélectionne un peu dans tous les sens et plus plusieurs cellule de la même ligne ça plante ou cela me fait un résultat aléatoire (voir ça me supprime des colonnes… ).
J'ai ensuite essayé

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim SEL as range
Dim Asup as string 
 
For each SEL in selection
        Asup = SEL.Row
        Union(Selection, Rows(Asup))).Select
Next SEL
Selection.Delete

Ça ne marche toujours pas à chaque fois en fonction de ce que je sélectionne et en plus si je sélectionne une ligne entière par inattention le temps de traitement est super long vue que cela ajoute chaque cellule à la selection … (je ne sais pas comment ajouter la condition -> si déjà présent dans la sélection alors…).

Si vous avez une solution pour supprimer les lignes dont on a sélectionner des cellules je suis preneur (n’importe quel ordre de selection , pas forcement dans la même colonne, plusieur cellule sélectionnable dans la même colonne)
Là je galère un peu …

[Pierre Fauconnier]

Salut

Code :

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

Selection.EntireRow.Delete

[Malfudan]

Hello merci, j’avais essayé ce code et il plante aussi 😅.
En fonction du type de sélection.

[Ben_L]

Bonjour,

Il faut juste adapter un peu le code qui vous a été fourni par Pierre Fauconnier. Votre code plante car vous demandez à VBA de supprimer plusieurs fois la même ligne.
Essayez par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Public Sub SupprSel()
    Dim Rng As Variant, Cll As Range, Dct As Object, Addr As String
    Set Dct = CreateObject("Scripting.Dictionary")
    For Each Cll In Selection
        Addr = "'" & Cll.Parent.Name & "'!" & Cll.EntireRow.Address(External:=False)
        If Not Dct.exists(Addr) Then _
            Dct.Add Addr, Cll.EntireRow
    Next Cll
    For Each Rng In Dct.items
        Rng.Delete
    Next Rng
End Sub

Je n'ai fait des tests que pour le cas où les cellules sélectionnées sont toutes dans le classeur contenant la macro.

Et au risque de poser une question naïve : avez-besoin de ces sélections ?

Cdt

[Malfudan]

Bonjour,

Il faut juste adapter un peu le code qui vous a été fourni par Pierre Fauconnier. Votre code plante car vous demandez à VBA de supprimer plusieurs fois la même ligne.
Essayez par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Public Sub SupprSel()
    Dim Rng As Variant, Cll As Range, Dct As Object, Addr As String
    Set Dct = CreateObject("Scripting.Dictionary")
    For Each Cll In Selection
        Addr = "'" & Cll.Parent.Name & "'!" & Cll.EntireRow.Address(External:=False)
        If Not Dct.exists(Addr) Then _
            Dct.Add Addr, Cll.EntireRow
    Next Cll
    For Each Rng In Dct.items
        Rng.Delete
    Next Rng
End Sub

Je n'ai fait des tests que pour le cas où les cellules sélectionnées sont toutes dans le classeur contenant la macro.

Et au risque de poser une question naïve : avez-besoin de ces sélections ?

Cdt

Merci je vais essayer, non je n’ai pas besoin de sélectionner j’ai seulement besoin de supprimer les lignes.

[Pierre Fauconnier]

Salut Ben,

Ne sachant quelle sélection pourrait être effectuée, les lignes de mes sélections ne se superposaient pas.

Bien vu