S sj4555 XLDnaute Junior 27 Août 2020 #1 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,
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,
Solution mapomme 27 Août 2020 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
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
S soan XLDnaute Barbatruc Inactif 27 Août 2020 #2 Bonjour sj4555, Je n'en suis pas sûr, mais cette erreur est peut-être due à des cellules fusionnées ? soan Vote positif 0 Vote négatif
Bonjour sj4555, Je n'en suis pas sûr, mais cette erreur est peut-être due à des cellules fusionnées ? soan
S sj4555 XLDnaute Junior 27 Août 2020 #3 Non, je n'ai pourtant pas de cellules fusionnées sur les feuilles où s'applique la macro. Vote positif 0 Vote négatif
S soan XLDnaute Barbatruc Inactif 27 Août 2020 #4 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 Vote positif 0 Vote négatif
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
S sj4555 XLDnaute Junior 27 Août 2020 #5 J'utilise cette ligne de code dans chacune des macros du module "TraitementDonnées" et aucune ne fonctionne. Pièces jointes fichier1.xlsm 338.9 KB · Affichages: 12 Vote positif 0 Vote négatif
J'utilise cette ligne de code dans chacune des macros du module "TraitementDonnées" et aucune ne fonctionne.
S sj4555 XLDnaute Junior 27 Août 2020 #6 J'ai essayé avec Range("B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete ça me renvoie une autre erreur : Vote positif 0 Vote négatif
J'ai essayé avec Range("B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete ça me renvoie une autre erreur :
S soan XLDnaute Barbatruc Inactif 27 Août 2020 #7 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 Vote positif 0 Vote négatif
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 XLDnaute Barbatruc Supporter XLD 27 Août 2020 #8 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 Vote positif 0 Vote négatif 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
S sj4555 XLDnaute Junior 27 Août 2020 #9 Merci pour votre aide les gars/filles ! Mapomme ta solution fonctionne parfaitement ! Vote positif 0 Vote négatif
S soan XLDnaute Barbatruc Inactif 27 Août 2020 #10 J'avais oublié le :A et :B complémentaires ; autre solution : VB: Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow.Delete soan Vote positif 0 Vote négatif
J'avais oublié le :A et :B complémentaires ; autre solution : VB: Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow.Delete soan