Bonjour,
j'ai adapté lecode de feuil2 pour qu'il soit plus facile à modifier si tu veux ajouter ou supprimer des colonnes dont il faut tenir compte pour mettre NOK en colonne H sur feuil1.
code de feuil2
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Target.Column >= Range("G1").Column And Target.Column <= Range("J1").Column) _
Or Not (Target.Column >= Range("L1").Column And Target.Column <= Range("O1").Column) _
Or Target.Count > 1 Then Exit Sub
If UCase(Target) = "NOK" Or UCase(Left(Target, 9)) = "NON VALID" Then
Worksheets("Feuil1").Range("H" & Target.Row) = "NOK"
End If
End Sub
code dans le module
Sub setnok()
Set ws1 = Worksheets("Feuil1")
Set ws2 = Worksheets("Feuil2")
dlws2 = ws2.Range("G" & Rows.Count).End(xlUp).Row
For i = 1 To dlws2
For Each j In Array("G", "H", "I", "J", "L", "M", "N", "O")
If UCase(ws2.Range(j & i)) = "NOK" Or UCase(Left(ws2.Range(j & i), 9)) = "NON VALID" Then ws1.Range("H" & i) = "NOK"
Next j
Next i
End Sub