Macro if or else tourne dans le vide

Bonjour à tous,

Je cherche à exécuter cette macro car j'ai une BDD d'environ 4000 lignes et j'ai 100 codes clients à récupérer environ (colonne B).
Cependant, elle tourne dans le vide :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim i As Integer Dim var i = 2 var = 0 Sheets("Résultats").Select Do While Range("A" & i) <> "" Sheets("Résultats").Select var = Range("B" & i).Value If var = 2950 OR 3100 Then i = i + 1 Else ActiveCell.EntireRow.Delete i = i + 1 End If Loop End Sub

---

En fait après une exécution step by step, il ne rentre jamais dans le else ..

Merci de votre aide !

essaye IF var = 2950 OR var = 3100

Je pense que le 3100 tt seul est une condition toujours vraie car il ne la rattache pas a var.

Bonne journée

bonjour.

Merci, ça marche!

De rien bonne journée

et jai remplacé mon code par celui-ci, car il y avait un PB sur l'incrémentation sinon :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub ClientsNAJ() Dim i As Integer Dim var i = 2 var = 0 Sheets("Résultats").Select For i = 2 To 4000 Sheets("Résultats").Select var = Range("B" & i).Value If var = 2950 Or var = 3100 Rows(i).Interior.Color = RGB(255, 0, 0) Else Range("B" & i).Value = 0 End If Next i End Sub

---

Ensuite je mets un filtre différent de 0 en colonne B et ça marche =)

Je ne sais pas si le changement de couleur est vraiment necessaire apres cela depend de ton appli

Mais tu peut faire ceci ci il n'y a rien a faire quand la valeur est egal a 2950 ou 3100

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub ClientsNAJ() Dim i As Integer Dim var i = 2 var = 0 Sheets("Résultats").Select For i = 2 To 4000 Sheets("Résultats").Select var = Range("B" & i).Value If var <> 2950 Or var <> 3100 Range("B" & i).Clear() End If Next i End Sub

---

Normalement ca doit marcher.
Mais aprés c'est toi qui voit.
Sinon je ne comprend pas ton ancienne condition est celle ci
Do While Range("A" & i) <> ""

et maintenant tu as ca 2 To 4000

Bonjour à tous

dans ce cas pourquoi n'utiliser pas directement un filtre automatique et supprimer les lignes non désirées (cf. ton post initial de suppression de lignes)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub ClientsNAJ() Dim LastLig As Long   Application.ScreenUpdating = False With Sheets("Résultats") .AutoFilterMode = False LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row .Range("B1:B" & LastLig).AutoFilter field:=1, Criteria1:="<>2950", Criteria2:="<>3100", Operator:=xlAnd If .Range("B1:B" & LastLig).SpecialCells(xlCellTypeVisible).Count > 1 Then .Range("B2:B" & LastLig).SpecialCells(xlCellTypeVisible).EntireRow.Delete .AutoFilterMode = False End With End Sub

---

PS: pour supprimer des lignes par une boucle, commence toujours ta boucle du bas vers le haut. exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Test() Dim i As Long Dim Var   Application.ScreenUpdating = False With Sheets("Résultats") For i = .Cells(.Rows.Count, "A").End(xlUp).Row To 2 Step -1 Var = .Range("B" & i).Value If Var <> 2950 And Var <> 3100 Then .Rows(i).Delete i = i - 1 Next i End With End Sub

---

Citation:

---

Envoyé par jouana

Je ne sais pas si le changement de couleur est vraiment necessaire apres cela depend de ton appli

Mais tu peut faire ceci ci il n'y a rien a faire quand la valeur est egal a 2950 ou 3100

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub ClientsNAJ() Dim i As Integer Dim var i = 2 var = 0 Sheets("Résultats").Select For i = 2 To 4000 Sheets("Résultats").Select var = Range("B" & i).Value If var <> 2950 Or var <> 3100 Range("B" & i).Clear() End If Next i End Sub

---

Normalement ca doit marcher.
Mais aprés c'est toi qui voit.
Sinon je ne comprend pas ton ancienne condition est celle ci
Do While Range("A" & i) <> ""

et maintenant tu as ca 2 To 4000

---

J'ai changé ma boucle car l'indice n'allait pas, en effet, je démarrais mes suppressions de lignes en partant du haut.

Mais avec l'indication du post juste au dessus je saurai !

Merci à vous !