[VBA-E] Comparaison de ligne et copie

Version imprimable

Voir 40 message(s) de cette discussion en une page

10/01/2007, 10h06
melodyyy

[VBA-E] Comparaison de ligne et copie

Je suis sur une macro de comparaison de fichier, et je la fais par étape. La je cherche à dire "Si j'ai pas la même ligne dans la colonne alors, je copie la ligne qui diffère dans un autre fichier"

Je sais presque tout dire, sauf le je copie la ligne qui diffère...

Quelqu'un aurait une idée ?
10/01/2007, 11h10
melodyyy

et ça peut marcher pour genre...30 lignes ?
Si je met uen recherche de fin de fichier et que je précise que la 1ere ligne est particulière et qu'il faut prendre exemple, ça marcherais ?

en fait ce que je pensais mettre pour si j'ai pas la même ligne ça marche pas..

Alors toi comment tu dirais le tout "si j'ai pas la même ligne alors copier la ligne qui diffère (ça je sais je m'inspire de ta macro) dans un autre fichier" ?
10/01/2007, 11h41
ouskel'n'or

Précise ta demande. Quelle comparaison effectues-tu ? Qu'est-ce qui est censé différer dans ta ligne ? Une seule cellule ? Plusieurs cellules ? Elles ont forcément une donnée commune si tu souhaites faire des comparaisons
Bref, quelles sont les structures de tes lignes dans Fich1 et Fich2 ?
A+

ouai je suis d'accord...
En fait j'ai environ 30 ligne dans la colonne A, la même chose dans la colonne B.
Je dois comparer chaque ligne entre colonne A et B, et si ça diffère je dois copier la ligne qui diffère dans un fichier C..
Tu vois ? donc je m'inspire certe, j'ai un truc pas mal, mais ça merde à fond et je trouve pas le probleme...donc je me dis autant tout recommencer...

si tu veux j'ai ça mais ça me copie bien la celulle qui diffère, mais pas au bon endroit et je comprends pas pourquoi...Je faisais juste un essai pour que ça le copie en face de la ligne qui est différente et ça copie bien le différent mais au début jamais en face de la ligne..
Alors j'ai pas essayé, mais peut etre que si je demande à copier dans un autre fichier ça le fera...mais t'as une astuce pour pas qu'il me le copie au début tout le temps et qu'il poursuive sa logique ? Si je dis que dans le 3eme fichier la 1ere ligne est spéciale et qu'il faut suivre sa "directive" ça le ferait tu crois ? En fait je pogresse en VBA, j'ai quelques bonnes notion (merci à vous ;) ) mais quelques incertitudes aussi et des doutes ;) mais bon ça fait que 2 mois et demi que je suis dessus hein ;)
je te montre mon code dit moi ce que tu modifierais toi:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 'Tom Ogilvy, mpep Dim rngA As Range Dim rngB As Range Dim rw As Long Set rngA = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)) Set rngB = Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp)) rw = 1 For Each cell In rngB If Application.CountIf(rngA, cell.Value) = 0 Then Cells(rw, 3).Value = cell.Value rw = rw + 1 End If Next End Sub

Dans Classeur1 tu parcours ta colonne A et pour chaque ligne, tu compares avec ce qui a dans colonne b
Si c'est différent tu copies dans classeur2
Pour ça tu établis la plage de données de la colonne A (recherche de la dernière ligne... tu devrais connaître)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub ComparerCopierColler() Dim DernièreLigne As Integer, LaPlage As String, NoLigneCollage As Integer DernièreLigne = Workbooks("Classeur1.xls").Worksheets("Feuil1").Range("A1").SpecialCells(xlCellTypeLastCell).Row LaPlage = Workbooks("Classeur1.xls").Worksheets("Feuil1").Range("A1:A" & DernièreLigne).Address For Each Cellule In Workbooks("Classeur1.xls").Worksheets("Feuil1").Range(LaPlage) If Cellule.Value <> Workbooks("Classeur1.xls").Worksheets("Feuil1").Cells(Cellule.Row, 2) Then NoLigneCollage = NoLigneCopie + 1 Workbooks("Classeur1.xls").Worksheets("Feuil1").Cells(Cellule.Row, 1).EntireRow.Copy _ Destination:=Workbooks("Classeur2.xls").Worksheets("Feuil1").Rows(NoLigneCollage & ":" & NoLigneCopie) End If Next End Sub
Si tu fais un essai sur deux nouveaux classeurs, Classeur1 et Classeur2 par exemple, soit tu les enregistres pour qu'ils aient l'extension .xls, soit tu supprimes cette extension dans le code ci-dessus (on ne sait jamais...)
A+

