Aide pour simplifier un code et comprendre le mécanisme

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

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

**Philippe Tulliez** · 01/04/2015, 13h27

Bonjour,
A la lecture rapide de tes procédures, je te donnerais deux, trois petits conseils
Utilise les structures répétitives (Boucle For..To ...[Step] ..Next)
Utilise des variables objets pour les feuilles et comme tu as à traiter plusieurs feuilles, j'utiliserais une variable objets tables (Par exemple sht(0 to 3))
Et enfin pour faciliter la lecture de ton programme, je travaillerais avec des constantes énumérées
Petit Exemple avec les variables objets + constantes énumérées
En-tête de module

Code :

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

1
2
3
4
5
6
Option Explicit
Enum FileName
 Accueil = 0
 Comparateur = 1
 Domicile = 2
End Enum

Procédure

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub T()
 Dim sht(3) As Worksheet, CountFlot
 With ThisWorkbook
  Set sht(0) = .Worksheets("Accueil")
  Set sht(1) = .Worksheets("Comparateur")
  Set sht(2) = .Worksheets("Domicile")
 End With
 With sht(FileName.Accueil)
  If .Cells(numlignevide, CountFlot) = "" Then
   ' Code ...
 
  End If
 End With
End Sub

J'ai repris une ligne de ton code qui pourrait être écrite ainsi (les constantes en rouge devraient être remplacées par une variable alimentée par une boucle)

Code :

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

sht(filename.Accueil).Cells(numlignevide, 14).Value = sht(filename.Comparateur).Cells(19, 2).Value

Pour ta compréhension, j'avais utilisé aux lignes 4, 5 et 6 des constantes 0, 1 et 2 pour la variable objet sht mais bien entendu il est préférable d'écrire

Code :

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

 Set sht(FileName.Accueil) = .Worksheets("Accueil")

**nicdodo** · 02/04/2015, 15h57

Bonjour,

Je vous remercie pour les explications et la réponse mais je n'ai malheureusement pas pu l'utiliser par manques de compétences. Je ne peu pas simplement copier coller un code que je ne comprends pas, je ne sais pas ce qu'est une fonction explicit etc

. J'ai donc résolu mon problème de cette manière :

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
Sub comparateur()
 
Dim numlignevide As Integer
numlignevide = ActiveSheet.Columns(1).Find("").Row
Sheets("comparateur").Activate
 
    If Cells(5, 2) = Cells(5, 1) And Sheets("calculateur").Cells(11, 3) < Sheets("comparateur").Cells(10, 2) Then
        Sheets("synthese").Cells(numlignevide, 5).Value = Sheets("COMPARATEUR").Cells(10, 2).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("COMPARATEUR").Cells(5, 2).Value
        Sheets("synthese").Cells(numlignevide, 4).Value = Sheets("COMPARATEUR").Cells(4, 2).Value
        Sheets("synthese").Cells(numlignevide, 3).Value = Sheets("COMPARATEUR").Cells(3, 2).Value
        Sheets("synthese").Cells(numlignevide, 1).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 2).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
 
 
   If Cells(6, 2) = Cells(6, 1) And Sheets("calculateur").Cells(11, 3) < Sheets("comparateur").Cells(10, 2) Then
        Sheets("synthese").Cells(numlignevide, 5).Value = Sheets("COMPARATEUR").Cells(10, 2).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("COMPARATEUR").Cells(6, 2).Value
        Sheets("synthese").Cells(numlignevide, 4).Value = Sheets("COMPARATEUR").Cells(4, 2).Value
        Sheets("synthese").Cells(numlignevide, 3).Value = Sheets("COMPARATEUR").Cells(3, 2).Value
        Sheets("synthese").Cells(numlignevide, 1).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 2).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
 
 
   If Cells(7, 2) = Cells(7, 1) And Sheets("calculateur").Cells(11, 3) < Sheets("comparateur").Cells(10, 2) Then
        Sheets("synthese").Cells(numlignevide, 5).Value = Sheets("COMPARATEUR").Cells(10, 2).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("COMPARATEUR").Cells(7, 2).Value
        Sheets("synthese").Cells(numlignevide, 4).Value = Sheets("COMPARATEUR").Cells(4, 2).Value
        Sheets("synthese").Cells(numlignevide, 3).Value = Sheets("COMPARATEUR").Cells(3, 2).Value
        Sheets("synthese").Cells(numlignevide, 1).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 2).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
 
 
    If Cells(8, 2) = Cells(8, 1) And Sheets("calculateur").Cells(11, 3) < Sheets("comparateur").Cells(10, 2) Then
        Sheets("synthese").Cells(numlignevide, 5).Value = Sheets("COMPARATEUR").Cells(10, 2).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("COMPARATEUR").Cells(8, 2).Value
        Sheets("synthese").Cells(numlignevide, 4).Value = Sheets("COMPARATEUR").Cells(4, 2).Value
        Sheets("synthese").Cells(numlignevide, 3).Value = Sheets("COMPARATEUR").Cells(3, 2).Value
        Sheets("synthese").Cells(numlignevide, 1).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 2).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
 
 
    If Cells(9, 2) = Cells(9, 1) And Sheets("calculateur").Cells(11, 3) < Sheets("comparateur").Cells(10, 2) Then
        Sheets("synthese").Cells(numlignevide, 5).Value = Sheets("COMPARATEUR").Cells(10, 2).Value
        Sheets("synthese").Cells(numlignevide, 7).Value = Sheets("COMPARATEUR").Cells(9, 2).Value
        Sheets("synthese").Cells(numlignevide, 4).Value = Sheets("COMPARATEUR").Cells(4, 2).Value
        Sheets("synthese").Cells(numlignevide, 3).Value = Sheets("COMPARATEUR").Cells(3, 2).Value
        Sheets("synthese").Cells(numlignevide, 1).Value = Sheets("DOMICILE").Cells(1, 1).Value
        Sheets("synthese").Cells(numlignevide, 2).Value = Sheets("EXTERIEUR").Cells(1, 1).Value
        numlignevide = numlignevide + 1
    End If
 
 Sheets("accueil").Activate
 
 End Sub

