Discussion :

[ATEK2014]

Bonjour,










J'ai besoin d'aide afin de trouver une macro qui :
Récupère les données présentes dans le fichier 1 deet ne sont pas présentes dans le fichier 2 du même classeur et les affiche dans un autre onglet (Fichier3)
et récupère les données présentes dans le fichier 2 et ne sont pas présentes dans le fichier 1 et les affiche dans un autre onglet (Fichier3).












Merci de votre aide

[unparia]

Bonjour et bienvenue sur ce forum. (As-tu pensé à en lire les règles ?)

Bon, tu as exprimé ton besoin.
Et qu'as-tu au moins tenté d'écrire ? Montre cette tentative de code, s'il te plait.

[Philippe Tulliez]

Bonjour,
La méthode AdvancedFilter est une solution avec comme critère nommé une formule utilisant la fonction EQUIV (MATCH pour la version anglaise)

A lire

• Les filtres avancés ou élaborés dans Excel
• Comment comparer (matcher) des données dans Excel
• Exporter les données comparées (« Matchées »)

[Menhir]

Récupère les données présentes dans le fichier 1 deet ne sont pas présentes dans le fichier 2 du même classeur et les affiche dans un autre onglet (Fichier3)
et récupère les données présentes dans le fichier 2 et ne sont pas présentes dans le fichier 1 et les affiche dans un autre onglet (Fichier3).

Pas besoin de macro pour ça.
Tu copies toutes les données de fichier1 et fichier2 dans fichier3.
En supposant que "les données" à vérifier sont en colonne A, tu inscris en ligne 1 de cette nouvelle colonne la formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=MIN(NB.SI(fichier1!A:A;A1);1)+MIN(NB.SI(fichier2!A:A;A1);1)

Ensuite tu fais un tri de tout le tableau en utilisant cette nouvelle colonne comme clé de tri.
Tu supprimes toutes les lignes contenant "2" dans cette nouvelle colonne.

[ATEK2014]

Bonjour ,

Merci pour vos réponses.
J'ai une quarantaine de fichiers à analyser, cela risque de me prendre beaucoup de temps, d'ou mon choix pour une macro.
Voici le code que j'ai essayé:
la première macro nous donne ce qui est présent dans le fichier Ressources Didier et ne l'est pas dans Global

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
 
 
Sub essai() 
Dim colonne1 As Range, colonne2 As Range, cellule As Range, trouve As Range, suite As Range 
 
'
Set colonne1 = Sheets("Ressources Didier").Range(("A2"), Sheets("Ressources Didier").Range("A2").End(xlDown)) 
Set colonne2 = Sheets("Global").Range(("A2"), Sheets("Global").Range("A2").End(xlDown)) 
 
'Efface la plage de réception 
Sheets("Feuil5").Range("B2:B65536").ClearContents 
 
'Retranscrit les données différente de la feuille1 sur la feuille2 
For Each cellule In colonne1 
Set suite = Sheets("Feuil5").[B65536].End(xlUp).Offset(1, 0) 
Set trouve = colonne2.Find(cellule.Value, LookIn:=xlValues, lookat:=xlWhole) 
If trouve Is Nothing Then suite.Value = cellule.Value 
Next 
End Sub

la deuxieme macro nous donne ce qui est présent dans le fichier Global et ne l'est pas dans Ressources Didier

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
 
 
 
Merci pour votre aide
 
Sub essai() 
Dim colonne1 As Range, colonne2 As Range, cellule As Range, trouve As Range, suite As Range 
 
'
Set colonne1 = Sheets("Ressources Didier").Range(("A2"), Sheets("Ressources Didier").Range("A2").End(xlDown)) 
Set colonne2 = Sheets("Global").Range(("A2"), Sheets("Global").Range("A2").End(xlDown)) 
 
'Efface la plage de réception 
Sheets("Feuil5").Range("C2:C65536").ClearContents 
 
'Retranscrit les données différente de la feuille1 sur la feuille2 
For Each cellule In colonne1 
Set suite = Sheets("Feuil5").[C65536].End(xlUp).Offset(1, 0) 
Set trouve = colonne2.Find(cellule.Value, LookIn:=xlValues, lookat:=xlWhole) 
If trouve Is Nothing Then suite.Value = cellule.Value 
Next 
End Sub

Sachant que l'onglet Global se trouve dans le classeur Global
l'onglet Ressources Didier se trouve dans le classeur Ressources Didier
et le résultat est dans la feuil 5 le classeur nommé différentiel;

[Menhir]

J'ai une quarantaine de fichiers à analyser, cela risque de me prendre beaucoup de temps, d'ou mon choix pour une macro.

Dans ta demande, tu parles de DEUX fichiers. Avec de mauvaises données, on ne peut pas apporter de bonnes réponses.
Cela dit, avec 40 fichier, la description que tu fais dans ta demande n'a plus beaucoup de signification. Je pense que tu devrais le reformuler clairement.

[ATEK2014]

J'ai 40 fichiers que je dois comparer à un fichier de référence (Ressources Didier).
L'exemple que j'ai donné ici c'est la comparaison d'un seul fichier (Global) avec le fichier Global (il faudrait que je trouve les données présentes dans Ressources Didier et absentes dans Global et les données présentes dans Global et absentes dans Ressources Didier.

Comparer l'onglet Global du classeur Global et l'onglet Ressources Didier du classeur Ressources Didier et mettre les résultats dans Feuil 5 dans le classeur Differentiel
.

Il faudrait que je fasse l’exercice sur les 39 autres fichiers.

J’espère que c'est plus clair

Merci

[Philippe Tulliez]

Bonjour,
Ce n'est pas que je considère que ce que j'écris soit intéressant mais tu sembles complètement ignorer les réponses que l'on donne.
Si les liens que j'ai donnés et qui me semble correspondre à ta demande ne répondent pas à tes attentes, le minimum serait de le signaler afin que je n'ai pas l'impression de répondre pour rien.