Une boucle If qui ne marche pas.

Résolu
Macs -  
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

Je cherche à coder une condition mais la machine ne prend pas en compte ces conditions ("vente" et <0) :

L = 10

If Valeur = "" And Client = "" And Secteur = "" Then
i = 15
For j = 2 To L
With Sheets("Feuil1")
If Cells(j, 3).Value = "Vente" And Cells(j, 4).Value < 0 Then Else
Sheets("FRONT PAGE").Cells(i, 2) = Sheets("Feuil1").Cells(j, 1).Value
Sheets("FRONT PAGE").Cells(i, 3) = Sheets("Feuil1").Cells(j, 2).Value
Sheets("FRONT PAGE").Cells(i, 5) = Sheets("Feuil1").Cells(j, 3).Value
Sheets("FRONT PAGE").Cells(i, 6) = Sheets("Feuil1").Cells(j, 4).Value
Sheets("FRONT PAGE").Cells(i, 7) = Sheets("Feuil1").Cells(j, 5).Value
Sheets("FRONT PAGE").Cells(i, 9) = Sheets("Feuil1").Cells(j, 6).Value
Sheets("FRONT PAGE").Cells(i, 10) = Sheets("Feuil1").Cells(j, 7).Value
i = i + 1
End If
End With
'MsgBox (i)
'MsgBox (j)
'MsgBox (L)
'MsgBox (Sens)
'MsgBox (Quantite)
Next j
End If

J'espère que quelqu'un pourra m'aider,

Merci,

Macs

2 réponses

Réponse 1 / 2
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,
A l'intérieur d'un bloc with, pour rattacher l'objet "enfant" (Cell, Range...) à sa maman (Sheets), il faut lui ajouter un point devant :
Va faire le test sur la feuille Feuil2 : 
Sheets("Feuil2").Select 
With Sheets("Feuil1")  
    If Cells(j, 3).Value = "Vente" And Cells(j, 4).Value < 0 Then  
    Else

Va faire le test sur la feuille Feuil1 : 
Sheets("Feuil2").Select 
With Sheets("Feuil1")  
    If .Cells(j, 3).Value = "Vente" And .Cells(j, 4).Value < 0 Then  
    Else

PS : j'ai ajouté Sheets("Feuil2").Select pour une meilleure compréhension! Ne l'ajoute pas à ton code....
Cordialement,
Franck P
0
Réponse 2 / 2
Macs
 
Merci beaucoup!

Ca marche bien.

A bientôt ;)
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
de rien.
A+
0

Discussions similaires

Mon pc s'allume et s'éteint en boucle
Jack -
Daniel -

16 réponses
Mon ordinateur s'allume et s'eteint en boucle
mhmd_elmrni -
BiGaMeRz10 -

10 réponses
tele s'eteind et s'allume en boucle
avion386 -
txiki -

4 réponses
A quoi sert la sortie IF OUT démodulateur?
LesNulsCCM -
Graffitir -

3 réponses
Mon PC s'éteint et se rallume en boucle
Squarix64 -
Malekal_morte- -

3 réponses