Discussion :

[MacroVBA]

Je suis débutant en VBA et sa fait plus de 3 jours que je cherche à resoudre cet probleme.

J'Ai 2 fichiers (tests2.xlsx et test1.xlsx) que je dois comparer.

-Dans le fichiers tests2:
J'ai Axxx= p1 + p2 + p3+ p4

Dans le fichier test1:
Axxx= p2 + p1
Axxx= p3 + p1
Axx= p4 + p1

J'aimerai verifié si tous tous les Axxx du tests2 sont présents dans test1,
si Axxx= p2 + p1
Axxx= p3 + p1
Axx= p4 + p1
corespond à Axxx= p1 + p2 + p3+ p4
exemple:
J'ai A001= PLN+ PJM+QUA dans tests2.xlsx
Et A001= PJM+ PLN
A001= QUA +PLN

J'arrive pas à coloré la cellule des Axxx du tests2.xlsx qui n se trouve pas dans test1.xlsx
ci-joint les fichiers
code:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub CommandButton3_Click()
 
 
            'Evite de voir les opérations intermédiaire sur les fichiers
        Application.ScreenUpdating = False
 
        'déclarations des variables
        Dim i As Long
        Dim j As Long
        Dim Sh As Worksheet
        Dim Tablo1
        Dim Tablo2
 
        Workbooks.Open ("D:\Couz\test1.xlsx")
        Set Sh = Workbooks("test1.xlsx").Worksheets("Feuil1") 'feuille
        With Sh
            Tablo1 = .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count, .UsedRange.Columns.Count)).Value
        End With
 
        Workbooks("test1.xlsx").Close False
        Workbooks.Open ("D:\Couz\test2.xlsx")
 
        Set Sh = Workbooks("test2.xlsx").Worksheets("Feuil1")
        With Sh
            Tablo2 = .Range(.Cells(4, 1), .Cells(.UsedRange.Rows.Count, .UsedRange.Columns.Count)).Value
        End With
 
        For i = LBound(Tablo2, 1) To UBound(Tablo2, 1)
            For j = LBound(Tablo1, 1) To UBound(Tablo1, 1)
                If Tablo2(i, 1) = Tablo1(j, 2) Then
 
                        If ((Tablo2(i, 1) & Tablo2(i, 4) & Tablo2(i, 5) = Tablo1(j, 2) & Tablo1(j, 4) & Tablo1(j, 5)) Or (Tablo2(i, 1) & Tablo2(i, 8) & Tablo2(i, 5) = Tablo1(j, 2) & Tablo1(j, 4) & Tablo1(j, 5)) Or (Tablo2(i, 1) & Tablo2(i, 9) & Tablo2(i, 5) = Tablo1(j, 2) & Tablo1(j, 4) & Tablo1(j, 5))) Then
 
                        Sh.Cells(i + 3, 1).Interior.Color = 16777215
 
 
                    Else
                        Sh.Cells(i + 3, 1).Interior.Color = 2
                        Exit For
                    End If
                End If
            Next j
        Next i
 
        Set Sh = Nothing
 
        Application.ScreenUpdating = True
 
End Sub

[MacroVBA]

Bonjour à Tous,

Y'a t-il quelqu'un pour m'aidé SVP?

[Menhir]

Personnellement, je ne parviens pas à comprendre exactement ce que tu veux faire. Donc je préfère m'abstenir plutôt que de perdre du temps à faire quelque chose qui n'est peut-être pas ce que tu souhaites.

[MacroVBA]

Personnellement, je ne parviens pas à comprendre exactement ce que tu veux faire. Donc je préfère m'abstenir plutôt que de perdre du temps à faire quelque chose qui n'est peut-être pas ce que tu souhaites.

Bonjour Menhir,

J'ai 2 fichiers joint ci-dessus que je vais comparer.

J'ai Axxx qui corespond à P1, P2,P3,P4 dans le fichier tests2.

J'ai dans un 2eme ficher test1 le même Axx qui corespond à P2, P1;P3,P1 et P4,P1 sur des differentes lignes.

exemple:
J'ai dans le fichier test2 sur la meme ligne A001= P2 (cellule 5) + P1 (cellule 5) + P3( cellule 8) +P4 (cellule 9).

