VBA-Excel Comparaison 2 feuilles

**PiuPiu** · 15/10/2007, 11h05

Bonjour à tous amis dévellopeurs, me voici donc avec un problème sans doute simple pour nombre d'entre vous mais compliqué pour moi qui ne connait pas du tout le vba et qui ne sait trop par ou commencer!

Bon alors voila mon problème.J'ai deux feuilles: une reference et une autre a trier.

Reference se présente comme ca :

Numéro de tel -- Champ2 -- Champ3....

A trier se présente comme ca :

Numéro de tel -- Champ2 -- Champ3 -- Champ4 .... Champ26

Donc mon but et de comparer les numéros de tel de a trier avec reference. Si le numéro est présente dans les deux alors toutes la ligne correspondante dans a trier est copié dans une nouvelle feuille valide, si le numéro n'est pas présent dans reference alors toutes les infos correspondantes au numéro dans a trier sont déplacées dans une feuille anomalie.

Voila voila (a noter qu'il y a 750 numéros dans reference et 1200 dans a trier)

merci d'avance pour vos nombreuses reponses!

**Jean-Philippe André** · 15/10/2007, 11h21

salut Piu² (prononcé Pioutoo

)
pour faire des tests tu peux passer par des boucles for avec un if d'un formulaire à l'autre, mais peux-tu juste nous faire unscreenshot de ce que tu utilises pour qu'on t'en dise plus stp

**ouskel'n'or** · 15/10/2007, 11h24

Tu m'arrêtes si je me trompe...
Dont ça te fait 4 feuilles : "reference", "A trier", "valide" et "anomalie"
Dans l'ordre,
ta lecture de fait dans "Reference",
la recherche dans "A trier"
les copies :
si trouvé dans "A trier", alors dans "valide",
sinon dans "anomalie"
C'est bien ça ?
Tu dis
A+

**PiuPiu** · 15/10/2007, 11h28

En fait je prend le numéro de tel présent dans a trier
je vérifie s'il est présent dans reference
s'il est présent dans réference alors je copie toute la ligne de a trier dans valide
sinon je copies toutes les infos dans anomalies!

J'ai trouvé ce topichttp://www.developpez.net/forums/sho...ht=comparaison ou tu a répondu mais n'y connaissant rien du tout en vba j'avou ne pas bien voir les modifications qu'il faudrai y apporter!

**ouskel'n'or** · 15/10/2007, 11h45

Je n'aime pas utiliser le code "d'un autre"

Tiens, adapte les noms de feuilles (tu en mets bien quatre) et teste ça

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
Sub test()
Dim FL1 As Worksheet
Dim FL2 As Worksheet
Dim FL3 As Worksheet
Dim FL4 As Worksheet
Dim Cell as range, c
    'On instancie les feuilles de calculs
    Set FL1 = Worksheets("reference")
    Set FL2 = Worksheets("A trier")
    Set FL3 = Worksheets("valide")
    Set FL4 = Worksheets("anomalie")
    'Lecture des lignes renseignées dans "reference"
    For Each Cell In FL1.Range("A2:A" & FL1.Range("A65536").End(xlUp).Row)
        'Recherche dans "A trier" colonne A (1)
        With FL2.Columns(1)
            Set c = .Find(Cell, LookIn:=xlValues)
            If Not c Is Nothing Then
                'No tél trouvé
                Rows(c.row).EntireRow.Copy FL3.Rows(FL3.Range("A65536").End(xlUp).Row)
              Else
                'No tél pas trouvé
                Rows(c.row).EntireRow.Copy FL4.Rows(FL4.Range("A65536").End(xlUp).Row)
            End If
        End With
    Next
End Sub

Pas testé, il y a peut être une erreur ou deux...
A+

**PiuPiu** · 15/10/2007, 11h49

merci beaucoup je vais essayer ca sur le champ

**PiuPiu** · 15/10/2007, 14h28

voili voili j'ai fait une petite modification afin qu'il copie les infos de a trier en fonction de référence (et non l'inverse) ca ca marche.

Maintenant j'ai le problème suivant que je n'ai pas réussi à résoudre (mais je ne désespère pas encore). La macro ne saute pas de ligne après avoir inséré une ligne dans valide donc à chaque fois il réécrit par dessus et je ne vois donc que le dernier enregistrement. (on le voit bien en faisant pas à pas) De plus il semblerai que ca n'enregistre que dans valide et pas dans anomalie (j'ai pas encore creusé pour le moment je me concentre surtout pour voir pourquoi ca veut pas sauter de ligne)

Merci

**PiuPiu** · 15/10/2007, 15h37

Me revoila donc avec la solution a mon problème (du moins il me semble)

J'ai simplement remplacé End(xlUp).Row par End(xlUp).Row+1.

Par contre il m'enregistre tout dans valide comme si tous les numéro dans a trier étaient également présent dans reference. Cela n'est point possible puisque a trier -> 1215 numéros tandis que référence -> 725 numéros!

SI quelqu'un a une idée en passant...

**alsimbad** · 15/10/2007, 15h47

ce n'est pas impossible si tu as des doublons dans ta liste a trier. tu devrais commencer par trier tes données et enlever les doublons. cepandant, statisquement il doit bien y avoir au moins une anomalie, donc le plus simple pour en etre sur...provoque en une. met un n° bidon et tu verras bien comment ton code réagis

**PiuPiu** · 15/10/2007, 16h00

nan je suis certain qu'il y a des anomalies j'ai même commencé par vérifier ca avec un simple ctrl + F, les 4 ou 5 premières lignes sont des anomalies et pourtant il me les mets quand même dans valide!

**PiuPiu** · 15/10/2007, 17h31

Problème résolu, travail terminé! Merci a tous pour votre aide.

Voici le code final que j'ai utilisé au cas où ca intéresserai quelqu'un un jour

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
Sub test()
Dim FL1 As Worksheet
Dim FL2 As Worksheet
Dim FL3 As Worksheet
Dim FL4 As Worksheet
Dim Cell As Range, c
 
    'On instancie les feuilles de calculs
    Set FL1 = Worksheets("a_trier_08")
    Set FL2 = Worksheets("Reference")
 
    Set FL3 = Worksheets("valide")
    Set FL4 = Worksheets("anomalie")
 
    'Lecture des lignes renseignées dans "a trier"
 
    For Each Cell In FL1.Range("A2:A" & FL1.Range("A65536").End(xlUp).Row)
        'Recherche dans "reference" colonne A (1)
 
        With FL2.Columns(1)
            Set c = FL2.Columns(1).Find(Cell, LookIn:=xlValues)
 
            If Not c Is Nothing Then
                'No tél trouvé
                Cell.EntireRow.Copy FL3.Rows(FL3.Range("A65536").End(xlUp).Row + 1)
 
              Else
                'No tél pas trouvé
                Cell.EntireRow.Copy FL4.Rows(FL4.Range("A65536").End(xlUp).Row + 1)
            End If
        End With
    Next
 
End Sub

Merci!!

**ouskel'n'or** · 15/10/2007, 18h05

Hello me revoilou.
A part le +1, (j'avais bien dit...

) qu'as-tu modifié ?
A+

PS - N'oublie pas de taguer Résolu, le bouton en bas de cette fenêtre

VBA-Excel Comparaison 2 feuilles

Macros et VBA Excel

Discussions similaires

Partager

Partager