Sujet Précédent Sujet Suivant

Excel : Suppression de lignes

Fermé
freygeo Messages postés 20 Date d'inscription mardi 26 octobre 2010 Statut Membre Dernière intervention 14 mars 2013 - Modifié par freygeo le 20/04/2011 à 14:20
Neliel Messages postés 6146 Date d'inscription jeudi 9 juillet 2009 Statut Contributeur Dernière intervention 20 mars 2017 - 20 avril 2011 à 14:32
Bonjour,

j'ai créé un tableau avec en colonne A et B des valeurs
Je dois supprimer toutes les lignes qui se trouvent sous la dernière valeur dans la colonne A.

Exemple :

ligne1---Colonne A---colonne B
ligne 2---martin---16 ans
ligne 3---jack----17 ans
ligne 4---andré---24 ans

le programme dois me supprimer toutes les ligne de la ligne 5 jusque la ligne 65000

J'ai créé ce programme :

Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 65000
If (Cells(i, 1) = ISBLANK) Then
Cells(i, 1).EntireRow.Delete
i = i - 1
End If
Next

mais il tourne pendant 30 minutes (le temps de vérifier les lignes une à une)

Quelqu'un aurait-il une solution

d'avance merci et bonne pâques les enfants


On the road again !
A voir également:

1 réponse

Réponse 1 / 1
Neliel Messages postés 6146 Date d'inscription jeudi 9 juillet 2009 Statut Contributeur Dernière intervention 20 mars 2017 1 692
20 avril 2011 à 14:32
Bonjour,

Isblank est une fonction donc elle s'utilise de cette manière:

Isblank(cell(row, col)).

et renvoi TRUE ou FALSE.

0