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 suivant
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
maintenant j'aimerai installer une boucle
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 )