Problème de selection pour une boucle [Résolu]

Signaler
Messages postés
4
Date d'inscription
jeudi 28 novembre 2013
Statut
Membre
Dernière intervention
24 novembre 2014
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
Bonjour,

j'ai un problème avec ma selection dans une boucle,

la formule que j'ai utilisée est la suivante


If Sheets("Feuil1").Cells(L, 30) = Store And Sheets("Feuil1").Cells(L, 18) <> 5530 Then

mais je n'arrive pas a exprimer en plus
And Sheets("Feuil1").Cells(L, 18) <> 5530
And Sheets("Feuil1").Cells(L, 18) <> 5531
And Sheets("Feuil1").Cells(L, 18) <> 5533

en résumé je voudrais selectionner les lignes ayant la valeur "Store" en colonne 30 et si la colonne 18 de la même ligne est différente des valeurs "5530" "5531" "5533"

merci de votre aide

2 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
236
Bonjour,
Eh bien ... continue averc tes and ... ===>>>
If ... and ... and ... and ... then
Et store n'est pas "store" !
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
75
Salut

Il suffit de compléter ton If avec les 3 "And" que tu nous montres.
Je ne comprends pas trop ton problème.
With Sheets("Feuil1")
    If .Cells(L, 30).Value2 = Store And _
       .Cells(L, 18).Value2 <> 5530 And _
       .Cells(L, 18).Value2 <> 5531 And _
       .Cells(L, 18).Value2 <> 5533 Then
        ' Ici ton code
    End If
End With

Tu noteras le .Value2 qui te permettra de comparer correctement les chiffres. (Voir aussi .Text et .Value).

PS : Le With ne change rien et n'est pas là pour résoudre ton problème, mais pour alléger la syntaxe.