MACRO VBA excel

Version imprimable

06/03/2018, 07h06
ATEK2014

MACRO VBA excel

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
06/03/2018, 08h01
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.
06/03/2018, 09h03
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
06/03/2018, 09h15
Menhir

Citation:

Envoyé par ATEK2014

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:

=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.

Macro Excel

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:

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:

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;

07/03/2018, 09h16
Menhir

Citation:

Envoyé par ATEK2014

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.
07/03/2018, 10h00
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
07/03/2018, 13h21
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.
07/03/2018, 13h36
ATEK2014

Je te remercie pour ta proposition , mais croyais avoir répondu plus haut:

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

Cdlt,
07/03/2018, 15h07
Philippe Tulliez

Bonjour,

Citation:

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

Tu n'as effectivement pas lu le tutoriel ni la réponse que j'ai donnée

Citation:

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

La méthode AdvancedFilter c'est du VBA (exportation de milliers de lignes suivant critères en moins d'une seconde et pratiquement une ligne de code
07/03/2018, 17h20
ATEK2014

Autant pour moi, je vais tester cette solution.

Je te remercie.

Cdlt