L'operateur OR fonctionne t'il sur les chaines textes?

[klowba]

Bonjour, j'aimerai effacer les lignes qui contiennent soit tel veleur ou tel veleur (96 valeurs en tout)

Seulement quand je met OR dans la ligne qui permet la recherche, ça n'a pas l'air de fonctionner.
Voici mon code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 ' Suppression des lignes des produits non AID
 i = 1
 j = 1
Do While j < 2000
 
If Worksheets("Marges complémentaires").Cells(i, 17).Value <> "AID481" Or "AID482" Then
 
'suppression
Rows(i).Select
Selection.Delete Shift:=xlUp
 
i = i
j = j + 1
 
Else: i = i + 1
j = j + 1
 
 
End If
Loop
' fin de la fonction de Suppression des lignes de produits non AID

Donc quan je mets une expression à rechercher ça marche mais sur plusieurs expressions separés par OR ça ne fonctionne pas.

Avez-vous des idées?

[bbil]

Code :

if Worksheets("Marges complémentaires").Cells(i, 17).Value <> "AID481" Or Worksheets("Marges complémentaires").Cells(i, 17).Value <> "AID482" then

[alsimbad]

salut
ce n'est pas

Code :

if machin<> truc or chose

mais

Code :

if machin <> truc or machin<> chose

[tonton fred]

Bonjour,

Si j'ai bien, compris ce que tu veux faire c'est supprimer les lignes qui ne concernent pas les produits "AIDxxx" ?

Dans ce cas la, une solution plus simple si tu en as beaucoup (96 par exemple ) et plus souple en cas d'ajout/suppression de reference serait ca:

Code :

if Left(Worksheets("Marges complémentaires").Cells(i, 17).Value,3) <> "AID" then

[klowba]

oui voila mais il y'a des ref AIDxxx que je veux jarter aussi le plus simple est de garder toutes les references dont j'ai besoin et de virer toutre les autres.

[klowba]

Envoyé par bbil

Code :

if Worksheets("Marges complémentaires").Cells(i, 17).Value <> "AID481" Or Worksheets("Marges complémentaires").Cells(i, 17).Value <> "AID482" then

Alors comme ça, ça marche mais j'arrive en bout de ligne et je ne sais pas ajouter les 96 arguments.

[alsimbad]

Code :

1
2
3
4
5
6
7
8
9
10
sub jegarde
dim montableaudereferenceagarder()
montableaudereferenceagarder = array("", aid456,aid254aid698.....)
set mafeuille = Worksheets("Marges complémentaires")
for i = 1 to ubound(montableaudereferenceagarder )
if mafeuille.cells(i,17) <> montableaudereferenceagarder (i) then
...je sais pas ce que tu en fais ..
end if
next i
end sub

[illight]

Envoyé par bbil

Code :

if Worksheets("Marges complémentaires").Cells(i, 17).Value <> "AID481" Or Worksheets("Marges complémentaires").Cells(i, 17).Value <> "AID482" then

Pour compléter car tu veux supprimer des lignes, il vaut mieux faire une boucle a l'envers, avec au lieu de faire un do while de faire un For :

Code :

1
2
3
4
5
6
 
for i = 2000 to 1 step -1
If Worksheets("Marges complémentaires").Cells(i, 17).Value <> "AID481" Or Worksheets("Marges complémentaires").Cells(i, 17).Value <> "AID482" then
   rows(i).delete
end if
next i

[bbil]

utilise peu-être filter ...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
Sub MosnTest()
Dim tb(1) As String
Dim st As String
tb(0) = "AID481"
tb(1) = "AID482"
 
st = "AID481"
If UBound(Filter(tb, st, True)) >= 0 Then MsgBox st & " : OK" Else MsgBox st & " : NACK"
st = "AID483"
If UBound(Filter(tb, st, True)) >= 0 Then MsgBox st & " : OK" Else MsgBox st & " : NACK"
st = "AID482"
If UBound(Filter(tb, st, True)) >= 0 Then MsgBox st & " : OK" Else MsgBox st & " : NACK"
 
 
 
 
End Sub