Discussion :

[corwin44]

Bonjour,
je suis en train de creer un boton avec macro sous vba qui doit me permettre de comparer des cellules de deux tableau. j expose le fonctionnement:
j ai deux tableau excel contenant chaqun deux plages de references d'articles.
l une de ces plages en contient plus (il possede des nouvelles references d articles en plus). Ma comparaison entre ces deux plages doit me permettre de mettre en evidence les nouvelles references et je doit pouvoir les sortir du tableau pour les copier dans une zone du deuxieme classeur.
Mon soucis c que quand je cherche a comparer mes refereneces articles mon bout de code ne fait pas ce que je souhaite:

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
 
    i = 1
    j = 1
    a = 5
    b = 2
    c = 427
 
 
    Do
    If Monclasseur.Sheets("Sage").Cells(i, j).Value = MaBase.Sheets("Stat Art").Cells(a, b).Value Then
    MsgBox ("i " & i)
    MsgBox ("j " & j)
    s = Monclasseur.Sheets("Sage").Cells(i, j).Value
    t = MaBase.Sheets("Stat Art").Cells(a, b).Value
    MsgBox (" s= " & s)
    MsgBox (" t= " & t)
    a = a + 1
    MsgBox ("a= " & a)

il y a une chose que je ne comprend pas, au debut je definis divers variables i j etc... que j utilise apres pour definir la valeur de mes cellules a comparer le pb c que quand j affiche la valeur de ces variables au niveau

Code :

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

1
2
MsgBox ("i " & i)
    MsgBox ("j " & j)

il ne me ressort pas les bonne valeurs. En faite j ai l impression qu il recherche des valeurs de references articles egale or ca n est pas ce que je lui demande.
Si qq peut m aider a trouver mon pb ou si encore mieux qq connait un methode pour pouvoir ressortir des references qui sont en plus entre deux tableau sera serait tres cool.
merci d'avance pour votre aide.

[marsupilami34]

Bonjour,

Dans ton code, je ne vois pas quand tu incrémentes tes valeurs i et j.
Quand tu affiches i et j tu dois avoit i=1 et j=1. Non ?

[corwin44]

bonjour,
non justement quand j affiche i et j il me ressort pas 1 et 1 il me ressort les valeurs ou il trouve la reference equivalente a l autre tableau . en l occurence sur mon test il me ressort i=67 et j=1 . le j=1 est normal mais pas le i=67 et c la ou est mon souci.

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
 i = 1
    j = 1
    a = 5
    b = 2
    c = 427
    MaBase.Activate
 
 
    Do
    If Monclasseur.Sheets("Sage").Cells(i, j).Value = MaBase.Sheets("Stat Art").Cells(a, b).Value Then
    MsgBox ("i " & i)
    MsgBox ("j " & j)
    s = Monclasseur.Sheets("Sage").Cells(i, j).Value
    t = MaBase.Sheets("Stat Art").Cells(a, b).Value
    MsgBox (" s= " & s)
    MsgBox (" t= " & t)
    a = a + 1
    MsgBox ("a= " & a)
 
    Else
        i = i + 1
        If i = 420 Then
        MaBase.Sheets("Stat Art").Cells(c, b).Value = Monclasseur.Sheets("Sage").Cells(i, j).Value
        c = c + 1
        End If
    End If
    Loop Until a = 274

voila mon code complet, si ca peut vous aider.

merci

[zooro]

Bonjour,

j ai l impression qu il recherche des valeurs de references articles egale or ca n est pas ce que je lui demande.

Ben si, tu compares les valeurs des cellules:

Code :

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

If Monclasseur.Sheets("Sage").Cells(i, j).Value = MaBase.Sheets("Stat Art").Cells(a, b).Value Then ...

[corwin44]

En fait je veut qu il compare les valeurs des cellules donc les references d articles. mia sce que je ne comprned pas c qu il ne fait pas de comparaison, il va directement rechercher les valeurs de ref qui sont egales.

[SfJ5Rpw8]

En fait je veut qu il compare les valeurs des cellules donc les references d articles. mia sce que je ne comprned pas c qu il ne fait pas de comparaison, il va directement rechercher les valeurs de ref qui sont egales.

...? comment va t'il les chercher...? il est normal vu leur emplacement que tes msgbox i et j ... ne s'affiche qu'en cas d'égalité.. si tu ve les afficher à chaque tour sort les de ton test if ...