Discussion :

[sebys]

Bonjour le forum et tout le monde,

Je souhaite ameliorer le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Range("g64000").Select
Range(Selection, Selection.End(xlUp)).Select
y = ActiveCell.Row 'Pour avoir la dernière ligne
 
For x = y To 1 Step -1
If Not IsNumeric(Range("b" & x)) Then Rows(x).Delete
If IsEmpty(Range("b" & x)) Then Rows(x).Delete
Next

Je sais que l'on peut en passant par des tables mais je n'ai pas compris leur manipulation, si une personne peut m'aider .

Merci pour tout

[ouskel'n'or]

Enregistre ton fichier avant de tester ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        Derlig = Cells(Columns(2).Cells.Count, 2).End(xlUp).Row
        Range(Cells(1, 2), Cells(Derlig, 2)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Ce code remplace ta boucle
Tu dis

[sebys]

Je viens de tester, et cela me met une erreur..., de plus au vu du code cela me permet juste de supprimer les colonnes vides

Mais en faite le code me sert à supprimer toutes les lignes n'ayant pas du numerique ainsi que les vides (car une cellule vide est considerer numerique ?)

[ouskel'n'or]

Désolé, je répondais au sujet de la discussion : "Suppression ligne vide "
Non, ce code supprime toutes les lignes dont la cellule de la colonne 2 est totalement vide.
Tu as mis Range("b" & x) dans ton propre test, le code que je t'ai passé fournit d'abord le N° de la dernière ligne renseignée pour cette colonne.
Mais ça supprime bien les lignes, non les cellules ni les colonnes
J'ai relu ta question, et donc, il te reste à supprimer les lignes dont la cellule de la colonne B n'est pas numérique et ta boucle fait ça, mais pour la dernière ligne, mon code est préférable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
     Derlig = Cells(Columns(2).Cells.Count, 2).End(xlUp).Row
     Range(Cells(1, 2), Cells(Derlig, 2)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
     For nolig = DerLig To 1 Step -1
          If Not IsNumeric(Range("b" & nolig )) Then Rows(x).Entirerow.Delete
     Next

Pour l'erreur, si tu utilises exactement mon code sans mélanger avec le tien, tu me dis sur quelle ligne et le type d'erreur.
Quelle version d'Excel as-tu, ça peut jouer
A+

Edit
Peut-être y a-t-il un moyen de remplacer ta boucle en passant par SpecialCells mais s'il existe, je ne vois pas quel paramètre utiliser.

[sebys]

Alors je viens de tester avec le bout de code :

erreur 1004 - pas de cellule correspondant.

et l'erreur se fait sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Cells(1, 2), Cells(Derlig, 2)).SpecialCells(xlCellTypeBlanks).EntireRow.delete

Pour le code pour le numeros de la ligne, c'est que j'ai deux lignes vide pour cette colonne en fin de tableau et je dois aussi les supprimer :o)

Et j'ai Excel 2002.

[ouskel'n'or]

Peut-être un problème de version... J'ai 2003
Remplace xlCellTypeBlanks par le chiffre 4, ce qui donne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

     Range(Cells(1, 2), Cells(Derlig, 2)).SpecialCells(4).EntireRow.Delete

Questions subsidiaires :
- Tu n'aurais pas de cellules fusionnées,
- Ta feuille n'est pas protégée ?
A+

[sebys]

Même chose avec le 4

Non pas de cellule fusionner et ni de protection, mon code d'origine lui fonctionnant..

bizare ???

[LeForestier]

Bonjour à tous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not IsNumeric(Range("b" & nolig )) Then Rows(x).Entirerow.Delete

????
A+

[ouskel'n'or]

Remontre-nous le code que tu utilises, celui qui génère l'erreur
A tout'

[sebys]

l'erreur est sur cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Cells(1, 2), Cells(Derlig, 2)).SpecialCells(4).EntireRow.Delete

avec la même erreur...

[LeForestier]

Essaye avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Derlig = Range("B1").SpecialCells(xlCellTypeLastCell).Row

et je vois pas à quoi sert

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  Range(Cells(1, 2), Cells(Derlig, 2)).SpecialCells(xlCellTypeBlanks).EntireRow.delete

[sebys]

Ce n'est pas le comptage ligne qui est faux, j'ai regarder sa valeur, et même essayer en lui mettant une valeur fixe.

changer aussi en faisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

derlig = range("b64000").end(xlup).row

c'est la fontion en elle même !!
mais je ne comprend pas pourquoi

[LeForestier]

supprimer le ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   Range(Cells(1, 2), Cells(Derlig, 2)).SpecialCells(xlCellTypeBlanks).EntireRow.delete

et changer X par NoLig

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Not IsNumeric(Range("b" & nolig )) Then Rows(x).Entirerow.Delete

[sebys]

Re,

Le but de la manip etait de faire une macro plus rapide que celle-ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
y = range("b64000").end(xlup).row
 
For x = y To 1 Step -1
If Not IsNumeric(Range("b" & x)) Then Rows(x).Delete
If IsEmpty(Range("b" & x)) Then Rows(x).Delete
Next

Car sur 50000 lignes il met un sacré bout de tps, et je souhaitais savoir si il y avait possibilité de faire un code plus rapide...

soit en passant par des tables... ou autre astuce

nb : j'aime bien apprendre de nouvelle manip

[LeForestier]

Alors il y a une ici, une discution qui va t'intèressé.

[sebys]

Je viens d'aller voire, et le probleme est que je n'arrive pas à mettre en forme le code avec la version rapide...

[ouskel'n'or]

supprimer le ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   Range(Cells(1, 2), Cells(Derlig, 2)).SpecialCells(xlCellTypeBlanks).EntireRow.delete

sert à supprimer toutes les lignes vides d'un coup. La boucle sur les numeric sera plus courte (!!!)
Mais je te laisse la place, chuis occupé ailleurs

[LeForestier]

Y faut lire tout...
La fonction de bidou delete 2 lignes sur 3, c'est à toi d'adapter le critère pour que ce soit les lignes vides.
A+

[LeForestier]

sert à supprimer toutes les lignes vides d'un coup. La boucle sur les numeric sera plus courte (!!!)
Mais je te laisse la place, chuis occupé ailleurs

j'avais pas fait attention au type.

[sebys]

Bonjour, désolé pr ma reponse tardive ! vacance oblige....

Bonne Année

J'ai regarder le code mais le truc est que je n'arrive pas à l'adapter, car le fais de supprimer deux ligne sur 3, un peu de mal a le comprendre sur le code !!!