Comparaison deux valeurs sur deux colonnes et ligne differentes

Bonjour ,

Je galère depuis plusieurs jours pour comparer des valeurs qui si situent sur deux colomnes différentes mais sur différentes lignes .

Je parviens à comparer deux valeur différentes sur deux colonnes différentes mais même ligne sans problème.

Ci-joint un schéma avec les valeur à comparer.

Je souhaite comparer les valeurs lorsque la condition : Valeur ligne 17 colonne V = valeur ligne 2 colonne Z , lorsque cette condition est trouvée , il faut que la valeur située ligne 2 colonne R sois égale à la valeur ligne 17 colonne X ...

Il faut que la boucle parcours deux ligne en simultanées jusqu'à que la condition Valeur ligne x colonne V = à la valeur ligne y colonne Z et à ce moment la un IF pour vérifier que la valeur en colonne R ligne x sois égale à la valeur colonne Z ligne y .

Pour résumé mes colonnes sont fixes mais les lignes varient...

Merci d'avance pour votre aide qui me sera précieuse !

capture

Bonjour,

une possibilité avec cette formule matricielle, (valider avec ctrl+maj+enter)

=equiv(R2&Z2;X:X&V:V;0)

Merci mais je souhaiterai l’avoir sous forme de Code en VBA ... je suppose il faut des For imbriqué ?

Bonjour,

à tester,

Sub Vérifier()
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To LastRow
  t1 = .Cells(i, "R") & .Cells(i, "Z")
  For n = 2 To LastRow
     t2 = .Cells(n, "X") & .Cells(n, "V")
     If t1 = t2 Then MsgBox "trouvé " & i & " - " & n
  Next n
Next i
End Sub

Bonjour ,

Le code ne fait pas ce que je cherche :

Dim LastRow             As Integer
    Dim t1                  As String
    Dim t2                  As String
    Dim n                   As Integer
    Dim I                   As Integer

    With wbterms.Worksheets(s_excel_sheet_name)
    wbterms.Worksheets(s_excel_sheet_name).Activate

        LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        For I = 2 To LastRow
          t1 = .Cells(I, "R") & .Cells(I, "Z")
          For n = 2 To LastRow
             t2 = .Cells(n, "X") & .Cells(n, "V")
             If t1 = t2 Then MsgBox "l'état trouvé" & t2
          Next n
        Next I

    End With
    

Je souhaite lorsque t1=t2 effectuer la vérification que la colonne R de la ligne I sois égale à la colonne X de la ligne n ..

Le msgbox n'affiche pas la valeur , pouvez-vous m'aider svp

capture

Mon sujet est assez urgent quelqu'un peut-il m'aider ??

Bonjour toutes et tous

coucou Sabv

@Zehh12

Si tu souhaites que ta message box affiche correctement essaie-ceci le post de Sabv ci-dessus

remplace :

If t1 = t2 Then MsgBox "l'état trouvé" & t2

par:

If t1 = t2 Then MsgBox "L'état trouvé  " & I & " - " & n 

à tester

crdlt,

André

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]

Pour facilité la compréhension de ma vérification ci-joint une illustration d'une erreur que je dois detecté avec ma fonction :

La valeur définit en colonne R sur la ligne 2 est différente "STOP" de la valeur définit en colonne X de la ligne 18 "MARCHE" ainsi je dois donc detecter cette erreur .

Ci-joint la fichier excel avec la macro .

Merci d'avance pour votre aide

capture
23verifvba.xlsm (386.11 Ko)

UP please !

'Je souhaite lorsque t1=t2 effectuer la vérification

'que la colonne R de la ligne I sois égale à la colonne X de la ligne n ..

à tester

Sub Vérifier()
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
For I = 2 To LastRow
  t1 = Cells(I, "R") & Cells(I, "Z")
  For n = 2 To LastRow
     t2 = Cells(n, "X") & Cells(n, "V")
     If t1 = t2 Then
       If Cells(I, "R") = Cells(n, "X") Then MsgBox "trouvé " & I & " - " & n
     End If
  Next n
Next I
End Sub

Le code ne fonctionne toujours pas ... t1 prend des valeurs qui ne sont même pas dans mon fichier excel

sans titre

les valeurs de t2 sont correctes

Bonjour zeh212, le forum,

Je te retourne ton fichier modifié :

46verifvba.xlsm (387.89 Ko)

Comme tu n'as pas mis assez de données, j'ai mis en R4 : STOP (au lieu de MARCHE) ; fais Ctrl e ; vu ?

remets en R4 : MARCHE (au lieu de STOP) ; fais Ctrl e ; c'est ok ?

Alt F11 pour voir le code VBA, puis revenir sur Excel

Si besoin, tu peux demander une adaptation.

Merci de me dire si ça ta convient.

dhany

Excellent !! Merci bcp Dhany j’ai adapté mon code a mon programme complet qui fait maintenant 3700 lignes

zeh212 a écrit :

Excellent !! Merci bcp Dhany j’ai adapté ton code à mon programme complet qui fait maintenant 3700 lignes

Je suis ravi que ça fonctionne comme tu veux (d'autant que j'étais pas sûr d'avoir bien compris ta demande) !

merci pour ton retour, et pour avoir passé le sujet en résolu.

dhany

Rechercher des sujets similaires à "comparaison deux valeurs colonnes ligne differentes"