Dans le fichier test1 j'ai: A001 = P2(cellule 4) +P1(Cellule 5)
A001= P3(Cellule 4) +P1(Cellule 5)
A001=P4(Cellule 4) + P1 (cellule 5)
J'aimerai compararer voir si les quatres P du du fichier tests2 se trouve dans le fichier test1

[parmi]

Bonjour,

Sans vraiment tout comprendre, essaie en changeant cette ligne.
Je pense qu'il y a un problème de parenthèses

Code :

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

If ((Tablo2(i, 1) & Tablo2(i, 4) & Tablo2(i, 5) = Tablo1(j, 2) & Tablo1(j, 4) & Tablo1(j, 5)) Or ((Tablo2(i, 1) & Tablo2(i, 8) & Tablo2(i, 5) = Tablo1(j, 2) & Tablo1(j, 4) & Tablo1(j, 5)) Or ((Tablo2(i, 1) & Tablo2(i, 9) & Tablo2(i, 5) = Tablo1(j, 2) & Tablo1(j, 4) & Tablo1(j, 5)) Then

[MacroVBA]

Bonjour,

Sans vraiment tout comprendre, essaie en changeant cette ligne.
Je pense qu'il y a un problème de parenthèses

Code :

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

If ((Tablo2(i, 1) & Tablo2(i, 4) & Tablo2(i, 5) = Tablo1(j, 2) & Tablo1(j, 4) & Tablo1(j, 5)) Or ((Tablo2(i, 1) & Tablo2(i, 8) & Tablo2(i, 5) = Tablo1(j, 2) & Tablo1(j, 4) & Tablo1(j, 5)) Or ((Tablo2(i, 1) & Tablo2(i, 9) & Tablo2(i, 5) = Tablo1(j, 2) & Tablo1(j, 4) & Tablo1(j, 5)) Then

Bonjour parmi,
Merci pour votre réponse.

J'ai 2 fichiers que je vais comparer.

j'ai 2 fichiers (test2 et test1) excel dans lesquels se trouvent des données que je vais comparer.
exemple des données:

Dans le fichier test2 j'ai cette ligne suivante
A001= P2 (Ligne 4, cellule 5) + P1 (Ligne 4, cellule 4) + P3(Ligne 4, cellule 8) +P4 (Ligne 4, cellule 9).=PJM+PLN+QUA+ECP

A002=P2 (Ligne 5, cellule 5) + P1 (Ligne5, cellule 4) + P3(Ligne 5, cellule 8) =QUA+REP+QUA

B001= P2 (Ligne 6, cellule 5) + P1 (Ligne 6, cellule 4)= REG + ISP
Etc.

Dans le fichier test1 j'ai:
A001 = P2(Ligne 2, cellule 4) +P1(Ligne 2, Cellule 5)= PJM+PLN
A001=P3(Ligne 3, Cellule 4) + P1 (Ligne 3, cellule 5) =QUA + PLN
A001=P4(Ligne 4, Cellule 4) + P1 (Ligne 4, cellule 5)= ECP + PLN

A002=P2(Ligne 5, cellule 4) +P1(Ligne 5, Cellule 5)= QUA+REP
A002=P2(Ligne 6, cellule 4) +P1(Ligne 6 Cellule 5)=QUA + REP

B001=P2 (Ligne 7, cellule 4) + P1 (Ligne 7, cellule 5)= REG + ISP
Etc.

Bonjour Parmi,
merci pour ta réponse, mais ne change rien dans mon code.
je t'explique le principe.
J'aimerai comparer si tous les valeurs de Axxx du fichier test2 se trouve dans le fichier test1, s'il se trouve pas ou les données ne correspond pas, il met la cellule en couleur bleu ou d'autre couleur.

[MacroVBA]

Bonjour,

Sans vraiment tout comprendre, essaie en changeant cette ligne.
Je pense qu'il y a un problème de parenthèses

Code :

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

If ((Tablo2(i, 1) & Tablo2(i, 4) & Tablo2(i, 5) = Tablo1(j, 2) & Tablo1(j, 4) & Tablo1(j, 5)) Or ((Tablo2(i, 1) & Tablo2(i, 8) & Tablo2(i, 5) = Tablo1(j, 2) & Tablo1(j, 4) & Tablo1(j, 5)) Or ((Tablo2(i, 1) & Tablo2(i, 9) & Tablo2(i, 5) = Tablo1(j, 2) & Tablo1(j, 4) & Tablo1(j, 5)) Then

Tu trouveras ci-dessus joint les 2 fichiers à comparer pour bien comprendre le principe.

Merci d'avance.

[Menhir]

Dans le fichier test1 j'ai:
A001 = P2(Ligne 2, cellule 4) +P1(Ligne 2, Cellule 5)= PJM+PLN
A001=P3(Ligne 3, Cellule 4) + P1 (Ligne 3, cellule 5) =QUA + PLN
A001=P4(Ligne 4, Cellule 4) + P1 (Ligne 4, cellule 5)= ECP + PLN

Qu'est-ce que c'est "A001" ? Une référence de cellule ?
Si c'est le cas, comment peut-on y mettre plusieurs valeurs différentes ?

merci pour ta réponse, mais ne change rien dans mon code.

Tu dis que ton code ne fait pas ce que tu souhaites. Si tu veux qu'il fasse ce que tu souhaite, il va donc falloir, d'une façon ou d'une autre, le modifier, non ?

[MacroVBA]

Qu'est-ce que c'est "A001" ? Une référence de cellule ?
Si c'est le cas, comment peut-on y mettre plusieurs valeurs différentes ?


Tu dis que ton code ne fait pas ce que tu souhaites. Si tu veux qu'il fasse ce que tu souhaite, il va donc falloir, d'une façon ou d'une autre, le modifier, non ?

A001 permet d'identifier la ligne avec d'autre information.

Mon code prends seulement en compte si tous les colonnes (P1,P2,P3,P4) sont remplir dans le Test2

je vous invité de regardé les 2 fichiers ci-dessus pour bien comprendre le mécanisme.

[clementmarcotte]

Bonjour,

Tu dis que ton code ne fait pas ce que tu souhaites. Si tu veux qu'il fasse ce que tu souhaite, il va donc falloir, d'une façon ou d'une autre, le modifier, non ?

Il a commencé par déverser ses deux hospices de fichiers là.


Et il continue de les déverser ici à qui mieux-mieux. Monsieur Balance Fichiers veut une solution gratuite clef-en-mains. Je suppose que dans deux ou trois jours, il va partir un troisième sujet, en déversant les deux mêmes maudits fichiers, malgré les Règles et malgré les indications de Pierre Fauconnier.

[joe.levrai]

Bonjour,

il est reparti de ce fil où j'ai proposé le code qu'il a tenté d'adapter : http://www.developpez.net/forums/d15...a/#post8266526


je ne vais pas modifier chaque fois ma proposition pour que ça soit utilisable sur différentes structures, je passe mon tour pour ce coup là ... ou alors je lui soumet un devis en bonne et dûe forme et il aura une solution un peu plus professionnelle et moins rigide (cahier des charges, mode opératoire, SAV etc.... bref ce qu'il demande sur le forum)

ma procédure est libre de droit, quiconque veut la modifier est le bienvenu

[MacroVBA]

Bonjour,



Il a commencé par déverser ses deux hospices de fichiers là.


Et il continue de les déverser ici à qui mieux-mieux. Monsieur Balance Fichiers veut une solution gratuite clef-en-mains. Je suppose que dans deux ou trois jours, il va partir un troisième sujet, en déversant les deux mêmes maudits fichiers, malgré les Règles et malgré les indications de Pierre Fauconnier.

Je suis là pour qu'on me guide.
T'a raison pour les fichiers, je pensais que sa va vous aidez de comprendre la logique de ma pensée...

[Pierre Fauconnier]

Salut.

Je bénis la patience de mes coreligionnaires

Si tu souhaites de l'aide, il va d'abord falloir bien rédiger ton problème. Et, entre nous soit dit, le rédiger de façon intelligible va t'aider à le comprendre mieux, et peut-être même à lui trouver une solution.

Parce que douze messages pour que personne n'ait compris ton soucis, ça fait un peu beaucoup.

Bon courage et bon boulot