VBA : supprimer lignes

Dranreb

XLDnaute Barbatruc

• 17 Juin 2011

• #2

Re : VBA : supprimer lignes

Bonjour
Deux constatations
1) - pour concaténer utiliser opérateur "&" plutôt que "+"
2) - dans une boucle qui supprime des ligne on a meilleur temps de partir de la fin pour ne pas louper de lignes, c'est plus simple que ce que vous n'avez pas fait non plus, à savoir ne pas incrémenter le numéro de la ligne qu'on vient de supprimer pour traiter la suivante !
À+

 

Vote positif 0 Vote négatif

pepsi

XLDnaute Occasionnel

• 17 Juin 2011

• #3

Re : VBA : supprimer lignes

En code vba ca donnerait quoi ?

Merci d'avance

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 17 Juin 2011

• #4

Re : VBA : supprimer lignes

Personnellement je l'aurais écrite comme ça:

VB:

Sub SupprimerLignes()
Dim L As Long
For L = 2000 To 1 Step -1
   If Not Feuil1.Cells(L, 4).Value Then Feuil1.Rows(L).Delete
   Next L
End Sub

 

Vote positif 0 Vote négatif

pepsi

XLDnaute Occasionnel

• 17 Juin 2011

• #5

Re : VBA : supprimer lignes

merci pour ta proposition.

j'ai remplacé le code dans le module par celui de Dranreb , mais ca ne marche pas : jai ce message d'erreur

Erreur d’exécution '13'
Incompabilité de type

Cliquez pour agrandir...

pourquoi ?

Merci d'avance

 

Dernière édition: 17 Juin 2011

Vote positif 0 Vote négatif

pepsi

XLDnaute Occasionnel

• 17 Juin 2011

• #6

Re : VBA : supprimer lignes

J'ai modifié le code de Dranreb ainsi et ca fonctionne :

VB:

Sub SupprimerLignes()
Dim L As Long
For L = 2000To 1 Step -1
   If Feuil1.Cells(L, 4).Value = False Then Feuil1.Rows(L).Delete
   Next L
End Sub

Merci Dranreb !

 

Vote positif 0 Vote négatif