Sujet Précédent Sujet Suivant

Supprimer les lignes VBA

Résolu/Fermé
texastina Messages postés 52 Date d'inscription jeudi 15 janvier 2015 Statut Membre Dernière intervention 12 juin 2019 - 30 oct. 2015 à 09:48
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 - 30 oct. 2015 à 11:51
Bonjour,

Je voudrais en passant par le VBA supprimer toutes les lignes de mon tableau excel si les cellules C3 et C4 sont vide et ainsi étendre cette formulle sur les 150 lignes est ce possible ?

J'ai déja fait un bout de code mais je ne comprend pas car la formule fonctionne mais cela supprime a chaque foi que la moitier des lignes et moi je voudrais que ca me supprime la totalité

Voici mon code

Sub supprimerleslignesvide()

Dim i As Integer

i = 2

While i <> 150
If Cells(i, 3) = "" And Cells(i, 4) = "" And Cells(i, 5) = "" Then
Rows(i & ":" & i).Select
Selection.Delete Shift:=xlUp
End If
i = i + 1
Wend

End Sub

Merci d'avance pour vos réponses :)
A voir également:

1 réponse

Réponse 1 / 1
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
30 oct. 2015 à 10:12
Bonjour,

Pour effectuer une suppression de lignes, il faut que ta boucle commence à la dernière ligne (150) et se termine à la première ligne (2). 
Sub SupprimerLignesVides()
Dim i As Integer
    i = 150
    While i > 1
        If Cells(i, 3) = "" And Cells(i, 4) = "" And Cells(i, 5) = "" Then
            Rows(i).Delete
        End If
        i = i - 1
    Wend
End Sub


A+
0
texastina Messages postés 52 Date d'inscription jeudi 15 janvier 2015 Statut Membre Dernière intervention 12 juin 2019
30 oct. 2015 à 11:26
Merci Gyrus !! ça fonctionne aprés le traitement est trés long car il y a beaucoup de données dans ma feuille du coup si il y a un moyen pour accélérer le procéssus je suis preneur :)
0
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523 > texastina Messages postés 52 Date d'inscription jeudi 15 janvier 2015 Statut Membre Dernière intervention 12 juin 2019
30 oct. 2015 à 11:51
Tu peux obtenir un traitement plus rapide en utilisant des filtres automatiques.
Tu applique un filtre avec un critère <Vide> sur les 3 colonnes puis tu supprimes les lignes visibles.

A+
0

Discussions similaires

Afficher toutes les lignes masquées excel
livlarsen -
esicom -

26 réponses