Discussion :

[elo1978]

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


voici mon code

Code :

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

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

[mercatog]

Code :

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

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

[MarcelG]

Bonjour,

Code :

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

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

[MarcelG]

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

[rvtoulon]

Et comme çà ?

Code :

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

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

[MarcelG]

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

[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.