Microsoft 365 Bug fonction Entire row delete

[sj4555]

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 :


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,

 

[soan]

Bonjour sj4555,

Je n'en suis pas sûr, mais cette erreur est peut-être due à des cellules fusionnées ?

soan

 

[sj4555]

Non, je n'ai pourtant pas de cellules fusionnées sur les feuilles où s'applique la macro.

 

[soan]

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]

J'utilise cette ligne de code dans chacune des macros du module "TraitementDonnées" et aucune ne fonctionne.

 

[sj4555]

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

ça me renvoie une autre erreur :

 

[soan]

Ce lien pourra t'aider :

Supprimer des lignes vides pour deux colonnes

Bonjour à tous, Pour supprimer des lignes vides dans la colonne N et O, je dois chercher les cellules vides dans la colonne O. Une fois trouvée, je devrais supprimer la ligne x : Nx:Ox J'ai utilisé la

answers.microsoft.com

soan

 

[mapomme]

Bonjour,

En remplaçant la ligne en cause par les deux lignes ci-dessous, ça fonctionne:

    Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Range("b:b").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

 

[sj4555]

Merci pour votre aide les gars/filles !

Mapomme ta solution fonctionne parfaitement !

 

[soan]

J'avais oublié le :A et :B complémentaires ; autre solution :

Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

soan