[VBA-E] Comparaison de ligne et copie

Version imprimable

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

J'ai commencé le code mais je te laisse faire un essai
J'ai imaginé que le code de la ligne était dans la colonne 1
Ce code vérifie que le contenu de la colonne 1 de la feuille M, existe dans M_1 dans la même colonne. Si oui, la cellule est copiée dans la feuille synthèse
(Au passage, M-1 ne passe pas, renomme en M_1)
Tu ajoutes simplement la comparaison des cellules que tu veux comparer et traite.

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
Sub Melodyy()
Set F1 = Worksheets(" M")
Set F2 = Worksheets("M_1")
Set FS = Worksheets("Synthese") 'avec ou sans l'accent, selon... mais évite
'A me fait penser à une chose : Laquelle des deux feuilles M ou M-1 a-t-elle
'"le plus de chances des chances" d'avoir un plus grand nombre de lignes ?
'Ensuite, tu instancies tes plages dans F1 et F2
Dim LaPlage1 As Range
Dim Plage2 As Range
Dim NoLigneF1 as integer, NoLigneF2 as integer, NoLigneFS as integer
F1.Activate
Set LaPlage1 = F1.Range(Cells(1, 1), Cells(F1.Range("A1").SpecialCells(xlCellTypeLastCell).Row, 1))
F2.Activate
Set Plage2 = F2.Range(Cells(1, 1), Cells(F2.Range("A1").SpecialCells(xlCellTypeLastCell).Row, 1))
'Ensuite, tu parcours la plage
FS.Activate
For Each LaCell In LaPlage1
    With Plage2
        Set Trouvé = .Find(LaCell, LookIn:=xlValues) 
        'LaCell contient le code de la ligne (dans la colonne 1 ds mon ex.
        If Not Trouvé Is Nothing Then 'On cherche une correspondance dans F2
            'Le code de la ligne a été trouvé...
            '... on compare la cellule de la colonne voulu dans F1
            '... à la cellule de la même colonne dans F2
            'On traite
            NoLigneF1 = LaCell.row
            NoLigneF2 = Trouvé.row
            NoLigneFS = NoLigneFS + 1
            FS.Cells(NoLigneFS, 1) = LaCell
            'Là, tu sais que tu dois comparer une cellule de la ligne NoLigneF1 ...
            '... avec une cellule de la même colonne de la ligne NoLigneF2
            '... avant de traiter (soustraction... copie de F1 ou F2 dans FS)
            'A toi
        End If
    End With
Next
End Sub

Raconte-moi
A+

Edit
Bon, j'en profite pour faire le ménage :aie:

01/02/2007, 16h20
melodyyy

avant d'essayer je répond à ta question:

celle qui a le plus de chance des chances d'avoir des lignes en + est M

je test ;)
01/02/2007, 16h37
melodyyy

ok elle marche bien :) merci :) tu modifies ou la colonne ? je devrai plutot prendre la colonne 6 dans M et idem dans M-1...

J'ai tripatouillé (6,6); (6,1), (1,6) mais ça fait rien pourtant me semblait que c'était la...

fin ça encore :)

et pour les soustractions je devrais me démerder, mais je peux faire par plage ? parce que cellule par cellule...j'y suis la nuit :p
01/02/2007, 16h46
ouskel'n'or

Non, tu dois le faire cellule par cellule et si tu mets "Application.screenUpdating = false" sur la première ligne de la macro et
"Application.screenUpdating = True sur la dernière ligne", à moins d'avoir un µp de 180MHz, tu n'auras pas à attentre plus de cinq secondes
Pour le code de tes comparaisons, je n'ai pas envie d'aller regarder ton ancien code, alors mets le nouveau (uniquement les lignes que tu as ajoutées) et je corrigerai en espérant que tu ne te sois pas trompé de colonne :aie:
A+

NB - Si je tarde... c'est que je bosse "un peu" à côté ;)
01/02/2007, 17h11
melodyyy

