W walido78 XLDnaute Nouveau 24 Mai 2019 #1 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
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é XLDnaute Barbatruc 24 Mai 2019 #2 Bonjour Un peu court comme explication… Une proposition par rapport au code fourni: VB: 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: Code: Sub sup_2() Rows(Selection.Row & ":400").Delete End Sub Cordialement Vote positif 0 Vote négatif
Bonjour Un peu court comme explication… Une proposition par rapport au code fourni: VB: 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: Code: Sub sup_2() Rows(Selection.Row & ":400").Delete End Sub Cordialement