Salut; Je veux parcourir une liste de rangée pour trouver une valeur. Chaque rangée à beaucoup de condition à remplir afin qu'il me donne la valeur du prix coutant. Mon problème c'est qu'on dirait qu'après 3 if imbriqués vba ne lis plus les valeurs


Voici la manière dont je procède

'A B C D E F G H'ce sont les collones d'excel
'20; 2004; Je; Pn; EYI; 8,505; 9; 8.50;
'ci-haut c'est la colonne que je recherche pour afficher le prix coûtant


dans une boucle For
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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
'1- si la cellule x1 n'est pas vide fait ceci;
'2- si la cellule x1 est égale à 20$ fait ceci;
'3- si la cellule x5 est égale à "EYI" fait ceci;
'4- si la cellule x3 est égale à "Je" et la cellule x4 est égale à "Pn" fais ceci;
'5- si la cellule x6 est égale à 2004 fait ceci
'6- si la cellule x6 est < valeur et la cellule x6 est > valeur alors pour terminer
'Affiche "J'ai trouvé sinon
'MsgBox "pas de correspondance"
 
Sub prixCoutant()
Dim compteur, argentVal, annee_impresson As Integer
Dim dossier As String
Dim valeur As Single
 
'initialization des variables
dossier = "EYI8600000"
argentVal = 20 ' 20$
valeur = Right(dossier, 7) / 1000000 '8,6
annee_impresson = 2004
 
Sheets("try").Select
 
For compteur = 1 To 45 'row.count
'Désolé pour l'indentation:(
    If Not IsEmpty(Cells(compteur, 1).Value) Then
        If Cells(compteur, 1).Value = argentVal Then
            If Cells(compteur, 5).Value Like Left(dossier, 3) Then
                If Cells(compteur, 3).Value Like "Je" And Cells(compteur, 3) Like "Pn" Then
                    If Cells(compteur, 2).Value = annee_impression Then
                        If Cells(compteur, 6) <= valeur And Cells(compteur, 7).Value > valeur Then
                            MsgBox "J'ai trouvé"
                            MsgBox Cells(compteur, 8).Value
                        Else
                            MsgBox "Il n'y a pas de correspondance"
                        End If '(6ième)
                    End If '(5ième)
                End If '(4ième)
            End If '(3ième)
        End If '(2ième)
    End If '(1er)
 
Next compteur
 
 
'1- si la cellule x1 n'est pas vide fait ceci;
'2- si la cellule x1 est égale à 20$ fait ceci;
'3- si la cellule x5 est égale à "EYI" fait ceci;
'4- si la cellule x3 est égale à "Je" et la cellule x4 est égale à "Pn" fais ceci;
'5- si la cellule x6 est égale à 2004 fait ceci
'6- si la cellule x6 est < valeur et la cellule x6 est > valeur alors pour terminer
'Affiche "J'ai trouvé sinon
'MsgBox "pas de correspondance"
 
End Sub
merci