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+