Bonjour à tous, voila mon problème :
 
Dim cpt As Integer
 
With Worksheets("enr_incidents" )
 
Do
    cpt = cpt + 1
Loop Until IsEmpty(.Range("A" & cpt))
 
Do
    If .Range("AJ" & cpt) = "Invalide" Then
        .Range("A" & cpt).EntireRow.Hidden = True
    End If
Loop Until (cpt = 2)
 
End With
 
Qd je lance ce code, excel commence a calculer et plante ou als la boucle ne se finit jamais, j'ai essayé de remplacer la ligne qui cache les lignes par une qui supprime ( .EntireRow.Delete) mais même résultat.
 
Pourquoi mon programme ne s'arrete il pas ?

c'est quoi ce until (cpt=2) ?
vu que tu ne changes jamais la valeur de cpt, je ne vois pas en effet comment ça peut ne pas partir en live...

ouui pardon il manque un cpt = cpt - 1 avant la fin de la boucle
 
la mon code marche avec EntireRow.Hidden = True
mais si je veux supprimer les lignes avec EntireRow.Delete
 
Le programme commence a supprimer les lignes et plante au bou de qq secondes  
 
pk ?

quand tu fais un DELETE, n'incrémente pas ton CPT

Bonjour,
tu ne mets toujours pas au début cpt=0?
as-tu essayé un "pas à pas" pour voir?
Cordialement
 

bonjour,
Tu nous en a déjà fait toute une page sur ce thème...
Rows(i).Delete fonctionne très bien après c'est à toi d'ajuster tes conditions.
 
Si tu testes cette macro elle supprime toutes les lignes ou la colonne 1 est vide

Après tu ajustes avec tes conditions...
 
A+

c'est bon merci j'ai résolu le problème merci !