supprimer une ligne avec condition Résolu/Fermé

Question

Bonjour, 
je veux supprimer une ligne parmi 100 lignes qui contient des donnés fausses 
pouvez vous m'aider
merci 
et voila mon tentative:
Sub clear()
Sheets(1).Range("valeurs").Select

Set ActiveRange = ThisWorkbook.Sheets(1).Range("A2:A22")
For i = 1 To 22
ActiveRange.Offset(i - 1, 0).Select
Selection.SpecialCells(xlCellTypeVisible).Select
If Range("valeur").Offset(i - 1, 0).Value = "has" Then
Cells.clear
Cells.EntireRow.Delete
End If
Next

End Sub




Configuration: Windows 7 / Chrome 43.0.2357.81

ThauTheme · Answer

Bonjour Mohamed, bonjour le forum,

Quand on veut supprimer des lignes, il est d'usage de commencer par la fin en remontant (une boucle inversée) pour éviter une mauvaise interprétation. 
De 1 à 22 pour moi ça fait pas 100 lignes ?!...

Essaie comme ça (si j'ai bien compris) :

Sub Macro1()
DIM DL As Integer
Dim I As Byte

DL = Range("A" & Application.Rows.Count).End(xlup).Row
For I = DL To 1 Step -1
    If Cells(I, 1).Value = "has" Then Rows(I).Delete
Next I
End Sub

 
 
À plus,
ThauTheme

ThauTheme · Answer

Bonjour Mohamed, bonjour le forum,

Oui, tu as raison Integer pour I... Essaie ce nouveau code :

Sub Macro1()
Dim DL As Integer
Dim I As Integer

Application.ScreenUpdating = False
DL = Range("A" & Application.Rows.Count).End(xlUp).Row
For I = DL To 1 Step -1
    If Not IsNumeric(Cells(I, 1).Value) = True Then Rows(I).Delete
Next I
Application.ScreenUpdating = True
End Sub

ThauTheme · Answer

Bonjour Mohamed, bonjour le forum,

Elle masque les rafraîchissements d'écran. Tu gagnes tu temps car tu ne vois pas les lignes s'effacer les unes après les autres. La macro les supprime et à la fin tu ne vois que les lignes restantes d'un seul coup. Pense toujours à remettre à [True] à la fin du code.
Maintenant, il existe l'aide VBA qui en sélectionnant un mot que tu ne connais pas et avec la touche [F1] te fournira une aide détaillée et souvent très efficace... A utiliser sans modération !...

Supprimer une ligne avec condition

3 réponses

Discussions similaires