vba - suppresion de ligne sous contrainte Fermé

Question

Bonjour, 

Je suis novice en VBA, et j'essaie toujours de trouver moi-meme avant de demander. La je bloque. 
Je dois supprimer les lignes d'un tableau dont au moins une des cellules contient "Doc Type". Voici mon code : 

Sub SupQdDocType()
Dim i As Integer
For i = 1 To 4000
If Cells(i, 2) = "Doc Type" Then
EntireRow(i).Delete
i = i - 1
End If
Next
End Sub


Il ne marche pas. Help please ?

Configuration: Windows 7 / Chrome 29.0.1547.66

melanie1324 · Answer

Bonjour,

remplaces ton code par :

Sub SupQdDocType() 
Dim i As Integer 
For i = 1 To 4000 
If Cells(i, 2) = "Doc Type" Then 
rows(i).Delete  'au lieu de entirerow
i = i - 1 
End If 
Next 
End Sub

michel_m · Answer

Bonjour,

ton pb vient de ce que tu vas de 1 à 4000 lorsque que tu supprimes une ligne par Ex la ligne 25 la ligne 26 devient 25 ce qui pose problème (d'où ton i=i-1)

donc essaies 
for cptr=4000 to 1 step -1If Cells(i, 2) = "Doc Type" Then Rows(cptr).DeleteNext 

et en début de macro après les déclarations
Application.screenupdating=falsefigera le défilement de l'écran et te fera gagner un temps fou
 
 Michel

Vba - suppresion de ligne sous contrainte

2 réponses

Discussions similaires