yes recherche de fin de lignes je connaissais ;)
en revanche il me dit imcompatibilité de type la:
Code:

1 2 3 Workbooks("Classeur1.xls").Worksheets("Feuil1").Cells(Cellule.Row, 1).EntireRow.Copy _ Destination:=Workbooks("Classeur2.xls").Worksheets("Feuil1").Rows(NoLigneCollage & ":" & NoLigneCopie)
je sais que c'est à cause de cellule, mais je sais pas quoi mettre à la place...

vivement le repos de ce soir ;)

et à la fin je dois dire que si il a trouvé les même valeurs alors il soustrait la ligne avec l'autre fichier
Si le résultat est sup à 0 alors il l'écrit.

Je sais soustraire 2 cellules mais 2 lignes ça marche comment ?

salut
moi je crois qu'il faudrait que tu expose ton probleme plus clairement. ça vous permettrait de parler de la meme chose
je te cite :
Code:

1 2 3 En fait j'ai environ 30 ligne dans la colonne A, la même chose dans la colonne B. Je dois comparer chaque ligne entre colonne A et B, et si ça diffère je dois copier la ligne qui diffère dans un fichier C..
la moi je comprend
tu veux comparer 2 colones
case a1 avec b1
case a2 avec b2 ...
ma question, y a t'il quelque chose en colone c?

je te cite encore :
Code:

1 2 Je faisais juste un essai pour que ça le copie en face de la ligne qui est différente et ça copie bien le différent mais au début jamais en face de la ligne..
est ce qu'en face signifie
je compare a1 et b1 et si ils ne sont pas identiques, je copie la case b1 en c1?
je te cite encore:
Code:

1 2 3 et à la fin je dois dire que si il a trouvé les même valeurs alors il soustrait la ligne avec l'autre fichier Si le résultat est sup à 0 alors il l'écrit. Je sais soustraire 2 cellules mais 2 lignes ça marche comment ?
quand tu parle de soustraire, est ce un soustraction au sens arithmetique du terme, ou enlever la ligne qui est differente?
c'est pas pour me moquer, mais comprend qu'il est difficile de t'aider si on ne comprend pas ou tu veux en venir

10/01/2007, 23h30
ouskel'n'or

Citation:

Envoyé par Tu

je sais que c'est à cause de cellule, mais je sais pas quoi mettre à la place...

Qu'est-ce qui te fait dire ça, Cellule n'est pas un mot clé
Mets-nous ta "traduction" de mon code (qui fonctionne chez moi)
Ensuite

Citation:

Envoyé par Tu"

Je sais soustraire 2 cellules mais 2 lignes ça marche comment ?

Cellule par cellule ;)
Pour le reste, j'ai pas compris :cry:
A+

ben si c'est un mot clé mais il en veut pas y'a un truc sur la ligne qu'il accepte pas...
ok donc cellule par cellule...

