comparaison de cellules sur 2 feuilles différentes

comparaison de cellules sur 2 feuilles différentes - VB/VBA/VBS - Programmation

Marsh Posté le 21-12-2009 à 10:17:02    

Bonjour,
je voudrais comparer deux tableaux, chacun sur deux feuilles différentes.
 
Ma première intention était celle-ci :
 
        Dim a As Integer
        Dim b As Integer
        Dim x As Integer
        Dim y As Integer
        Sheets("Feuill1" ).Select
        Range("a1" ).Select
        b = Range(ActiveCell, ActiveCell.End(xlDown)).Count
        Sheets("Feuill2" ).Select
        Range("a1" ).Select
        a = Range(ActiveCell, ActiveCell.End(xlDown)).Count    
        For y = 0 To b
            For x = 0 To a

Reply

Marsh Posté le 21-12-2009 à 10:17:02   

Reply

Marsh Posté le 21-12-2009 à 10:32:15    

C'est un bon début.
 
Si les tableaux ne sont pas triés, il faut effectivement comparer chaque case du premier tableau avec chaque case du second tableau, et donc faire deux boucles imbriquées.
La comparaison se ferait par if (ThisWorkbook.Sheets("Feuil1" ).Cells(x1, y1).Value = ThisWorkbook.Sheets("Feuil2" ).Cells(x2, y2).Value) Then ... (non testé)
 
Si les tableaux sont triés, le traitement sera plus rapide car on peut faire un "appareillage", c'est à dire qu'après chaque comparaison, on avance d'une case dans le tableau qui contient la plus petite des deux valeurs rencontrées lors de la comparaison.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed