Microsoft 365 Range(Selection Adress)

[walido78]

Bonjour,
J'ai un petit bug au niveau de mon code
Sub Suppr_Ligne_Vide_Cliquer()
Plage = Selection.Address
Range("Plage:W400").Select
Selection.EntireRow.Delete
End Sub

 

[Efgé]

Bonjour

Un peu court comme explication…

Une proposition par rapport au code fourni:

Sub Suppr_Ligne_Vide_Cliquer()
Plage = Selection.Address
Range(Plage & ":W400").Select
Selection.EntireRow.Delete
End Sub

Et une version pour éliminer ces vilains Select:

 Sub sup_2()
Rows(Selection.Row & ":400").Delete
End Sub

Cordialement