Voila c'est du code long et moche qui mérite une simplification mais c'est ce que je peux faire avec mes compétences et ma compréhension actuelle. Pour le simplifier je pense pouvoir créer une boucle mais je ne sais pas comment cela fonctionne j'ai donc créer un autre post ou je demande de l'aide ou un didacticiel pour débutant pour comprendre les boucles et rendre mon code beaucoup plus jolie.

Je vous remercie pour votre aide

Cordialement

**Philippe Tulliez** · 02/04/2015, 16h13

Bonjour,

je ne peu pas simplement copier coller un code que je ne comprends pas

C'est tout à ton honneur mais il me semble pourtant avoir donné un exemple avec peu de lignes avec des explications permettant de suivre l'exécution pas à pas.
Encore faut-il évidemment connaître quelques commandes indispensable pour programmer à savoir les touches F5, F8, F9 et les outils de débogages.

je ne sais pas ce qu'est une fonction explicit etc

Ce n'est pas une fonction mais une Option
Cette option oblige le programmeur à déclarer ses variables explicitement. Ce n'est pas obligatoire mais est indispensable pour programmer proprement et ne pas passer des heures à déboguer un programme.
Si tu souhaites continuer à programmer en VBA ou Visual Basic et progresser, je te conseille la lecture de ces tutoriels
Vos premiers pas dans l'éditeur de macros Excel
et tout particulièrement le chapitre V. Conseils et astuces
Le débogage sous Visual Basic 6 & Visual Basic pour Application
Visual Basic Editor

**nicdodo** · 02/04/2015, 16h26

Merci,

Effectivement ce qui est géniale avec l'outils excel et vba c'est la simplicité et les solutions possibles a des problèmes complexes en passant par étapes. J'avais un restaurant et j'ai réussi a créer un logiciel de caisse entièrement automatisé grâce à des tuto et quelques codes demandés sur le site, c’était il y'a 2ans. Aujourd'hui je me lance dans une formation de concepteur développeur de logiciel et se qui fut un hobbie va devenir mon métier.
Alors je n'utiliserai certainement plus le vba et les outils office dans mon métier à mon grand regret mais du coup je cherche plus à apprendre qu'à avoir des codes tout fait, je vais donc lire les tuto que vous m'avez conseillé et recommencer à 0 pour m'enlever les mauvaises habitudes que j'ai pu prendre.

Cordialement

**Philippe Tulliez** · 02/04/2015, 16h50

Bonjour,
J'ajouterais encore mais les tutoriels conseillés en feront échos que lorsque l'on ne sais pas à quoi sert une propriété, méthode, instruction, etc. la touche d'aide F1 est là pour nous aider.
Ainsi après avoir tapé Option Explicit (Option suffit d'ailleurs pour l'aide), il suffit de positionner le pointeur de la souris sur Option et cliquer sur F1 pour avoir la liste des quatre options possibles et en cliquant alors sur Option Explicit avoir l'aide complète.

Aide pour simplifier un code et comprendre le mécanisme

Macros et VBA Excel

Discussions similaires

Partager

Partager