[VBA] comparaison de tableau sous excel

Version imprimable

11/03/2007, 23h38
Bertrand28

[VBA] comparaison de tableau sous excel

Bonjour,

Je ne sais pas trop ou posté ma demande, donc je m'excuse par avance si je me trompe de rubrique. Je suis entraineur de velo, je voudrais suivre l'evolution de mes pilotes en comparant deux feuilles excels dans une troisième.

En colonne A: le classement
En colonne B: nom du pilote
En colonne C: entrainement 1
En colonne D: entrainement 2
En colonne E: entrainement 3
En colonne F: total des sommes 1 à 3

Les colonnes seront deja rempli, mon but est de faire des comparaison de feuilles, par exemple feuille 1 (=semaine 4) et feuille 2 (=semaine 10) . Je veux juste comparer mes deux feuilles dans une 3eme
http://img402.imageshack.us/img402/2898/questionso6.jpg

Mes connaissance en VBA étant tres limité, je n'ai réussi à rien faire. Pourriez vous m'aidez à resoudre mon probleme svp.

Merci par avance
12/03/2007, 06h47
alsimbad

Salut Bertrand
Comme tu n'en dis pas grand chose, je suppose que tu veux simlement coparer les colonne F, les totaux.
plutot que de passer par le VBA, je te suggere plutot de creer une feuille ou tu ne met que tes colonnes f
xxxx nom1___nom2 ____nom3
S1____235____254______231
S2____564____321______123
S3____121____454______323
ça aura l'avantage de te permetre de comparer par semaine, sur l'année et meme de tirer des graphiques, ou de trier. si tu ne connais pas beaucoup le vba, et si ce n'est pas ta tasse de thé, ça te sera utile sans te prendre le choux. a moins que le but soit de comprendre comment ça marche, auquel cas dis nous plus precisement ce que tu appelle comparer 2 feuilles.
a plus
ps, j'ai pas réussi a faire comme toi et a inserer un bout de feuille dans le message. comment tu a fait ?
12/03/2007, 09h35
Bertrand28

Merci pour ta réponse,

Ce que je veux faire c'est comparer deux feuilles. Je rempli la feuille 1 & 2 à la main et je veux les comparaison des 2 feuilles dans une 3 feuilles, me disant qui as pris ou n'as pas pris de points dans chaques exercices.

C'est vrai que le VBA n'est pas trop mon fort, mais si je peux comprendre ca ne sera que mieux pour ma culture.

L'image est juste un imprim' ecran, decoupé dans power point. Une fois ton image découpé, un simple clic droit et "enregistré comme image".

Cordialement.
12/03/2007, 10h31
alsimbad

ok alors.
dans ce cas, si tu veux comparer l'ensemble du résultat, tu veux obtenir quoi. dans chaque case un +2 ou -4 ou alors un %: +12% -8%.
de toute maniere, c'est pas si simple. l'opération en elle même c'est :
tu mémorise chacun des élément du premier tableau, la même chose pour le deuxieme tableau. puis tu compare élémént par élément et tu les entre dans un troisieme tableau.
semaineA = arrayA (val1,val2,val3....)
semaineb = arrayB (val1,val2,val3....)
for i = 1 to 10
cells(x,y) = semaineA(1) - semaineB(1)
le plus difficile est d'arriver a bien désigner les bonnes valeurs et a les ressortir au bon endroit.
il n'y a pas de moyen simple a ma connaissance.
c'est pour ça que le systeme que je t'ai proposé plus haut est plus simple a mettre en oeuvre et plus aisé pour un débutant. en outre il te suffit de creer une feuille récapitilatif par exercice et une pour le global. comme ça donnés identique pour chaque récap = synthese plus facile. mais bon c'est toi qui voit.
pour l'image, ce que je ne suis pas parvenu a faire c'est a l'inserer dans le message. npar la fonction d'insertion, il me demande de rentrer un url.

Je vais aussi bientôt bosser sur la comparaison de tableaux sous excel, voilà l'algo que j'ai implémenté pour l'instant ( http://www.developpez.net/forums/sho...d.php?t=283554 ):

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
i = 0    ' Indice associé au vieux tableau
    j = 0    ' Indice associé au nouveau tableau
 
    'Recherche du tableau contenant le plus d'enregistrement
    ' ... imax ...
    ' ... jmax ...
 
    If imax > jmax Then
       max = imax
    Else
       max = jmax
    End If
 
    While i <> max And j <> max
      If vieux(i, 0) = nouveau(j, 0) Then
        If vieux(i, 1) = nouveau(i, 1) Then
          MsgBox "Enregistrement " & vieux(i, 0) & " identique"
        Else
          MsgBox "Enregistrement " & vieux(i, 0) & " modifié"
        End If
        i = i + 1
        j = j + 1
      ElseIf vieux(i, 0) < nouveau(j, 0) Then
        If vieux(i, 0) <> "" Then
          MsgBox "Enregistrement " & vieux(i, 0) & " supprimé"
          i = i + 1
        Else
          MsgBox "Enregistrement " & nouveau(j, 0) & " ajouté"
          j = j + 1
        End If
      ElseIf vieux(i, 0) > nouveau(j, 0) Then
        If nouveau(j, 0) <> "" Then
          MsgBox "Enregistrement " & nouveau(j, 0) & " ajouté"
          j = j + 1
        Else
          MsgBox "Enregistrement " & vieux(j, 0) & " supprimé"
          i = i + 1
        End If
      End If
    Wend

12/03/2007, 14h02
Bertrand28

Tout d'abord pour l'url, utilise ce site:

http://imageshack.us/

Citation:

dans ce cas, si tu veux comparer l'ensemble du résultat, tu veux obtenir quoi. dans chaque case un +2 ou -4 ou alors un %: +12% -8%.

Oui je voudrai +2 -4

J'ai essayé le programme ci dessus mais ca ne marche pas, il ne se passe rien