Discussion :

[Fab2008]

Bonjour tout le monde,
c'est mon premier message, je ne suis pas programmeur, mais j'essai de comprendre:

Mon CAS :

Vérifier si j’ai le compte dans la colonne COMPTE si oui

Vérifier s’il ya une valeur dans le range de la colonne MONTANT si il ya une valeur donc

Resultat <yes>

Sinon

Resultat <no>

COMPTE MONTANT
450002 0
450002 0

Dans ce cas le résultat doit etre no

COMPTE MONTANT
450002 0
450002 1

Dans ce cas le résultat doit etre yes

Voila le code
With tempWorkbook.Sheets("AAAAA")
For i = 2 To .Cells(60000, 47).End(xlUp).Row

'TEST COMPTE 450002

If tempWorkbook.Sheets("AAAAA").Cells(i, 43).Value = "450002" Then
If tempWorkbook.Sheets("Input MF BoA").Cells(i, 46).Value = "" Then
ThisWorkbook.Worksheets("BBBBB").Cells(ThisWorkbook.Worksheets("BBBBB").Cells(65536, 1).End(xlUp).Row + 1, 6).Value = "NO"
Else
ThisWorkbook.Worksheets("BBBBB").Cells(ThisWorkbook.Worksheets("BBBBB").Cells(65536, 1).End(xlUp).Row + 1, 6).Value = "YES"
End If
End If

Il me retourne toujours yes !!???


Merci d'avance de votre aide

[Fab2008]

Merci j'ai trouvé .

If tempWorkbook.Sheets("AAAAA").Cells(i, 43).Value = "450002" Then
Test = Test + Val(.Cells(i, 46))
Else
If Test = 0 Then
ThisWorkbook.Worksheets("AAAAA").Cells(ThisWorkbook.Worksheets("AAAAA").Cells(65536, 1).End(xlUp).Row + 1, 6).Value = "NO"
Else
ThisWorkbook.Worksheets("AAAAA").Cells(ThisWorkbook.Worksheets("AAAAA").Cells(65536, 1).End(xlUp).Row + 1, 6).Value = "YES"
End If
End If