Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

comparer 2 fichiers EXCEL

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion BOSE24
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

BOSE24

XLDnaute Nouveau
Bonjour

je découvre votre site je débute en VAB , j'ai a comparer 2 feuilles excel données dans quatres colonnes .
la référence on doit comparer la colonne a,b,c,d feuille 1 et feuilles 2.
j'ai trouvé un modelé fait PAR TOTOTITI2008 qui compare sur colonne A ET B fichier joint .Avez vous une solution a me proposer tout le reste sur le fichier est super mais j'ai besoin de la comparaison sur les 4 colonnes.

merci de votre retour
 

Pièces jointes

Dernière modification par un modérateur:
Trier par date Trier par votes
Re : comparer 2 fichiers EXCEL

Bonsoir

merci du retour solution intéressante si les lignes sont les mêmes mais j'ai besoin de savoir si y a eut des modifications lignes surprimes changées modifier comme indications de la feuile 3 mais je garde ta solution
 
Vote positif 0 Vote négatif
Re : comparer 2 fichiers EXCEL

Bonjour BOSE24, CPk, le forum 🙂

Pour y voir plus clair, teste sur quelques lignes de données dans tes 2 feuilles avec tous les cas pouvant se présenter.
Si j'ai bien compris :
On compare Feuil1 et Feuil2, je m'appuie sur la colonne A, pour détecter les doublons.

Par rapport à Feuil1,
une nouvelle ligne en Feuil2, on notera "nouveau" en colonne F
une même ligne en Feuil2 avec un changement en colonne C, on notera "changé" en colonne F
une ligne de Feuil1 n'apparaissant plus dans Feuil2, on notera "effacé" en colonne F
Restitution dans une feuille créée pour l'occasion.
VB: 
Option Explicit

Sub test()
Dim a, e, i As Long, j As Long, w, x, y As Long
    a = Sheets("Feuil1").Range("a1").CurrentRegion.Value
    With CreateObject("Scripting.Dictionary")
        For i = 2 To UBound(a, 1)
            ReDim w(1 To 6)
            For j = 1 To UBound(a, 2)
                w(j) = a(i, j)
            Next
            w(6) = "Effacé"
            .Item(a(i, 1)) = w
        Next
        a = Sheets("Feuil2").Range("a1").CurrentRegion.Value
        For i = 2 To UBound(a, 1)
            If .exists(a(i, 1)) Then
                w = .Item(a(i, 1))
                If w(3) <> a(i, 3) Then
                    w(6) = "Changé"
                Else
                    w(6) = Empty
                End If
            Else
                ReDim w(1 To 6)
                For j = 1 To UBound(a, 2)
                    w(j) = a(i, j)
                Next
                w(6) = "Nouveau"
            End If
            .Item(a(i, 1)) = w
        Next
        For Each e In .keys
            If IsEmpty(.Item(e)(6)) Then .Remove e
        Next
        x = .items: y = .Count
    End With
    Application.ScreenUpdating = False
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("Résultat").Delete
    On Error GoTo 0
    Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Résultat"
    With Sheets("Résultat").Cells(1)
        .Resize(1, 6).Value = Array("A_TAG", "A_IOAD", "A_DESC", "A_IENAB", "A_PRI", "Statut")
        .Offset(1).Resize(y, 6).Value = _
        Application.Transpose(Application.Transpose(x))
        With .CurrentRegion
            .Font.Name = "calibri"
            .Font.Size = 10
            .VerticalAlignment = xlCenter
            .BorderAround Weight:=xlThin
            .Borders(xlInsideVertical).Weight = xlThin
            With .Rows(1)
                .BorderAround Weight:=xlThin
                .Interior.ColorIndex = 38
            End With
            .Columns.AutoFit
        End With
    End With
    Application.ScreenUpdating = True
End Sub
klin89
 
Vote positif 0 Vote négatif
Re : comparer 2 fichiers EXCEL

Bonsoir kln89

