[VBA-E] Quelle méthose utiliser ?

Version imprimable

04/01/2007, 16h42
melodyyy

[VBA-E] Quelle méthose utiliser ?

En fait je n'ai aucune idée de la méthode que j'ai à utiliser..
Voila, je dois comparer la colonne A d'un fichier A, à la colonne A d'un fichier B...
Exemple si dans la colonne A j'ai 1234 il doit rechercher 1234 dans la colonne A du fichier B. Si il trouve il la marque dans la colonne A du fichier C, si il la trouve pas, il marque ce qu'il trouve dans la colonne A du fichier B, dans C...

Une méthode facile, et efficace à utiliser zauriez pas une idée ?
04/01/2007, 16h43
cafeine

Hello,

pourquoi créer un nouveau sujet alors que tu as déjà :
http://www.developpez.net/forums/sho...d.php?t=259062
04/01/2007, 16h46
melodyyy

parce que la question est pas tout à fait la même...

mais j'aimerais bien des réponses ceci dit ;)

:salut: Melodyyy

Si tu veux, tu peux faire ça comme cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Comparaison()
    Application.ScreenUpdating = False
    Dim Collection1 As New Collection, collection2 As New Collection
    Dim Cellule1 As Range, Cellule2 As Range
    Dim Element1 As Object, Element2 As Object
    Dim Time1 As Date, Time2 As Date
    Time1 = Now()
    Workbooks("classeur1.xls").Activate
    For Each Cellule1 In Range("a:a")
        Collection1.Add Cellule1
    Next Cellule1
    Workbooks("classeur2.xls").Activate
    For Each Cellule2 In Range("a:a")
        collection2.Add Cellule2
    Next Cellule2
    For Each Element1 In Collection1
        For Each Element2 In collection2
            If Element1 <> Element2 Then
                Element1.Font.Color = vbRed
                Else
                Element1.Font.Color = vbBlack
                Exit For
            End If
        Next Element2
    Next Element1
    Time2 = Now()
    Debug.Print "Test collection :" & Format$(Time2 - Time1, "hh:mm:ss")
    Application.ScreenUpdating = True
End Sub

Voilà ;)

05/01/2007, 09h39
melodyyy

c'est pas mal, bien ficelé, je vais m'en servir pour les idées ;)
j'avais pas trop d'idée ah y'ai j'en ai pleins ;)

Sur la même idée que Bruno mais plus rapide puisque limité aux seules cellules renseignées ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Comparer()
    Dim Cell1 As Range, Cell2 As Range, DerLigne1, DerLigne2
    DerLigne1 = Workbooks("classeur1").Sheets(1).Range("A1").SpecialCells(xlCellTypeLastCell).Row
    DerLigne2 = Workbooks("classeur2").Sheets(1).Range("A1").SpecialCells(xlCellTypeLastCell).Row
    For Each Cell1 In Workbooks("classeur1").Sheets(1).Range("A1:A" & DerLigne1)
        For Each Cell2 In Workbooks("classeur2").Sheets(1).Range("A1:A" & DerLigne2)
            If Cell1 <> Cell2 Then
                    Cell1.Font.Color = vbGreen
                Else
                    Cell1.Font.Color = vbRed
                    Exit For
            End If
        Next
    Next
End Sub

Je ne vois pas l'intérêt de passer par des collections mais s'il y en a un ici, je veux bien le connaître ;)
A+

Edit
Tu peux simplifier en supprimant deux variables en écrivant

Code:

1
2
    For Each Cell1 In Workbooks("classeur1").Sheets(1).Range("A1:A" & _
 Workbooks("classeur1").Sheets(1).Range("A1").SpecialCells(xlCellTypeLastCell).Row)

idem pour sheets(2) mais ça devient vite illisible ;)