Discussion :

[M@XflY]

bonjour

voilà je cherche à savoir si quelqu'un ne connaitrait pas un script qui permette de comparer deux tableur Excel et dans sortir un tableur de résultat

j'ai trouvé sur le net ceci comme programme :

http://www.softinterface.com/MD/Foriegn/French/Comparer-Fichiers.HTM

mais malheuresement dans mon entreprise tout le monde n'est pas administrateur de son poste et donc l'installation du soft n'y est pas possible et de plus ça me génere un fichier final indiquant les numéro des lignes et des paragraphes, ce qui ne m'intéresse pas (et comme par hasard on ne peut pas les enlever)

PS : à tout hasard si un tel script existe en VB 6, mais bon vus les probleme qu'on certains à faire migrer leur appli de VB6 à Dot Net, je préférerai Dot Net

[M@XflY]

j'ai trouvé ça si ça intéresse qq :

J'ai deux tableaux situés sur deux feuilles différentes (même taille). Je voudrais sur une troisième feuille afficher uniquement les différences entre ces deux tableaux.
Tes 2 tableaux doivent être de même dimension (ligne et colonne)
Chacun des 2 tableaux (rg1 et rg2 ) peut être situé n'importe où dans
leur feuille respective, en autant qu'il soit de mêmes dimensions.

Il ne te reste plus qu'à renseigner dans la procédure les noms des
feuilles et plage de cellules des 2 tableaux comparatifs et ceux du
tableau des résultat :

Tableau des résultats est construit de cette manière :
En colonne A1 : Adresse du premier tableau
B1 : Valeur du premier tableau à l'adresse de A1
En colonne C1 : Valeur du tableau 2
D1 : Valeur du tableau 2 en C1

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub ComparaisonTableau()
 
Dim RG1 As Range, RG2 As Range
Dim Tblo1, Tblo2, Rg3 As Range
Dim A As Long, B As Integer, C As Long, D As Integer
 
Set RG1 = Sheets("Feuil1").Range("A1:A10") 'Tabeau 1
Set RG2 = Sheets("Feuil2").Range("A1:A10") 'Tableau 2
Set Rg3 = Sheets("Feuil3").Range("A1") 'Tableau des résultats
 
If RG1.Rows.Count <> RG2.Rows.Count Then
MsgBox "Le tableau n'a pas le même nombre de lignes"
Exit Sub
End If
If RG1.Columns.Count <> RG2.Columns.Count Then
MsgBox "Le tableau n'a pas le même nombre de colonnes"
Exit Sub
End If
 
Tblo1 = RG1: Tblo2 = RG2: D = 1
Application.ScreenUpdating = False
For A = 1 To UBound(Tblo1, 1)
For B = 1 To UBound(Tblo1, 2)
If Tblo1(A, B) <> Tblo2(A, B) Then
C = C + 1
Rg3(C, D) = RG1(A, B).Address(0, 0)
Rg3(C, D).Offset(, 1) = Tblo1(A, B)
Rg3(C, D).Offset(, 2) = RG2(A, B).Address(0, 0)
Rg3(C, D).Offset(, 3) = Tblo2(A, B)
End If
Next
Next
 
Set RG1 = Nothing: Set RG2 = Nothing: Set Rg3 = Nothing
Erase Tblo1: Erase Tblo2
End Sub

par contre c'est du VBA je pense (à vérifier je connais pas trop la syntaxe du Dot Net) donc le post à plus trop ça place ici

PS : je test et je vous tiens au courant