aide pour ajouter une condition au code vba

Bonjour Moutchec
Quelle ligne de la colonne J ?????
left(Range("J" & T ),2)="NC" ou left(Range("J" & P),2)="NC"

pierrejean à dit:

Bonjour Moutchec
Quelle ligne de la colonne J ?????
left(Range("J" & T ),2)="NC" ou left(Range("J" & P),2)="NC"

Cliquez pour agrandir...

RE :
voici ce que j'ai fait mais ça bloque, aucun résultat après de 2 minutes

For q = 2 To Sheets("Planning").Range("D" & Rows.Count).End(xlUp).Row
For r = 2 To Sheets("Planning").Range("H" & Rows.Count).End(xlUp).Row
For s = 4 To Sheets("Stocks").Range("E" & Rows.Count).End(xlUp).Row
For T = 4 To Sheets("Stocks").Range("J" & Rows.Count).End(xlUp).Row
If CStr(Sheets("Planning").Range("H" & r)) = CStr(Sheets("Stocks").Range("E" & s)) And CStr(Sheets("Stocks").Range("J" & T)) = "NC" Then
Sheets("Planning").Range("D" & q).Interior.ColorIndex = 21
Sheets("Planning").Range("D" & q).Font.ColorIndex = 6
Sheets("Planning").Range("D" & q).Font.Size = 14
End If
Next
Next
Next
Next

Re

If CStr(Sheets("Planning").Range("H" & r)) = CStr(Sheets("Stocks").Range("E" & s)) And left(Sheets("Stocks").Range("J" & T),2) = "NC" Then

pierrejean à dit:

Re

If CStr(Sheets("Planning").Range("H" & r)) = CStr(Sheets("Stocks").Range("E" & s)) And left(Sheets("Stocks").Range("J" & T),2) = "NC" Then

Cliquez pour agrandir...

RE:
Je viens d'ajouter un fichier exemple parce que le résultat n'est pas bon et vu la quantité de données du fichier réel, plus de 8minutes avant d'aboutir.