Discussion :

[julio44]

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 :

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
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 !

[jouana]

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

[julio44]

bonjour.

Merci, ça marche!

[jouana]

De rien bonne journée

[julio44]

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

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
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 =)

[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 :

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

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

[mercatog]

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 :

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

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 :

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

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

[julio44]

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 :

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

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 !