ok mreciiiiiiiiiiiiiiiiiiiii

je te montre tout ça demain :)

et euh faudrait qu'on se rencontre un jour a force de se causer et de me calmer pour mes problemes hein ;)
01/02/2007, 17h16
ouskel'n'or

Je suis impatient :mouarf:
Tu loges chez tes parents ? Où ça ?
02/02/2007, 09h31
melodyyy

ben ouai je suis en alternance ;) le salaire pas assez grand pour pouvoir partir de chez papa-maman...snif...
je loge à neuilly plaisance ;) 93 mais pas banlieu bizarre hein :)
02/02/2007, 10h15
melodyyy
est ce que j'ai le droit de dire après:
Code:

1 2 3 4 5 NoLigneF1 = LaCell.Row NoLigneF2 = Trouvé.Row NoLigneFS = NoLigneFS + 1 FS.Cells(NoLigneFS, 1) = LaCell
que je copie la ligne de la cellule qui est pareil, tu vois ? parce qu'en fait on a changé un peu (ben vi sinon c'est pas drole :p) en fait on voudrait bien copier la celulle dans synthèse la ok, mais copier la ligne de M et la ligne de M-1 dans un fichier intermédiaire, parce que ce serait plus simple pour les soustractions. Tu vois ce que je veux dire ?

bon alors si je te met:

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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
 
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 False
 
 
'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 False
 
'Comparaison de 2 colonnes avec ADPC, avec recherche de fin de fichier et copier-coller'
Set F1 = Worksheets(" M")
Set F2 = Worksheets("M_1")
Set FS = Worksheets("Synthese M et M_1")
'Ensuite, tu instancies tes plages dans F1 et F2
Dim LaPlage1 As Range
Dim Plage2 As Range
Dim NoLigneF1 As Integer, NoLigneF2 As Integer, NoLigneFS As Integer
F1.Activate
Set LaPlage1 = F1.Range(Cells(1, 1), Cells(F1.Range("D1").SpecialCells(xlCellTypeLastCell).Row, 1))
F2.Activate
Set Plage2 = F2.Range(Cells(1, 1), Cells(F2.Range("D1").SpecialCells(xlCellTypeLastCell).Row, 1))
'Ensuite, tu parcours la plage
FS.Activate
For Each LaCell In LaPlage1
    With Plage2
        Set Trouvé = .Find(LaCell, LookIn:=xlValues)
        'LaCell contient le code de la ligne (dans la colonne 1 ds mon ex.
        If Not Trouvé Is Nothing Then 'On cherche une correspondance dans F2
            'Le code de la ligne a été trouvé...
            '... on compare la cellule de la colonne voulu dans F1
            '... à la cellule de la même colonne dans F2
            'On traite
            NoLigneF1 = LaCell.Row
            NoLigneF2 = Trouvé.Row
            NoLigneFS = NoLigneFS + 1
            FS.Cells(NoLigneFS, 1) = LaCell
 
Worksheets("NoLigneF2").Select
Selection.Copy
Worksheets("intermédiaire").Activate
Selection.Paste
 
Worksheets("NoligneF1").Select
Selection.Copy
Worksheets("intermediraie").Select
Selection.Paste
 
'Soustraction des 2 lignes et c'est la que le bas blesse.....'
 
        End If
    End With
Next
End Sub

Dit moi ce que t'en pense sachant que si je me suis pas trompée (mélo est grave crevée) j'ai mis la colonne 5 des 2 côtés...

02/02/2007, 11h06
ouskel'n'or

:arf:

Citation:

Envoyé par Tu

Worksheets("NoLigneF2").Select
Selection.Copy
Worksheets("intermédiaire").Activate
Selection.Paste

Worksheets("NoligneF1").Select
Selection.Copy
Worksheets("intermediraie").Select
Selection.Paste

