bjr, je veux comparais deux balances (chaque balance dans un classeur) bah j ai créer le code il
marche bien il compar et tout, mais j ai un petite souci, je vous donne un example: moi je veux comparais juste la colonne A c'est à dire juste les numero de compte, j ai un plant comptable standard avec le qu'il je vais comparer les autres balances
mais moi dans la colonne A de plant comptable j ai saisi juste les 4 classe " les 4 premier numero"
parcontre dans la balance il y a les " 7 class " alors moi je veux que mon code comapr le plant comptable avec les 4 premier caracter de chaque cellul de colonne A de la balance que je vais choisi et merci
voila mon code il marche bien que la comparaison total des celluls
'ouvrir le dossier à comparer
nom = x & "\" & ListBox1
Workbooks.Open Filename:=(nom)
'ouvrir le plant compatble standard
plant_comptable = "E:\Application_VB_Etat_BAM\Plant Comptable.xls"
Workbooks.Open Filename:=(plant_comptable)
'démarrer la 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(ListBox1.Value).Activate
For Each Cellule1 In Range("a6:a1255")
Collection1.Add Cellule1
Next Cellule1
Workbooks("Plant Comptable.xls").Activate
For Each Cellule2 In Range("a6:a1255")
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