Discussion :

[fmris]

bonjour
je n'arrive pas à comprendre pourquoi la boucle suivante ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For a = 140 To a = 146
    If Left(Cells(a, 2), 3) = "Vic" Then
    Cells(a, 1) = "oui"
    Else
    End If
Next a

pouvez vous m'aider ?

Precision
range("b140") = "Vickers"
range("b141") = "Vickers"
range("b142") = "Brinell"
range("b143") = "rockwell"
range("b144") = "rockwell"
range("b145") = "Vickers"
range("b146") = "Vickers"

je devrais avoir des "oui" dans les cellules a140, a141, a145, a146

[RickGod]

Le code que j'utiliserais ressemblerait plus à celui-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For a = 140 To 146
    If Left((Cells(a, 2).Value), 3) = "Vic" Then
    Cells(a, 1) = "oui"
    End If
Next a

pas besoin de faire a = a+1 dans le for il s'ajoute automatiquement.

[fmris]

la ca marche
maintenant je tente de l'intégrer deans le code suivant et ca marche pas. Voyez vous une erreur de synthaxe ??

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
For a = 140 To 146
    If Left(Cells(a, 2).Value, 3) = "Vic" Then
        For b = 2 To 8
            If Cells(b, 24).Value = Cells(a, 4).Value And Cells(b, 25).Value = "HV)." Then
               If Cells(b, 26).Value = "Conforme" And Cells(a + 47, 7).Value = "Conforme" Then
               Cells(a, 7).Value = "Conforme"
               Else
               Cells(a, 7).Value = "Non conforme"
               End If
            Else
            End If
        Next b
    Else
    End If
Next a

[fmris]

je pense que mon pb vient de l'égalité suivante et qui nest à l'origine de mon pb mais je ne comprend pas pourquoi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(b, 24).Value = Cells(a, 4).Value

par cette formule je veux dire que si la valeur de la cellule(b,24) est identique à la valeur de la cellule (a,4) alors ....


avez vous une idée ?

[fmris]

c bon yavait une erreur dans ma cellule .....