Discussion :

[caims77]

Bonjour à tous,

Je souhaites comparer les lignes sur 2 feuilles : la ligne 2 (avec 3 colonnes) sur "services ref" doit être strictement identique à la ligne 2 sur "services prod test">si identique noter "ok" si # noter "different"

Merci par avance pour votre assistance

[EngueEngue]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub compare()
dernligne1 = Sheets("services_Ref").Range("A" & Sheets("services_Ref").Rows.Count).End(xlUp).Row
dernligne2 = Sheets("Services_Prod_Test").Range("A" & Sheets("Services_Prod_Test").Rows.Count).End(xlUp).Row
dernligne = Application.WorksheetFunction.Max(dernligne1, dernligne2)
 
For i = 2 To dernligne
If Sheets("services_Ref").Cells(i, "R") = Sheets("Services_Prod_Test").Cells(i, "R") And Sheets("services_Ref").Cells(i, "Ab") = Sheets("Services_Prod_Test").Cells(i, "AB") And Sheets("services_Ref").Cells(i, "AD") = Sheets("Services_Prod_Test").Cells(i, "AD") Then
Sheets("services_Ref").Cells(i, "AJ") = "ok"
Else
Sheets("services_Ref").Cells(i, "AJ") = "different"
End If
Next i
End Sub

[caims77]

Merci EnqueEnque
Ayant beaucoup de mal avec le VBA, j'ai trouvé entre-temps ceci :
=R73&AB73&AD73=Services_Prod_Test!R73&Services_Prod_Test!AB73&Services_Prod_Test!AD73>qui répond aussi à mes attentes

[papouclo]

Bonjour caims77, EngueEngue,
Deux propositions sans code :
1ère proposition :
Ecrire en AJ2 la formule :

Code :

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

=CHOISIR((services_Ref!R2=Services_Prod_Test!R2)*(services_Ref!AB2=Services_Prod_Test!AB2)*(services_Ref!AD2=Services_Prod_Test!AD2)+1;"Différent";"OK")

et recopier vers le bas dans la colonne AJ.
2ème proposition :
Elle ne correspond pas tout à fait à la demande mais utilise deux règles de MFC (par exemple fond vert à la place de OK et fond rouge à la place de Différent).
Sélectionner la plage R2:AD181 et inscrire les deux nouvelles règles en utilisant une formule pour déterminer les cellules pour lesquelles la règle sera appliquée .
règle 1 : avec la formule

Code :

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

=($R2=Services_Prod_Test!$R2)*($AB2=Services_Prod_Test!$AB2)*($AD2=Services_Prod_Test!$AD2)

pour le format fond vert
règle 2 : avec la formule

Code :

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

=1 - ($R2=Services_Prod_Test!$R2)*($AB2=Services_Prod_Test!$AB2)*($AD2=Services_Prod_Test!$AD2)

pour le format fond rouge.
Cordialement
Claude

[caims77]

Merci à tous les 2>résolu pour moi