Merci pour ta réponse mais le code de SabV ne réalise pas ce que je souhaite vérifier .
ma vérification s'effectue lorsque la condition "Valeur sur la ligne i colonne V = Valeur en ligne j colonne Z" puis lorsque cette égalité est trouvée je dois vérifier que la valeur configuré en colonne X ligne i est égale à la valeur définit en colonne R ligne j ...
pour cela j'ai écris ce code qui à l'air d'être sans faute de syntaxe mais je ne parviens toujours pas a detecter ma vérification :
[code][/Option Explicit
Private Function VerifFeedbackZeroValue() As Boolean
On Error GoTo ErrorHandler
Dim n As Integer
Dim I As Integer
Dim LastRow As Integer
Dim Valeur1 As String
Dim SignalFinal As String
Dim ValTC1 As String
Dim ValRetour As String
Dim wbterms As Workbook
Set wbterms = ThisWorkbook
With wbterms.Worksheets("Liste de termes SCADA")
wbterms.Worksheets("Liste de termes SCADA").Activate
LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
For I = 2 To LastRow
Valeur1 = .Cells(I, "R")
SignalFinal = .Cells(I, "Z")
For n = 2 To LastRow
ValTC1 = .Cells(n, "X")
ValRetour = .Cells(n, "V")
If ValRetour = SignalFinal And Valeur1 <> ValTC1 Then
MsgBox "état 1 " & ValTC1 & " non définit en valeur 1 " & Valeur1 & " pour le signal " & SignalFinal, vbOKOnly
End If
Next n
Next I
End With
' If myFeedbackZeroValue = Empty And s_Categorie = "C" And myCommandStateValueZero <> Empty Then
' Call Trace_Erreur("Aucune valeur '0' déclarée")
' End If
Exit Function
ErrorHandler:
MsgBox "VerifFeedbackZeroValue error: " & Err.Description, vbOKOnly
End Function
code]