J'ai une plage A1:B5 sur feuille 1, une autre plage A1:B5=20
sur feuille 2.
J'aimerais une proc=E9dure qui compare :
-> les valeurs en colonne A des 2 feuilles=20
-> si OK test la valeur de la Colonne B
avec message si diff=E9rence
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacky
Bonjour Regis
Ceci peut-être: '------------- Sub test() For i = 1 To 5 If Sheets("feuil1").Range("a" & i) = Sheets("feuil2").Range("a" & i) Then If Sheets("feuil1").Range("b" & i) <> Sheets("feuil2").Range("b" & i) Then MsgBox "La cellule : " & Sheets("feuil1").Range("b" & i).Address & " de la feuille 1" & Chr$(10) & "est différente de la cellule " & Sheets("feuil2").Range("b" & i).Address & Chr$(10) & "de la feuille 2" End If End If Next End Sub '----------------- Salutations JJ
"regis" a écrit dans le message de news:213a201c45a81$10da27b0$ J'ai une plage A1:B5 sur feuille 1, une autre plage A1:B5 sur feuille 2. J'aimerais une procédure qui compare : -> les valeurs en colonne A des 2 feuilles -> si OK test la valeur de la Colonne B avec message si différence
Merci
Bonjour Regis
Ceci peut-être:
'-------------
Sub test()
For i = 1 To 5
If Sheets("feuil1").Range("a" & i) = Sheets("feuil2").Range("a" & i) Then
If Sheets("feuil1").Range("b" & i) <> Sheets("feuil2").Range("b" & i) Then
MsgBox "La cellule : " & Sheets("feuil1").Range("b" & i).Address & " de
la feuille 1" & Chr$(10) & "est différente de la cellule " &
Sheets("feuil2").Range("b" & i).Address & Chr$(10) & "de la feuille 2"
End If
End If
Next
End Sub
'-----------------
Salutations
JJ
"regis" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:213a201c45a81$10da27b0$a101280a@phx.gbl...
J'ai une plage A1:B5 sur feuille 1, une autre plage A1:B5
sur feuille 2.
J'aimerais une procédure qui compare :
-> les valeurs en colonne A des 2 feuilles
-> si OK test la valeur de la Colonne B
avec message si différence
Ceci peut-être: '------------- Sub test() For i = 1 To 5 If Sheets("feuil1").Range("a" & i) = Sheets("feuil2").Range("a" & i) Then If Sheets("feuil1").Range("b" & i) <> Sheets("feuil2").Range("b" & i) Then MsgBox "La cellule : " & Sheets("feuil1").Range("b" & i).Address & " de la feuille 1" & Chr$(10) & "est différente de la cellule " & Sheets("feuil2").Range("b" & i).Address & Chr$(10) & "de la feuille 2" End If End If Next End Sub '----------------- Salutations JJ
"regis" a écrit dans le message de news:213a201c45a81$10da27b0$ J'ai une plage A1:B5 sur feuille 1, une autre plage A1:B5 sur feuille 2. J'aimerais une procédure qui compare : -> les valeurs en colonne A des 2 feuilles -> si OK test la valeur de la Colonne B avec message si différence