Discussion :

[grayfox1]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[helas]

Bonjour,
Avec un Select ce serait plus lisible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pgz]

Bonjour.

On peut aussi écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement,

PGZ

[grayfox1]

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

[helas]

Merci pgz, je découvre des possibilités