Suppression de lignes dont les cellules sont sélectionnées via vba

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

Code:

---

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:

---

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 …

Salut

Code:

---

Selection.EntireRow.Delete

---

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

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:

---

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

Salut Ben,

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

Bien vu :plusser:

Citation:

---

Envoyé par 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:

---

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.