bon alors la traduction du code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub ComparerCopierColler() Dim DernièreLigne As Integer, LaPlage As String, NoLigneCollage As Integer DernièreLigne = Workbooks("Classeur1.xls").Worksheets("Feuil1").Range("A1").SpecialCells(xlCellTypeLastCell).Row LaPlage = Workbooks("Classeur1.xls").Worksheets("Feuil1").Range("A1:A" & DernièreLigne).Address For Each Cellule In Workbooks("Classeur1.xls").Worksheets("Feuil1").Range(LaPlage) If Cellule.Value <> Workbooks("Classeur1.xls").Worksheets("Feuil1").Cells(Cellule.Row, 2) Then NoLigneCollage = NoLigneCopie + 1 Workbooks("Classeur1.xls").Worksheets("Feuil1").Cells(Cellule.Row, 1).EntireRow.Copy _ Destination:=Workbooks("Classeur2.xls").Worksheets("Feuil1").Rows(NoLigneCollage & ":" & NoLigneCopie) End If Next End Sub
Comparer/coller:
Déclaration de variable
Dernièreligne = Classeur ("Classeur1.xls").Feuille ("Feuille1"). Cellule ("A1"). tirer la formule jusqu'en bas de la dernière ligne
LaPlage = Classeur ("Classeur1.xls").Feuille ("Feuille1").De la cellule ("A1 à la dernière cellule de A et la variable dernièreligne. en tant qu'adresse
Pour chaque Cellule du classeur ("Classeur1.xls") de la feuille 1 de la plage (LaPlage)
Si dans la cellulle il y a une valeur différente dans le classeur 1, de la feuille 1, des cellules de la ligne 2, alors
La variable nolignecollage = variable (pourquoi tu l'as pas déclaré ?) +1
Classeur 1.xls, feuille1. des cellules de la ligne 1, retourne sur la cellule différente et la copie
A:= classeur2.xls, feuille1, ligne (varaible nolignecollage et un : et variable nolignecopie)
Fermeture des conditions
Fin de la macro

Et donc moi il bloque..je sais pas pourquoi...

alsimbad:

Oui je compare 2 colonnes. En revanche si il y'a la même chose dans les 2 il copie la ligne et soustrait entité par entité
Si il y'a pas la même chose, il copie et marque 0
Et en C y'a rien du coup

Ah oui pardon pour la soustraction...c'est dans le sens arithmétique ;) juste une calcul: c'est à dire que admettons en B du fichier M (colonne qu'on va appeler service1) y'a 30 et dans le fichier A du fichier M-1 du même service on a 29, dans le fichier C moi je marque -1
Et la soustraction ne doit se faire que si et seulement si il me trouve la même chose dans la colonne A du 1er fichier et la même chose dans la colonne A du 2eme fichier, sinon et ben rien il copie et marque 0

je m'exprime mieux ?
c'est pas simple à expliquer non plus :?

Ok, autant pour moi, j'ai modifié un nom de variable... mais pas partout :oops: (En rouge dans le code)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub ComparerCopierColler()
Dim DernièreLigne As Integer, LaPlage As String, NoLigneCollage As Integer
    DernièreLigne = Workbooks("Classeur1").Worksheets("Feuil1").Range("A1").SpecialCells(xlCellTypeLastCell).Row
    LaPlage = Workbooks("Classeur1").Worksheets("Feuil1").Range("A1:A" & DernièreLigne).Address
    For Each Cellule In Workbooks("Classeur1").Worksheets("Feuil1").Range(LaPlage)
    If Cellule.Value <> Workbooks("Classeur1").Worksheets("Feuil1").Cells(Cellule.Row, 2) Then
     NoLigneCollage = NoLigneCollage + 1
      Workbooks("Classeur1").Worksheets("Feuil1").Cells(Cellule.Row, 1).EntireRow.Copy _
      Destination:=Workbooks("Classeur2").Worksheets("Feuil1").Rows(NoLigneCollage & ":" & NoLigneCollage)
End If
Next
End Sub

Désolé mais bon... t'aurais pu le voir et le modifier en silence :mouarf:
A+

11/01/2007, 12h05
melodyyy

ben nan j'ai vu ça hier je me suis dis t'es trop fatigué ce qui était vrai :roll:
pi j'ai revu ce matin et je me suis dis tetre que c'est un truc que tu connais encore pas ça se peut aussi, en fait nan j'étais bien dans mon truc hein ;)8O

ceci dit erci cher monsieur :)

ben merde il continue à me dire l'indice n'apparteitn pas à la selection et toujours dans la même ligne....

alors je comprends pas du tout
11/01/2007, 12h23
ouskel'n'or

Ça être erreur identifiée. Toi t'être gourée dans un nom de fichier... Attention aux .xls... Si c'est un nouveau classeur non enregistré, l'a pas de xls dans son nom. Cf mon laïus ici en bas du message
Faut suivre ! ;)
A+
11/01/2007, 13h28
melodyyy
Ben j'ai enregistré les 2 classeurs pourtant....
Ceci dit je garde la macro telle qu'on la modifié et je la mettrais dans les ficheirs reel en l'adaptant.
Je laisse le post ouvert, de façon à ce que quand la macro sera réellement complète (ceci n'étant qu'un ti bout) si ya un probleme on en reparle ensemble ;) un avis des autres est toujours bien quand toi t'es plongé dedan et que tu vois pu rien ;)

