Problem avec fonction IF

Bonsoir,

J'ai un tableau avec 44000 lignes, j'ai ecris le code suivant que m'elimine les ligne qui ont les numéro 100, 101 et 102 dans la colonne C, le problème c'est que au lieux de éliminer seulement les lignes avec 100, 101 et 102 dans la colonne C il élimine toutes le lignes comme si le IF laisserait tous passer, je n'arrive pas a comprendre pourquoi il me fait ça!!il me fait la même chose avec un do while au lieux de la fonction For. Quelqu’un peut m'expliquer pourquoi?dans ma fonction IF j'ai au moins une trentaine de OR au lieux des trois que j'ai mis ici

Code:

---

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

Filtro = "2"     With Log1Path.Worksheets("LOGBOOK1") Filtro = .Cells(.Rows.Count, "C").End(xlUp).Row End With Log1Path.Worksheets("LOGBOOK1").Range("C2:C" & Filtro).Value = Log1Path.Worksheets("LOGBOOK1").Range("C2:C" & Filtro).Value     For A_counter = Filtro To 2 Step -1 codigo = Log1Path.Worksheets("LOGBOOK1").Range("c" & A_counter).Value If codigo = "100" Or "101" Or "102" Then   Log1Path.Worksheets("LOGBOOK1").Range("c" & A_counter).EntireRow.Delete End If Next A_counter

---

Bonjour

Code:

---

If codigo = "100" Or codigo = "101" Or codigo = "102" Then

---

Bonjour,
Avec un Select ce serait plus lisible

Code:

---

1 2 3 4 5

Select Case Codigo Case "101","102","103","104",.... Log1Path.Worksheets("LOGBOOK1").Range("c" & A_counter).EntireRow.Delete End Select

---

et à tester

Code:

---

1 2 3 4 5

Select Case Codigo Case "101" To "140" Log1Path.Worksheets("LOGBOOK1").Range("c" & A_counter).EntireRow.Delete End Select

---

Bonjour.

On peut aussi écrire

Code:

---

If Codigo Like "10" & "[0-2]" Then

---

Cordialement,

PGZ

Merci a tous pour vos reponse.

Fring: Après beaucoup d'heures sur excel ont fais des erreurs stupide, dés que j'ai vue ton post, ça a fait clic dans ma tête!quel con!! j'ai oubliez de répéter la variable...lol
Merci a toi

PGZ et helas, je connaissais pas ses fonction mais je vais les tester, c'est se que j'adore dans se forum, ont apprend beaucoup avec les autres:)

Merci pgz, je découvre des possibilités