Désolé mais là c'est n'im----por----te----quoi ! :mur:
Désolé si je suis un peu brutal mais tu sélectionnes une feuille dont le nom porte le N° de la ligne examinée dans M ou M_1.
Bref, tu n'as rien compris à l'instanciation des feuilles.
Une fois instancié un nom de feuille, pour la désigner, tu dois utiliser l'instance.
Si tu utilises une ligne instanciée dans une feuille instanciée, le fait d'utiliser l'instance ligne évite d'avoir à nommer la feuille.
Ensuite, tu ajoutes une feuille "Worksheets("intermediraie")" dont il n'a jamais été question...

A la place des lignes citées ci-dessus, mets en français, ligne par ligne ce que tu veux faire. Ex :

Citation:

'0 - Comparer quoi à quoi de tes deux feuilles M et M_1
'1 - Soustraire M-1 - M
Dans quelles conditions
'2 - Copier la cellule ou la plage de M dans Synthèse
Dans quelles conditions
'3 - Copier la cellule de M_1 dans Synthèse
Dans quelles conditions
'4 - Mettre 0 dans la cellule "active" de M
Dans quelles conditions
'5 - Mettre 0 dans la cellule "active" de M_1
Dans quelles conditions
'6 - Copier le contenu de la cellule / de la ligne (?) dans Synthèse
Dans quelles conditions
etc.

A+... si tu en as envie mais auquel cas, réponds à ces 7 questions :(
02/02/2007, 11h25
melodyyy

'6 - Copier le contenu de la cellule / de la ligne (?) dans Synthèse
Dans quelles conditions

Alors...nan mais je comprends, je suis super crevée en ce moment, j'ai l'impression de régresser en VB...de revenir au début surtout..3 semaine sans VB et je sais pu ou j'en suis...tin quand je pense que je vais passer à openoffice bonjour...
Bon:

'0 - Comparer quoi à quoi de tes deux feuilles M et M_1
Je compare la colonne 5 de M avec la colonne 5 de M_1. Si il me trouve le même code alors il copie le code sous l'onglet synthèse et la ligne de M et de M_1 sous longlet intermédiraire (oui il vient d'apparaitre je sais)

'1 - Soustraire M-1 - M
Dans quelles conditions
Et ben justement, pour facilité la tache avec les lignes copiées sous intermédiraire on aurait plus qu'a soustraire...sauf que je m'aperçois que soustraire 2 lignes sous excel ça va, mais la c'est 2, et encore 2, et encore 2...et ce résultat on l'écriait sous synthèse avec le résultat de cellule par cellule...(je peux me tromper mais je pense pas VB capable de ça)...

'2 - Copier la cellule ou la plage de M dans Synthèse
Dans quelles conditions
Dans synthèse on copier juste la cellule qui correspond entre M et M_1 (de la colonne5) donc à codition qu'elles soient les même...

'3 - Copier la cellule de M_1 dans Synthèse
Dans quelles conditions
Pareil que pour M, à conditon que ce soit les mêmes

'4 - Mettre 0 dans la cellule "active" de M
Dans quelles conditions
Nan on met pas 0 si la ligne est nouvelle on copie la ligne de M (ce qui me pose probleme, c'est que je me rend compte aussi que ça veut dire à ce moment la que la selection des colonne pareil ne sert à rien ou je me trompe ?)

'5 - Mettre 0 dans la cellule "active" de M_1
Dans quelles conditions
Nan on met 0 dans synthèse si la ligne est supprimé, c'est à dire qu'elle existe dans M_1 et pas M

'6 - Copier le contenu de la cellule / de la ligne (?) dans Synthèse
Dans quelles conditions
Alors ouai ça ça a changé justement...
On copie le contenu de la cellule dans synthèse et le contenu de toute la ligne dans intermédiaire, et la on effectue la soustraction (ce qui implique que les lignes de M et de M_1 soit présente dans intermédiaire.

Bon si je m'exprime mal tu me dis, toute façon j'ai l'impression que y'a des trucs pas clairs dans ce qu'on m'a demandé parce que soustraire ok mais pourquoi nouvelle et supprimée ? du coup la recherche de cellule identique sert à rien, autant tout copier et après voir seulement...
ou je suis blonde quand je suis crvée tetre aussi ;)
fin merci d'etre aussi patient :) :oops:
02/02/2007, 12h47
ouskel'n'or

Bon je jète l'éponge.
Reviens quand tu auras un cahier des charges d'aplomb. Là, ça change à chaque nouveau post, y'a pas moyen. Un exemple ?

Citation:

Je compare la colonne 5 de M avec la colonne 5 de M_1. Si il me trouve le même code alors il copie le code sous l'onglet synthèse et la ligne de M et de M_1 sous longlet intermédiraire (oui il vient d'apparaitre je sais)

