Comparer 2 colonnes

Version imprimable

21/10/2010, 10h55
elo1978

Comparer 2 colonnes
Bonjour, je n'arrive pas à comparer simplement 2 colonnes

voici mon code
Code:

1 2 3 4 5 if sheet1.range("A1:A100") = sheet1.range("J1:J100") then msgbox "identiques" else msgbox "differentes" end if
Merci d'avance

PS : j'aimerais un code rapide car je dois faire cela sur plus de 10 000 valeurs

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Sub aaa()
Dim LastLig As Long
 
Application.ScreenUpdating = False
With Sheets("Sheets1")
    LastLig = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("IV1").FormulaLocal = "=SI(A1=J1;0;1)"
    .Range("IV1").AutoFill .Range("IV1:IV" & LastLig)
    If Application.Sum(.Range("IV1:IV" & LastLig)) > 0 Then
        MsgBox "différents"
    Else
        MsgBox "égaux"
    End If
    .Columns("IV:IV").ClearContents
End With
 
End Sub

COMPARE 2 COLONNES

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Sub ESSAI()
 
Dim c As Range
Dim diff As Boolean
Dim résultat As String
 
diff = False
 
For Each c In Sheets("Toto").Range("A1:A10000")
    If c.Value <> c.Offset(0, 9).Value Then
        diff = True
        Exit For
    End If
Next
résultat = IIf(diff = False, "identiques", "différentes")
MsgBox résultat
 
End Sub

Cordialement

Marcel

21/10/2010, 11h21
MarcelG

compare 2 colonnes

Décidément...
L'heure d'envoi de nos messages te confirmera que je n'ai pas fait exprès.

Un avis, cependant.

Merci

Marcel

Et comme çà ?

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub test()
With Sheets(1)
For i = 1 To .Range("A65000").End(xlUp).Row
  If .Range("A" & i).Value <> .Range("J" & i).Value Then
    MsgBox "differentes"
    Exit Sub
  End If
Next i
MsgBox "identiques"
End With
End Sub

21/10/2010, 12h06
MarcelG

COMPARE 2 COLONNES

Salut RVTOULON,

Nos algorithmes me semblent assez proches.
La question à mon avis reste le temps de réponse. As-tu testé sur 10000 enregistrements pour tous les cas de figure ?

Cordialement.

Marcel
21/10/2010, 12h18
rvtoulon

bonjour MarcelG,
en effet c une autre approche,
a vrai dire je ne me suis pas posé la question sur le temps

mon code tel quel avec + de 11000 lignes = 2,3 s.
ton code tel quel sur 10000 lignes = 1,7 s.

effectivement ton code est plus rapide mais vu l'écart c pas très important, enfin pour moi. :aie:

Fuseau horaire GMT +2. Il est actuellement 00h03.