Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Lignes vides

6 réponses
Avatar
Pascal
Bonjour,
Je ne comprends pas pourquoi ce code:
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Ne me supprime pas toutes les lignes vides.
Il le fait de manière aléatoire, mais il me reste beaucoup de lignes vides.
J'ai essayé beaucoup de codes et auciun ne fonctionne réellement quelqu'un
aurait-il la solution.

Merci
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-5, 08/07/2007
Analyse le : 09/07/2007 09:40:35
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

6 réponses

Avatar
AV
Je ne comprends pas pourquoi ce code:
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Ne me supprime pas toutes les lignes vides.


C'est que tes lignes ne sont pas vraiment vides (?) car, en l'état, ce code doit
faire ce que demandé

AV

Avatar
Pascal
C'est bien cela mais j'ai beau regarder il n'y a rien dedans, donc je
reformule ma question. Vide c'est quoi pour XL??


"AV" a écrit dans le message de news:

Je ne comprends pas pourquoi ce code:
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Ne me supprime pas toutes les lignes vides.


C'est que tes lignes ne sont pas vraiment vides (?) car, en l'état, ce
code doit faire ce que demandé

AV



---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-5, 08/07/2007
Analyse le : 09/07/2007 10:07:16
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-5, 08/07/2007
Analyse le : 09/07/2007 10:08:03
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


Avatar
AV
C'est bien cela mais j'ai beau regarder il n'y a rien dedans, donc je
reformule ma question. Vide c'est quoi pour XL??


Ben comme pour tout le monde : qui ne contient rien !
Mets un extrait sur http://www.cjoint.com qu'on y jette un oeil

AV

Avatar
Pascal
Ici
http://www.cijoint.fr/cij80047174918937.xls

"AV" a écrit dans le message de news:

C'est bien cela mais j'ai beau regarder il n'y a rien dedans, donc je
reformule ma question. Vide c'est quoi pour XL??


Ben comme pour tout le monde : qui ne contient rien !
Mets un extrait sur http://www.cjoint.com qu'on y jette un oeil

AV



---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-5, 08/07/2007
Analyse le : 09/07/2007 10:32:12
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-5, 08/07/2007
Analyse le : 09/07/2007 10:36:04
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com


Avatar
AV
Excel a la facheuse habitude de garder des traces de précédentes valeurs qui ont
été effacées !
D'où le danger, maintes fois signalé ici, de l'utilisation des "UsedRange" et
autres "SpecialCells(xlCellTypeLastCell)"

Pour ton cas, une seule petite ligne supplémentaire devrait suffire :

[A:A] = [A:A].Value
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

AV
Avatar
Pascal
Merci Alain cela fonctionne

"AV" a écrit dans le message de news:
%239v%
Excel a la facheuse habitude de garder des traces de précédentes valeurs
qui ont été effacées !
D'où le danger, maintes fois signalé ici, de l'utilisation des "UsedRange"
et autres "SpecialCells(xlCellTypeLastCell)"

Pour ton cas, une seule petite ligne supplémentaire devrait suffire :

[A:A] = [A:A].Value
Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

AV



---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000754-5, 08/07/2007
Analyse le : 09/07/2007 11:06:21
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000754-5, 08/07/2007
Analyse le : 09/07/2007 11:20:14
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com