merci de ton retour je viens de faire un essais j'ai un problème car ile me détecte des ligne changées mais qui ne le sont pas .
je t'explique pourquoi dans la colonne à chez des données qui peuvent avoir la même valeur la seul chose qui les différencie c'est la colonne D
exc
colonne A colonne B colonne C Colonne D
AAA DF BG BBB
AAA CV VB AB

donc il faut bien je pense en référence prendre la colonne A mais aussi la colonne D je ne sais pas si c'est possible pour le reste super

peut on le faire

merci pour votre aide

BOSE 24
 
Vote positif 0 Vote négatif
Re : comparer 2 fichiers EXCEL

Bonsoir

une meilleur explication suite
la colonne A j'ai des données qui peuvent avoir la même valeur la seul chose qui les différencie c'est la colonne D
exc
colonne A colonne B colonne C Colonne D
AAA DF BG BBB
AAA CV VB AB

Il faut en référence prendre la colonne A (référence importante mais aussi la colonne D pour bien identifier les produits,je ne sais pas si c'est possible pour le reste parfait

merci pour votre aide
BOSE 24
 
Vote positif 0 Vote négatif
Re : comparer 2 fichiers EXCEL

Re BOSE24,

Dans l'exemple joint, sur les 2 feuilles, la colonne D contient toujours la même valeur 😕
Par contre, en colonne C, j'ai remarqué que des changements s'opéraient d'une feuille à l'autre.
Va comprendre 🙄

Alors, remplace ceci :
VB: 
If w(3) <> a(i, 3) Then
par
VB: 
If w(4) <> a(i, 4) Then
klin89
 
Vote positif 0 Vote négatif
Re : comparer 2 fichiers EXCEL

RE klin89

merci de ton retour mais comment on détecte si des valeur ce modifie en colonne B et C elle ne sont pas détectée

si tu peux me dire lors de mon premier post je parle d'une comparaison sur 4 colonne avec A ref obligatoire

BOSE24
 
Vote positif 0 Vote négatif
Re : comparer 2 fichiers EXCEL

klin89

je te fais parvenir un model de fichier le resultat est de comparer par ligne les colonne si il y a des modification j'espere que tu comprendra les resulats demandé valeur de référence colonne A

merci
 
Vote positif 0 Vote négatif
Re : comparer 2 fichiers EXCEL

Bonjour Klin89 et BOSE24 , désolé pour mon absence. Du coup j'ai perdu le fil mais pour résumer et si j'ai bien tout compris, on identifie une ligne de la feuille 1 par deux valeurs (colonne 1 et colonne 4) et on la recherche dans la feuille2 .

Si on la trouve est que les deux autres colonnes ont changé alors on sait que cela a été modifié
Si on ne la trouve pas, alors cela veut dire qu'elle a était supprimé de la feuille 2 ?
 
Vote positif 0 Vote négatif
Re : comparer 2 fichiers EXCEL

Bonjour CPk et Klin89

exact pour la définition de

et si on trouve une nouvelle ligne dans la feuille 2 qui ne correspond à aucune ligne de la feuille 1 identifier par la colonne A ET D
c' est une nouvelle
bien sur on marque nouvelle changé ou supprime avec les lignes correspondantes si possible

bien sur si possible
 
Vote positif 0 Vote négatif
Re : comparer 2 fichiers EXCEL

Re le forum,

Sans conviction.
A tester sur le fichier du post #1
VB: 
Option Explicit

Sub test()
Dim a, e, i As Long, j As Long, w, x, y As Long, txt As String
    a = Sheets("Feuil1").Range("a1").CurrentRegion.Value
    With CreateObject("Scripting.Dictionary")
        For i = 2 To UBound(a, 1)
            'on determine les cles du dictionnaire
            txt = Join$(Array(a(i, 1), a(i, 4)), Chr(2))
            ReDim w(1 To 6)
            For j = 1 To UBound(a, 2)
                w(j) = a(i, j)
            Next
            w(6) = "Effacé"
            .Item(txt) = w
        Next
        a = Sheets("Feuil2").Range("a1").CurrentRegion.Value
        For i = 2 To UBound(a, 1)
            txt = Join$(Array(a(i, 1), a(i, 4)), Chr(2))
            If .exists(txt) Then
                w = .Item(txt)
                If w(2) <> a(i, 2) Or w(3) <> a(i, 3) Then
                    w(6) = "Changé"
                Else
                    w(6) = Empty
                End If
            Else
                ReDim w(1 To 6)
                For j = 1 To UBound(a, 2)
                    w(j) = a(i, j)
                Next
                w(6) = "Nouveau"
            End If
            .Item(txt) = w
        Next
        For Each e In .keys
            If IsEmpty(.Item(e)(6)) Then .Remove e
        Next
        x = .items: y = .Count
    End With
    Application.ScreenUpdating = False
    On Error Resume Next
    Application.DisplayAlerts = False
    Sheets("Résultat").Delete
    On Error GoTo 0
    Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Résultat"
    With Sheets("Résultat").Cells(1)
        .Resize(1, 6).Value = Array("A_TAG", "A_IOAD", "A_DESC", "A_IENAB", "A_PRI", "Statut")
        .Offset(1).Resize(y, 6).Value = _
        Application.Transpose(Application.Transpose(x))
        With .CurrentRegion
            .Font.Name = "calibri"
            .Font.Size = 10
            .VerticalAlignment = xlCenter
            .BorderAround Weight:=xlThin
            .Borders(xlInsideVertical).Weight = xlThin
            With .Rows(1)
                .BorderAround Weight:=xlThin
                .Interior.ColorIndex = 38
            End With
            .Columns.AutoFit
        End With
    End With
    Application.ScreenUpdating = True
End Sub
Il n'empêche que dans le fichier du post #1, il n'y avait aucun doublon figurant en colonne A des Feuilles 1 et 2, contrairement au nouvel exemple proposé.😡

klin89
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
Microsoft 365 Comparer 2 onglets
Réponses
8
Affichages
572
matmac
M
P
  • Résolu(e)
Microsoft 365 Macro Excel pour effectuer des opérations sur les lignes et cellules adjacentes
2
Réponses
19
Affichages
539
Perceval973
P
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
355
AtTheOne
A
  • Résolu(e)
Microsoft 365 PowerPivot-comparer 2 périodes
Réponses
12
Affichages
865
Antho1234
A
L
  • Question Question
Microsoft 365 recherche X lien entre 2 fichiers
Réponses
3
Affichages
329
lilie17
L
K
  • Question Question
Microsoft 365 Planification avec variables d'ajustement
Réponses
8
Affichages
110
Kristelle1555
K
P
  • Résolu(e)
XL 2021 masquage de ligne selon condition
2
Réponses
17
Affichages
184
sylvanu
  • Question Question
Microsoft 365 faire une copie d'un fichier stocké dans un sous sous... sous répertoire
2
Réponses
20
Affichages
643
TooFatBoy
S
  • Résolu(e)
Microsoft 365 Afficher la référence de colonne d'un entête
Réponses
3
Affichages
237
Cousinhub
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
91
PRy
P
G
  • Question Question
Microsoft 365 formule sur plusieurs colonnes
Réponses
3
Affichages
290
Efgé
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
1 K
Pac41240
P
C
  • Question Question
Microsoft 365 Disparation de données dans des fichiers excel
Réponses
10
Affichages
590
CedricR34
C
U
  • Résolu(e)
Microsoft 365 planning étude
Réponses
5
Affichages
236
bsalv
B
  • Résolu(e)
XL 2021 Liste de validation de données à partir d'une table
Réponses
3
Affichages
383
Zdz16
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
306
TooFatBoy
D
  • Résolu(e)
XL 2019 Formule qui suit le total général d'un TCD ( galère ! )
Réponses
4
Affichages
211
AtTheOne
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
310
vgendron
D
  • Question Question
XL 2016 Formule excel
Réponses
7
Affichages
256
TooFatBoy
M
  • Question Question
Microsoft 365 IF ou IFS ou autres imbriqués
Réponses
5
Affichages
200
MLIZIN
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…