Supprimer une ligne avec condition

Résolu
mohamed -  
mohamed_2016 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention   -
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





3 réponses

Réponse 1 / 3
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
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
0
mohamed_2016 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention  
 
Grand merci ThauTheme ,je veux l'essayer
0
mohamed_2016 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention  
 
oui elle fonctionne comme il faut,, juste Dim I as integer non byte
0
mohamed_2016 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention  
 
si je veut supprimer une ligne qui contient n'importe quel "mot" exemple :has, ham et hat etc... sauf les nombres comment va se changer le code cher ami
0
Réponse 2 / 3
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
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
0
Mohamed _2016
 
Quel est le rôle de la fonction: application.screenupdating
Merci pour votre aide
Cordialement Mohamed
0
Réponse 3 / 3
ThauTheme Messages postés 1442 Date d'inscription   Statut Membre Dernière intervention   160
 
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 !...
0
mohamed_2016 Messages postés 31 Date d'inscription   Statut Membre Dernière intervention  
 
bonjour ThauTheme
merci beaucoup pour votre aide
bonne journée
cordialement Mohamed
0

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?
veroaaa -
Pat -

10 réponses