Tester si on a sélectionné quelque chose avant de supprimer

[siocnarf]

Bonjour,

Je me heurte à une réalité que je n'avais pas rencontré auparavant.

ActiveSheet.UsedRange.Select ' Je suis dans une situation ou je ne sélectionne rien car il n'y a rien à sélectionner.

Selection.EntireColumn.Delete 'En conséquence cette action provoque une erreur.

J'ai le même problème avec:
Rows("1:1").Select
Selection.Delete Shift:=xlUp--> Provoquera une erreur si la ligne est vide.

Comment puis-je éviter que Selection.EntireColumn.Delete ne provoque une erreur faute d'avoir réussi à sélectionner quelque chose?

Merci,

François Racine

 

[Guest]

Re : Tester si on a sélectionné quelque chose avant de supprimer

Bonsoir,

soit

 Dim plg As Range
 Set plg = ActiveSheet.UsedRange
 If Not plg Is Nothing Then plg.EntireColumn.Delete

Ou encore

If Not ActiveSheet.UsedRange Is Nothing Then ActiveSheet.UsedRange.EntireColumn.Delete

En plus cela évite les Select inutiles.

A+

 

[siocnarf]

Re : Tester si on a sélectionné quelque chose avant de supprimer

Bonjour,

J'ai le même problème avec:
Rows("1:1").Select
Selection.Delete Shift:=xlUp--> Provoquera une erreur si la ligne est vide.

Merci,

François Racine

 

[Guest]

Re : Tester si on a sélectionné quelque chose avant de supprimer

Bonjour,

Chez moi, sous excel 2002 et 2007 cela ne provoque pas d'erreur. Certainement que "la vérité est ailleurs...."

A+