Microsoft 365 Range(Selection Adress)

walido78 · 24 Mai 2019

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é · 24 Mai 2019

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

Microsoft 365 Range(Selection Adress)

walido78

XLDnaute Nouveau

Efgé

XLDnaute Barbatruc

Discussions similaires

Microsoft 365 Range(Selection Adress)

walido78

XLDnaute Nouveau

Efgé

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency