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