Aide pour simplifier un code et comprendre le mécanisme

**nicdodo** · 01/04/2015, 09h59

Bonjour,

voici mon petit soucis. Je veux faire un comparateur de cote pour le pari sportif.
Pour ce faire j'ai créé 7 feuilles, "accueil", "bwin" (et 4 autres site de pari), "comparateur
Pour simplifiez je ne vais décrire qu'un des nombreux tableaux, le processus etant le meme pour chaque tableaux

Alors voila, dans chaque feuilles de site parieur il y'a des tableaux à la meme place. Je vais en décrire un pour l'exemple
dimension (A17:L19)
Description A17:L17 (nombre de but total)
Precision A18=-0.5 ; B18 =-1.5 ; C18=-2.5 etc jusqu'a -5.5 puis G18=+0.5 ; H18=+1.5 etc jusqu'a L18=+5.5
et donc les cases ou je remplis les cotes sont de A19 à L19
Donc la cote pour -2.5 but sera en C19

Pour comparer les cotes j'ai créé un tableau dans la feuille "comparateur site"
dimension (A12:M19)
Description A12:L12 (nombre de but total)
Precision horizontal B13=-0.5 ; C13 =-1.5 ; D13=-2.5 etc jusqu'a -5.5 puis H13=+0.5 ; I18=+1.5 etc jusqu'a M18=+5.5
Precision vertical A14=Bet clic ; A15=bwin; A16=winamax etc jusqu'a A18

Derniere ligne : la meilleur cote pour chaques descriptions (formule en si (=SI(ET('Bet clic'!A19>=Bwin!A19;'Bet clic'!A19>=Winamax!A19;'Bet clic'!A19>=Netbet!A19;'Bet clic'!A19>=Pmu!A19);'Bet clic'!A19;SI(ET(Bwin!A19>='Bet clic'! etc....)

Donc j'ai fait une formule en si dans chaque case de (B14:M18) de tel sorte que si la cote la plus grande soit sur bwin celui soit nommé.
Par exemple si la cote pour -1.5 est la plus grande sur bwin il y'aura marqué en C15 il y'aura marqué bwin sinon la cote correspondante de la feuille sur bwin

Voila ceci etant fait je vais mettre un fichier exemple nommé "exemple" correspondant de toute maniere car ma description est un peu brouillonne

.

Mon probleme correspond à la macro. L'idee est que celle ci compare chaque case (B14:M18) avec (A14:A18) que si par exemple C15=A15 alors il y'a toute une serie d'action qui se passe et sinon ca passe a l'action suivante

Aujourd'hui je suis donc sur un code de ce type la:

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
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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
 
Sub comparateur()
Dim numlignevide As Integer
 
Worksheets("comparateur site").Activate
numlignevide = ActiveSheet.Columns(1).Find("").Row
 
If Cells(14, 2) = Cells(14, 1) Then
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(19, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(14, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(13, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(12, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
End If
 
If Cells(15, 2) = Cells(15, 1) Then
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(19, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(15, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(13, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(12, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
End If
 
If Cells(16, 2) = Cells(16, 1) Then
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(19, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(16, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(13, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(12, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
End If
 
If Cells(17, 2) = Cells(17, 1) Then
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(19, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(17, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(13, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(12, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
End If
 
If Cells(18, 2) = Cells(18, 1) Then
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(19, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(18, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(13, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(12, 2).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value[ATTACH]173390[/ATTACH]
End If
 
If Cells(14, 3) = Cells(14, 1) Then
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(19, 3).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(14, 3).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(13, 3).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(12, 3).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
End If
 
If Cells(15, 3) = Cells(15, 1) Then
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(19, 3).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(15, 3).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(13, 3).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(12, 3).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
End If
 
If Cells(16, 3) = Cells(16, 1) Then
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(19, 3).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(16, 3).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(13, 3).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(12, 3).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
End If
 
If Cells(17, 3) = Cells(17, 1) Then
numlignevide = ActiveSheet.Columns(1).Find("").Row
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(19, 3).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(17, 3).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(13, 3).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(12, 3).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
End If
 
If Cells(18, 3) = Cells(18, 1) Then
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(19, 3).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(18, 3).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(13, 3).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(12, 3).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
End If
 
If Cells(14, 4) = Cells(14, 1) Then
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(19, 4).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(14, 4).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(13, 4).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(12, 4).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
End If
 
If Cells(15, 4) = Cells(15, 1) Then
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(19, 4).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(15, 4).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(13, 4).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(12, 4).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
End If
 
If Cells(16, 4) = Cells(16, 1) Then
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(19, 4).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(16, 4).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(13, 4).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(12, 4).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
End If
 
If Cells(17, 4) = Cells(17, 1) Then
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(19, 4).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(17, 4).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(13, 4).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(12, 4).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
End If
 
If Cells(18, 4) = Cells(18, 1) Then
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(19, 4).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(18, 4).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(13, 4).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(12, 4).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
End If
 
If Cells(14, 5) = Cells(14, 1) Then
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(19, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(14, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(13, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(12, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
End If
 
If Cells(15, 5) = Cells(15, 1) Then
 
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(19, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(15, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(13, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(12, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
End If
 
If Cells(16, 5) = Cells(16, 1) Then
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(19, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(16, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(13, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(12, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
End If
 
If Cells(17, 5) = Cells(17, 1) Then
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(19, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(17, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(13, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(12, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
End If
 
If Cells(18, 5) = Cells(18, 1) Then
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(19, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(18, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(13, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(12, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
End If
 
Worksheets("accueil").Activate
End Sub

Voila donc l'idée c'est vraiment que si E18=A18 alors la cote correspondante en E19 soit copié sur l'accueil a la premiere ligne vide dans la 14eme colonne, que le nom du site soit copier coller a la colonne 18 etc...

Mon probleme est le suivant, j'ai l'impression que vb ne fait pas etape par etape c'est à dire que dans mon idée en faisant comme ça il ferait case par case et a chaque fois qu'il aurait touvé une correspndance il aurait copié collé les infos à la premiere ligne vide de la page acceuil. Malheureusement il ne fait pas ca il ne copie que les infos correspondantes à la derniere ligne de code :'(

Code :

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

1
2
3
4
5
6
7
8
If Cells(18, 5) = Cells(18, 1) Then
Sheets("aCCUEIL").Cells(numlignevide, 14).Value = Sheets("COMPARATEUR SITE").Cells(19, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 16).Value = Sheets("COMPARATEUR SITE").Cells(18, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 13).Value = Sheets("COMPARATEUR SITE").Cells(13, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 12).Value = Sheets("COMPARATEUR SITE").Cells(12, 5).Value
Sheets("aCCUEIL").Cells(numlignevide, 10).Value = Sheets("DOMICILE").Cells(1, 1).Value
Sheets("aCCUEIL").Cells(numlignevide, 11).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
End If

De plus je trouve qu'il y'a beaucoup de répétitions, l'action est la meme a chaque fois, on verifie en A2 si c'est identique a A1 puis on regarde si A3 est identique à A1 etc... donc je me demandais si il y'aurai pas la possibilité de faire un code un peu plus joli et surtout beaucoup plus efficace car le tableau que je fournis la n'est qu'une infime partie de tout mes tableaux. Je ne cherche pas de code préfait juste, si je dois faire une boucle, qu'une bonne ame ai la gentillesse de m'expliquer comment ca fonctionne par un exemple

. Puis de m'aider à comprendre pourquoi les valeurs qui sont bonnes ne s'affichent pas les unes apres les autres dans ma page acceuil

Cordialement

Aide pour simplifier un code et comprendre le mécanisme

Macros et VBA Excel

Mode arborescent

Discussions similaires

Partager

Partager