Sujet Précédent Sujet Suivant

Excel vba supp la ligne si "F" et "G" vide

Résolu/Fermé
iliesss Messages postés 113 Date d'inscription mardi 14 septembre 2010 Statut Membre Dernière intervention 26 octobre 2014 - Modifié par iliesss le 24/04/2011 à 18:53
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 - 24 avril 2011 à 19:32
Bonjour
J'ai le code suivant qui me permettre de supprimer toute ligne si les cellules F et G sont nulles a la fois.
SubligneFetGvide()
derniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = derniereLigne To 1 Step -1
If (Range ("F" & r)) = 0 And (Range ("G" & r)) = 0 ThenRows(r).Delete
Next r
End Sub
Mon tableau (A : H) contient 50000 lignes alors le code commence de 1 aux 50000 lignes et après le code mon tableau devient de 1 au 43600.
J'ajoute 125 lignes mon tableau maintenant contient 43725 lignes (43600+25) si je lance le code il va commencer de 1 au 43725 et ça prendre du temps. C'est-à-dire le code toujours commence de la première ligne.
Comment modifier ce code pour commencer de 43600 au 43725 c'est-à-dire la dernière ligne de l'ancienne exécution et ainsi de suite.
Merci
A voir également:

2 réponses

Réponse 1 / 2
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
24 avril 2011 à 19:32
Salut le forum

La méthode la plus rapide serait d'utiliser un Filtre Automatique. 

Sub SupprimerLignes()
    ActiveSheet.AutoFilterMode = False
        With ActiveSheet.Range("A1").CurrentRegion
          .AutoFilter Field:=6, Criteria1:="0"
          .AutoFilter Field:=7, Criteria1:="0"
          .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        End With
    ActiveSheet.AutoFilterMode = False
End Sub

Mytå
1
Réponse 2 / 2
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
21 avril 2011 à 22:03
bonjour


Mon tableau (A : H) contient 20000 lignes alors le code commence de 1 aux 40000 lignes et après le code mon tableau devient de 1 au 43600.

Ceci est-il bien cohérent ?
Comment tu peux avoir 3600 lignes de plus en faisant des suppressions ?
0
iliesss Messages postés 113 Date d'inscription mardi 14 septembre 2010 Statut Membre Dernière intervention 26 octobre 2014
24 avril 2011 à 18:55
desole mr pour mes fautes j'ai modifier la question
0

Discussions similaires

Comment faire le symbole coeur vide/coeur blanc
Paria -
Mouloud -

59 réponses
Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Jean -

8 réponses