Microsoft 365 Bug fonction Entire row delete

sj4555

XLDnaute Junior
Bonjour à tous,

J'ai un fichier excel de traitements de données avec tout un tas de macros dont une contenant la ligne :

Range("A:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Celle-ci ne m'a pas posé problème jusqu'à présent mais maintenant l'exécution de la macro s'arrête à cette ligne avec le message d'erreur :

erreur
Quand j'essaye sur cette ligne sur une feuille excel test cela fonctionne, c'est avec mon classeur que le bug apparaît

Merci pour votre aide,
 
Solution
Bonjour,

En remplaçant la ligne en cause par les deux lignes ci-dessous, ça fonctionne:
VB:
    Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Range("b:b").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

soan

XLDnaute Barbatruc
Alors c'est comme l'indique la boîte de dialogue de l'erreur :

Il y a des sélections qui se superposent (= se chevauchent).
Sans ton fichier, je ne peux pas t'en dire plus.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Peut-être que ça marchera mieux sur une seule colonne à la fois ?

Range("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

soan
 

sj4555

XLDnaute Junior
J'ai essayé avec Range("B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

ça me renvoie une autre erreur :
new_error.png
 
Haut Bas