Bonjour,
Je souhaite supprimer des lignes en fonction de la valeur d'une cellule sur cette ligne.
J'utilise le code suivant :
Sub select623()
Dim DerLig As Long
Dim ligne As Long
Const Code = 291
Application.ScreenUpdating = False
If Worksheets(6).Range("A2") <> "" Then
With Worksheets(6)
DerLig = .Range("A" & Rows.Count).End(xlUp).Row
For ligne = DerLig To 2 Step -1
If UCase(.Cells(ligne, Code)) > 5 Then
.Rows(ligne).Delete
End If
Next ligne
End With
Else
Exit Sub
End If
End Sub
ce code fonctionne de temps en temps mais pas tout le temps.
J'ai alors le message suivant :
"Excel ne peut pas terminer cette tâche avec les ressources disponibles.
Sélectionnez moins de données ou fermez des applications."
Comment puis-je faire pour éviter ce problème ?
Merci d'avance pour vos conseils.
Anthony