Mais erci :oops:

Dit moi pour remplacer et mettre l'inverse de:
Code:

1 2 If Cellule.Value <> Workbooks("Classeur1").Worksheets("Feuil1"
On peut mettre:
Code:

1 2 If Cellule.Value = Workbooks
ou pas ?
11/01/2007, 17h10
alsimbad

:lol: excuse moi melodyyy; mais pour le coup, je suis vraiment mort de rire, j'ai absolument rien compris a ta derniere explication.
si on prend un exemple sur une seule ligne, la ligne A
fichier m-1 en a1 tu as 30. qu'as tu en b1 puis en c1 et y a t'il quelque chose sur le reste de la ligne

le fichier m est celui auquel tu veux comparer le premier
tu veux comparer la valeur que tu en m(b1) a la valeur m-1(a1)
mais alors dans ce fichier m qu'as tu en a1 c1 et dans le reste de la ligne?
ensuite la soustraction
si m-1(a1) = m(b1) il soustrait quoi a quoi? et ou place t'il le résultat?
si m-1(a1) <> m(b1) il fait quoi
es ce indispensable de travailler sur trois fichier, peut on le faire sur trois feuille, ou au pire sur une seule. (la je ne parle pas de la possibilité technique, mais de ce qui serait le mieux pour toi). je t'assure que je me moque pas et que je t'aiderais, mais je t'assure aussi que c'est pas clair.
11/01/2007, 19h51
ouskel'n'or

Je réponds à ça

Oui, on peut :mouarf:
12/01/2007, 09h26
melodyyy

alors asimbad: yes je peux bosser sur 3 feuilles. Alors je t'explique sur colonne à gauche la colonne A, milieu colonne B, à droite colonne C.

Ouvrir Onglet M Ouvrir Onglet M-1
Ouvrir Onglet A Ouvrir Onglet B Ouvrir Onglet C
Copier Onglet M Copier Onglet M-1
Coller dans A Coller dans B
Fermer M Fermer M-1
Rech de fin
de ligne recherche de fin de ligne
Prendre le code
colonne A trouver le même dans B Le marquer dans C
Sur la même ligne
prendre chiffre en
tité par entité soustraire entité par entité marquer le résultat dans C

Si résultat différent de 0 alors écrire le résultat
Si il y'a une ligne qui n'est pas dans M mais qui est dans M-1 alors écrire le code dans C avec 0 dans les entité et mention SUPPRIME (ça je sais dire)
Si il ya une nouvelle ligne dans M et pas dans M-1 alors écrire les résultats dans les entités et rajouter la mention NOUVELLE

Voila mon truc en entier

ok alors, c'est plus clair, en fait tu compare les colonnes A de m et m-1
ma réponse est aussi claire:
tu ne peux pas en t'y prenant comme ça
je m'explique
si tu compare trois ligne identiques que tu as copiée
a b
marcel marcel
emilie emilie
julie julie
tout vas bien
si tu as ajouter ou retirer une entree (etienne) tu obtiens
marcel marcel
etienne emilie
emilie julie
julie rien
tu n'as pas 1 difference mais 3, pas moyen de savoir ce qui a differé.
en fait il faut que tu fasse une recherche dans chaque colonne a partir des nom de l'autre colonne
Code:

1 2 3 4 5 6 7 8 9 for each cel in worksheets("m-1").range("a1:a30") '(a30 au hasard, a toi de determiner ça) for each résult in worksheets("m").range("a1:a30") if cel = result then dans worksheets ("final").cells( i, 1)copier ta ligne faire ton opération i = i +1 else dans worksheets ("final").cells ( i, 1)copier ta ligne marquer a suprimer end if next résult next cel
2 eme boucle pour aller pecher les nom de m qui n'existait pas dans m-1
tu en ajoute une troisieme pour comparer aussi avec les noms que tu as déja
Code:

1 2 3 4 5 6 for each cel in m for each result in m-1 if cel = result for each compar in final if not cel = compar 'rajouter a la suite
tu ne peux pas les réécrire a la meme place, tu vois bien dans mon premier exemple que tu ne peux pas écrire etienne et emilie sur la meme ligne
voila, j'espere que ça vas t'aider, je suis un peu flemme de t'écrir le code, mais si tu as besoin, demande, je te le ferais

mon clavier efface tout c'est galre ! der des der pour pas me faire engueuler

Code:

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
Sub Copiercoller()
 
Dim derniereligne, Dernièreligne As Integer, LaPlage As String, NoligneCollage As Integer, Calcul As Double
 
    'Ouvrir UPIT mois en cours'
    Workbooks.Open ("http://dtii.pcinfo.inetpsa.com/document/111317641.pc1fm")
    Workbooks("111317641.pc1fm").Activate
 
    'Copier UPIT dans M'
    Worksheets("Feuille principale").Select
    Range("A1:IF556").Select
    Selection.Copy
    Workbooks("macro_comparer.xls").Activate
    Sheets(" M").Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
 
    'Fermer UPIT mois en cours'
    Workbooks("111317641.pc1fm").Close
 
 
    'Ouvrir fichier UPIT mois -1"
    Workbooks.Open ("http://dtii.pcinfo.inetpsa.com/document/111027740.pc1fm")
            Workbooks("111027740.pc1fm").Activate
 
    'Copier onglet UPIT mois -1 dans M-1'
    Worksheets("Feuille principale").Select
    Range("A1:IF556").Select
    Selection.Copy
    Workbooks("macro_comparer.xls").Activate
    Sheets("M-1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
 
    'Fermer UPIT mois -1'
    Workbooks("111027740.pc1fm").Close
 
    'Comparaison de 2 colonnes avec ADPC, avec recherche de fin de fichier et copier-coller'
    Dernièreligne = Workbooks("macro_comparer.xls").Worksheets(" M").Range("IF567").SpecialCells(xlCellTypeLastCell).Row
    LaPlage = Workbooks("macro_comparer.xls").Worksheets(" M").Range("A1:A" & Dernièreligne).Address
    For Each Cellule In Workbooks("macro_comparer.xls").Worksheets(" M").Range(LaPlage)
        If Cellule.Value = Workbooks("macro_comparer.xls").Worksheets("M-1").Cells(Cellule.Row, 2) Then
            Range("C1").Select
            Selection.AutoFill Destination:=Range("G1:G500"), Type:=xlDefault
            If Cellule.Value <> Workbooks("macro_comparer.xls").Worksheets("M-1").Cells(Cellule.Row, 2) Then
                NoligneCollage = NoligneCollage + 1
                Workbooks("macro_comparer.xls").Worksheets(" M").Cells(Cellule.Row, 1).EntireRow_Copy_
                Destination = Workbooks("macro_comparer.xls").Worksheets("Synthèse M et M-1").Rows(NoligneCollage & "; " & NoligneCopie)
                Range("D1").Select
                ActiveCell.FormulaR1C1 = "0"
                Selection.AutoFill Destination:=Range("D1:D200"), Type:=xlDefault
                If Left(Cells(2, Dernièreligne).Formula, 1) = "0" Then
                        Range("E1").Select
                        ActiveCell.FormulaR1C1 = "Supprimée"
                    Else
                        Range("E2").Select
                        ActiveCell.FormulaR1C1 = "Nouvelle"
 
                End If
            End If
        End If
    Next
End Sub

01/02/2007, 15h11
ouskel'n'or

:mouarf: Voilà. Tu examines bien et tu corriges éventuellement
Au départ, tu as un fichier avec 3 feuilles M, M-1 et Synthèse
Tu dois comparer M et M-1 ligne par ligne
Plusieurs conditions :
.....- Si les lignes sont identiques, soustraction cellule par cellule, résultat est placé dans M-1.
Question : Dans quel sens la soustraction ?

Citation:

Soustraction de M à M-1...Si tu préfères du fichier le plus récent au fichier le moins récent...

M-1 - M donc !

Citation:

.....- Si une ligne de m n'existe pas dans M-1 on met nouvelle dans synthèse.

Questions : On met "nouvelle" ou bien insère-t-on la ligne dans synthèse
..........- Si on met "nouvelle", on le met où ?

Citation:

on met le contenu de la cellule qui se trouve dans la colonne A de la ligne correspondante de l'onglet M et tout ça on insert dans l'onglet synthèse, et on met 0 à la place de faire la soustraction...

.....- Si une ligne de M-1 n'existe pas dans M alors "il met supprimée"...
Questions : Où ? Je suppose que c'est dans Synthèse mais à quel endroit

Citation:

Il écrit le contenu de la cellule qui se trouve dans la colonne A de la ligne correspondante de l'onglet M-1 et tout ça on insert dans l'onglet synthèse , et il met 0 comme au dessus à la place de soustraction et il met supprimé en face toujours dans l'onglet synthèse...

..........- Quelle relation entre les différents onglet existe-t-il pour permettre une corrélation entre eux ?

Citation:

Mais dans la 1ere colonne de chaque fichier on a un code. Ce code est le même des 2 coté mais pas forcément à la même ligne...

Questions subsidiaires

Citation:

On met le contenu de la cellule qui se trouve dans la colonne A de la ligne correspondante de l'onglet M et tout ça on insert dans l'onglet synthèse...

Or plus bas, tu dis

Citation:

Il écrit le contenu de la cellule qui se trouve dans la colonne A de la ligne correspondante de l'onglet M-1 et tout ça on insert dans l'onglet synthèse

Celà impliquerait que tu aies le même nombre de lignes dans M et M-1 et que les N° de lignes correspondent pour chaque donnée entre M et M-1. Est-ce le cas ?
Sinon, ta solution n'est pas réalisable.

Citation:

Et oui j'ai le même nombre de lignes, fin ça c'est pas sur pour tout les mois...C'est à dire que je peux avoir un mois a 565 lignes et l'autre à 565 ou un peu moins parce qu'on modifie le fichier...

Bref, tu n'as pas forcément le même nombre de lignes…

Citation:

Mais dans la 1ere colonne de chaque fichier on a un code. Ce code est le même des 2 coté mais pas forcément à la même ligne...

Alors on devrait pouvoir s'en sortir
Ensuite, tu mets

Citation:

et on met 0 à la place de faire la soustraction...(ouai alors ça c'est si c'est possible...

Je suppose que tu mets le 0 dans M-1... (?)

Citation:

Le 0 on le met dans la ligne qu'on aura copié sous synthèse

Mais, dans quel cas n'est-ce pas possible ?
Pas de réponse ?

Enfin, je reprends ma question et toute ta phrase :
- Si une ligne de M-1 n'existe pas dans M alors...

Citation:

Il écrit le contenu de la cellule qui se trouve dans la colonne A de la ligne correspondante de l'onglet M-1 et tout ça on insert dans l'onglet synthèse , et il met 0 comme au dessus à la place de soustraction et il met supprimé en face toujours dans l'onglet synthèse...

Si on met le contenu de la cellule de M-1 dans synthèse, on place où "supprimé" ? Dans une autre colonne ?

Citation:

Ouais supprimé ou nouvelle c'est dans une autre colonne effectivement...

Là, je pense que ton code me renseignera sur la colonne puisque tu ne veux pas me le dire :mouarf:
Tu signes "le bon à tirer" et on y va ;)
A+

NB - Quand ce sera bon, on supprimera tous les posts inutiles, pas la peine de surcharger le forum ;)
01/02/2007, 15h18
melodyyy

ben c'est bon tout ça et je signe :) mais je sais pas par quoi commencer...:oops:

Voir 40 message(s) de cette discussion en une page