Puis...

Citation:

Et ben justement, pour facilité la tache avec les lignes copiées sous intermédiraire on aurait plus qu'a soustraire...sauf que je m'aperçois que soustraire 2 lignes sous excel ça va, mais la c'est 2, et encore 2, et encore 2...et ce résultat on l'écriait sous synthèse avec le résultat de cellule par cellule...(je peux me tromper mais je pense pas VB capable de ça)...

Si tu comprends ce que tu veux dire en relisant, je te mets un 20/20
Faut pas pousser la mémée
Désolé mais au départ, je croyais pouvoir t'aider
02/02/2007, 13h50
melodyyy

Si je me comprends :oops: je te rééxplique :

Je compare la colonne 5 de M avec la colonne 5 de M_1. Si il me trouve le même code alors il copie le code sous l'onglet synthèse et la ligne de M et de M_1 sous longlet intermédiraire (oui il vient d'apparaitre je sais)
Et ben justement, pour facilité la tache avec les lignes copiées sous intermédiraire on aurait plus qu'a soustraire... : ça ok

et ça:
sauf que je m'aperçois que soustraire 2 lignes sous excel ça va, mais la c'est 2, et encore 2, et encore 2...et ce résultat on l'écriait sous synthèse avec le résultat de cellule par cellule...(je peux me tromper mais je pense pas VB capable de ça)... : c'est simplement les questions que je me pose...

Je sais faire des macros simple toute seule mais compliquées comme celle la c'est chaud encore...pas toute seule quoi...pi fatiguée j'ai l'impression d'avoir un autre language :aie:

Citation:

sauf que je m'aperçois que soustraire 2 lignes sous excel ça va, mais la c'est 2, et encore 2, et encore 2...et ce résultat on l'écriait sous synthèse avec le résultat de cellule par cellule...(je peux me tromper mais je pense pas VB capable de ça)... : c'est simplement les questions que je me pose...

S'il n'y avait que ça... :(
Pour faire ça, c'est pourtant tout simple
- Tu parcours ta ligne cellule par cellule dans chaque feuille et, colonne par colonne tu réalises la soustraction de l'une - l'autre.
Tu peux faire ça dans une simple boucle puisque tu connais à l'avance le nombre de colonnes et que les colonnes correspondent dans tes feuilles
Code:

1 2 3 4 5 For i = 1 to dernierecolonne if .... la condition pour opérer cette soustraction Sheets("Feuil1").Cells(NoLigne1, NoCol) = Sheets("Feuil2").Cells(NoLigne2, NoCol) - Sheets("Feuil1").Cells(NoLigne1, NoCol) endif Next
Tu peux faire ça en instanciant tes colonnes, auquel cas c'est encore plus simple
Et pourquoi le faire 4 fois alors qu'il te suffit de répéter

Code:

Sheets("Synthese").Cells(NoLigneFS, NoCol) = Sheets("Feuil1").Cells(NoLigne1, NoCol)

et d'en faire autant pour toutes les feuilles que tu veux.

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