Discussion :

[CIBOOX]

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 )

[choucks]

Salut

Idée : Déclarer un tableau pour tes villes que tu parcours avec un indice.

a+

[choucks]

un truc dans ce genre :
(Pas testé)

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
 
Sub transport()
Dim tabVilles As Variant
Dim ville as String
Dim i as Long
Dim j As Byte
 
tabVilles = Array("paris7M", "paris16M", "paris13M")
 
L = 2
 
For j = 0 To UBound(tabVilles) - 1
ville = tabVilles(j)
    a = 0
    b = 0
    c = 0
    d = 0
    e = 0
    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
        L = L + 1
    End With
Next j
 
End Sub

ville étant une variable il ne faut pas de guillemets...

[CIBOOX]

BONJOUR choucks
J'ai teste ton code et il me met que deux lignes m2:q2 et m3:q3
avec des 0 dans toute les cellules.
merci je ne connais pas le truc pour a ne pas faire ( "") pour la ville

[choucks]

BONJOUR choucks
J'ai teste ton code et il me met que deux lignes m2:q2 et m3:q3
avec des 0 dans toute les cellules.
merci je ne connais pas le truc pour a ne pas faier ( "") pour la ville

Supprimes le -1

Code :

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

For j = 0 To UBound(tabVilles) - 1

Et si ça renvoie que des 0 c'est que les conditions ne sont jamais vraies. Quelle est l'orthographe du nom des villes dans la feuille exemple pour le 7ème: est-ce paris 7eme, paris7M ou paris 7m ?

A toi de saisir l'orthographe adequat dans la déclaration du tableau.

[CIBOOX]

le

Code :

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

-1

ça marche

meme apres verification des nom des villes j'ai des lignes avec 0