bonjour le forum
j'aimerai mettre en boucle une partie de mon code afin de l'alleger
voila je dois compter le nombre de trajet de trois ville ( paris 7eme,paris 16 eme et paris 13eme ) et ceux ci selon les quatres mode de transport utilisé ( ratp,a pied ; en vehicule personnel ou fonctionnel) pour ce faire j'utilise le code suivantmaintenant j'aimerai installer une boucle
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 a = 0 b = 0 c = 0 d = 0 e = 0 L = 2 ville = paris7M With Worksheets("bd") For I = 1 To .Range("a65536").End(xlUp).Row If .Range("F" & I) = "ville" And .Range("G" & I) = "RATP" Then a = a + 1 If .Range("F" & I) = "ville" And .Range("G" & I) = "pied" Then b = b + 1 If .Range("F" & I) = "ville" And .Range("G" & I) = "vlfonctionnel" Then c = c + 1 If .Range("F" & I) = "ville" And .Range("G" & I) = " vlPersonel" Then d = d + 1 If .Range("F" & I) = "ville" And .Range("G" & I) <> "" Then e = e + 1 Next I .Range("M" & L) = a .Range("N" & L) = b .Range("O" & L) = c .Range("P" & L) = d .Range("Q" & L) = e
de telle maniere a ce que une fois qu'il a fait ville = paris 7m il me colle la premiere valeur dans m2 et ainsi de suite jusqu'a q2
puis ville devient paris 13 et me colle les valeurs la ligne suivante c'est a dire dans m3 et ainsi de suite jusqu'a q3
et enfin ville= paris16m et les valeurs une ligne en dessous ( de m4 à q4 )
Partager