(vba excel) mise en boucle

Version imprimable

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:

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 )

16/02/2007, 14h34
choucks

Salut

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

a+

un truc dans ce genre :
(Pas testé)

Code:

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...

16/02/2007, 15h38
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.:aie:
merci :king: je ne connais pas le truc pour a ne pas faire ( "") pour la ville
16/02/2007, 16h00
choucks

Citation:

Envoyé par 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.:aie:
merci je ne connais pas le truc pour a ne pas faier ( "") pour la ville

Supprimes le -1

Code:

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.
16/02/2007, 16h34
CIBOOX

le

Code:

-1

ça marche 8-)

meme apres verification des nom des villes j'ai des lignes avec 0:aie:
17/02/2007, 21h14
choucks

Dans la colonne F il y a quoi ?
17/02/2007, 23h19
CIBOOX

bonsoir choucks
dans la colonne f j'ai mes villes paris7m paris13m et paris 16m
19/02/2007, 08h33
choucks

Salut,

Je peux voir ton code STP ?

1 pièce(s) jointe(s)

bonjour choucks voici mon code ainsi que mon fichier pour tester

Code:

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
Private Sub transport_Click()
Dim tabVilles As Variant
Dim ville As String
Dim i As Long
Dim j As Byte
 
tabVilles = Array("paris7m", "paris13m", "paris16m")
 
L = 2
 
For j = 0 To UBound(tabVilles)
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) = " vlpersonnelle" 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

19/02/2007, 15h24
choucks

1 pièce(s) jointe(s)

Effectivement avec un exemple j'y vois plus clair.8O :lol:

J'ai mis ta procédure dans un module, pour plus de sécurité car si tu supprimes la feuille, tu supprimeras en même temps le code de celle-ci.

Attention aux faute de saisie, j'ai jamais pris le metro avec la RAPT.....:mouarf:
19/02/2007, 18h13
CIBOOX

ok merci pour cette superbe boucle !!!!!

trop fort choucks :king:

en fait ya pas moyen de verifier ou sont les espaces dans le code ?

j'ai encore une petite question ....
je cherche a compter le nombre de fois que j'ai le mot pret
le truc c'est que ce mot n'ai jamais seul exemple pret de chaises, pret de table, pret de telephone

j'ai tente le code

Code:

If .Range("F" & i) = ville And .Range("H" & i) = "*pret*" Then a = a + 1

mais il m'indique 0 :aie:
19/02/2007, 19h20
SfJ5Rpw8

voir la fonction like ... :f1:
19/02/2007, 22h46
CIBOOX

Citation:

Envoyé par bbil

voir la fonction like ... :f1:

DESOLE F1 me dit pas grand chose :evilred:
20/02/2007, 07h41
AlainTech

Citation:

Envoyé par CIBOOX

DESOLE F1 me dit pas grand chose :evilred:

Tu dois avoir une version d'Excel très spéciale!

Citation:

Like Operator
Used to compare two strings.

Syntax

result = string Like pattern

The Like operator syntax has these parts:

Part Description
result Required; any numeric variable.
string Required; any string expression.
pattern Required; any string expression conforming to the pattern-matching conventions described in Remarks.
Remarks

If string matches pattern, result is True; if there is no match, result is False. If either string or pattern is Null, result is Null.
The behavior of the Like operator depends on the Option Compare statement. The default string-comparison method for each module is Option Compare Binary.

Option Compare Binary results in string comparisons based on a sort order derived from the internal binary representations of the characters. In Microsoft Windows, sort order is determined by the code page. In the following example, a typical binary sort order is shown:

A < B < E < Z < a < b < e < z < À < Ê < Ø < à < ê < ø

Option Compare Text results in string comparisons based on a case-insensitive, textual sort order determined by your system's locale. When you sort The same characters using Option Compare Text, the following text sort order is produced:

(A=a) < (À=à) < (B=b) < (E=e) < (Ê=ê) < (Z=z) < (Ø=ø)

Built-in pattern matching provides a versatile tool for string comparisons. The pattern-matching features allow you to use wildcard characters, character lists, or character ranges, in any combination, to match strings. The following table shows the characters allowed in pattern and what they match:

Characters in pattern Matches in string
? Any single character.
* Zero or more characters.
# Any single digit (0–9).
[charlist] Any single character in charlist.
[!charlist] Any single character not in charlist.
A group of one or more characters (charlist) enclosed in brackets ([ ]) can be used to match any single character in string and can include almost any character code, including digits.

Note To match the special characters left bracket ([), question mark (?), number sign (#), and asterisk (*), enclose them in brackets. The right bracket (]) can't be used within a group to match itself, but it can be used outside a group as an individual character.

By using a hyphen (–) to separate the upper and lower bounds of the range, charlist can specify a range of characters. For example, [A-Z] results in a match if the corresponding character position in string contains any uppercase letters in the range A–Z. Multiple ranges are included within the brackets without delimiters.
The meaning of a specified range depends on the character ordering valid at run time (as determined by Option Compare and the locale setting of the system the code is running on). Using the Option Compare Binary example, the range [A–E] matches A, B and E. With Option Compare Text, [A–E] matches A, a, À, à, B, b, E, e. The range does not match Ê or ê because accented characters fall after unaccented characters in the sort order.

Other important rules for pattern matching include the following:

· An exclamation point (!) at the beginning of charlist means that a match is made if any character except the characters in charlist is found in string
. When used outside brackets, the exclamation point matches itself.
· A hyphen (–) can appear either at the beginning (after an exclamation point if one is used) or at the end of charlist to match itself. In any other location, the hyphen is used to identify a range of characters.

· When a range of characters is specified, they must appear in ascending sort order (from lowest to highest). [A-Z] is a valid pattern, but [Z-A] is not.
· The character sequence [] is considered a zero-length string ("").

In some languages, there are special characters in the alphabet that represent two separate characters. For example, several languages use the character "æ" to represent the characters "a" and "e" when they appear together. The Like operator recognizes that the single special character and the two individual characters are equivalent.

When a language that uses a special character is specified in the system locale settings, an occurrence of the single special character in either pattern or string matches the equivalent 2-character sequence in the other string. Similarly, a single special character in pattern enclosed in brackets (by itself, in a list, or in a range) matches the equivalent 2-character sequence in string.
20/02/2007, 16h27
CIBOOX

la traducion por favor ? :yaisse2:
20/02/2007, 16h31
cwain

Dans ton code, tu écris n'importe où Like (tu l'effaceras après). Ensuite tu double cliques dessus (Like est surligné) et puis tu appuies sur la touche f1 du clavier, là tu devrais avoir toutes les infos
A moins que tu n'aies pas installé l'aide en même temps qu'Excel, auquel cas groooosse erreur ! :mrgreen:
21/02/2007, 13h27
CIBOOX

j'ai l'aide en francais si ça interresse AlainTech;) ;) ;)

Citation:

Like, opérateur

Permet de comparer deux chaînes.

Syntaxe

result = string Like pattern

La syntaxe de l'opérateur Like comprend les éléments suivants :

Élément Description
result Toute variable numérique.
string Toute expression de chaîne.
pattern Toute expression de chaîne respectant les conventions décrites dans les remarques.

Remarques

Si l'argument string correspond à l'argument pattern, l'argument result a pour valeur True. Dans le cas contraire, l'argument result est False. Si les arguments string ou pattern sont Null, l'argument result est Null.

Le comportement de l'opérateur Like dépend de l'instruction Option Compare. Par défaut, la méthode de comparaison de chaînes de chaque module est Option Compare Binary.

La méthode Option Compare Binary compare des chaînes en fonction d'un ordre de tri dérivé de la représentation binaire interne des caractères. L'ordre de tri est défini par la page de code. L'exemple suivant présente un ordre de tri binaire courant :

A < B < E < Z < a < b < e < z < À < Ê < Ø < à < ê < ø

La méthode Option Compare Text compare des chaînes sans prise en compte de la casse, en fonction d'un ordre de tri textuel défini par les paramètres régionaux de votre système. Avec la méthode Option Compare Text, les caractères de l'exemple précédent sont triés de la manière suivante :

(A=a) < (À=à) < (B=b) < (E=e) < (Ê=ê) < (Z=z) < (Ø=ø)

La gestion intégrée des critères spéciaux permet une grande souplesse dans les comparaisons de chaînes. Vous pouvez en effet utiliser des caractères génériques, des listes de caractères ou des plages de caractères, combinés à votre gré, pour comparer des chaînes. Le tableau suivant définit les caractères autorisés dans l'argument pattern et leur correspondance :

Caractère(s) dans pattern Correspondance dans l'argument string
? Tout caractère unique.
* Aucun ou plusieurs caractères.
# Tout chiffre unique (de 0 à 9).
[charlist] Tout caractère unique compris dans l'argument charlist.
[!charlist] Tout caractère unique non compris dans l'argument charlist.

Un groupe d'un ou plusieurs caractères (argument charlist) délimité par des crochets ([ ]) permet de sélectionner tout caractère unique de l'argument string ; il peut comporter quasiment n'importe quel code de caractère, y compris des chiffres.

Note Pour utiliser les caractères spéciaux tels que le crochet droit ouvrant ([), le point d'interrogation (?), le dièse (#) et l'astérisque (*), entourez-les de crochets. Le crochet droit fermant (]) ne peut être utilisé au sein d'un groupe comme critère de comparaison. En revanche, il peut être utilisé à l'extérieur d'un groupe, comme caractère isolé.

L'argument charlist peut spécifier une plage de caractères dont les limites supérieure et inférieure sont séparées par un trait d'union (–). Par exemple, la chaîne [A-Z] génère une correspondance si l'argument string contient à la même position une lettre majuscule comprise entre A et Z. Plusieurs plages peuvent figurer entre crochets sans être délimitées entre elles.

La signification d'une plage dépend de l'ordre des caractères en vigueur au moment de l'exécution ; il est déterminé par l'instruction Option Compare et les paramètres régionaux du système sur lequel le code est exécuté. Si l'on reprend l'exemple précédent avec la méthode Option Compare Binary, la plage [A–E] correspond à A, B et E. Avec Option Compare Text, la plage [A–E] correspond à A, a, À, à, B, b, E, e. La plage ne correspond ni à Ê, ni à ê, car les caractères accentués viennent après les caractères non accentués dans l'ordre de tri.

Les autres règles importantes qui régissent l'utilisation de critères spéciaux sont les suivantes :

Un point d'exclamation (!) placé au début de l'argument charlist signifie que la correspondance est uniquement établie si l'argument string ne contient aucun des caractères de l'argument charlist. Utilisé hors des crochets droits, le point d'exclamation correspond à lui-même.

Le trait d'union (–) peut apparaître soit au début (éventuellement à la suite d'un point d'exclamation), soit à la fin de l'argument charlist pour correspondre à lui-même. En tout autre emplacement, le trait d'union sert à désigner une plage de caractères.

Lorsqu'une plage de caractères est définie, les caractères doivent apparaître dans l'ordre ascendant (du premier au dernier). [A-Z] correspond à une plage valable, contrairement à [Z-A].

La séquence de caractères [] est considérée comme une chaîne de longueur nulle ("").
Dans certaines langues, l'alphabet comporte des caractères spéciaux représentant deux caractères distincts. Par exemple, plusieurs langues utilisent le caractère "æ" pour représenter les caractères "a" et "e" lorsqu'ils apparaissent ensemble. L'opérateur Like reconnaît que ce caractère spécial équivaut à deux caractères.

Quand une langue utilisant un de ces caractères spéciaux est définie dans les paramètres régionaux du système, toute occurrence du caractère spécial dans les arguments pattern ou string correspond à la séquence de deux caractères équivalente dans l'autre chaîne. De même, un caractère spécial placé entre crochets droits (seul, dans une liste ou dans une plage) dans l'argument pattern correspond à la séquence de deux caractères équivalente dans l'argument string.
22/02/2007, 22h41
AlainTech

Bon, ben, puisque tu as l'aide en français, tu peux t'en inspirer.
Vu la longueur du texte, je trouve un peu gonflé de dire que F1 ne te dit pas grand chose.

Merci, pour ma part, je lis l'anglais technique sans même me rendre compte que ce n'est pas ma langue maternelle.
23/02/2007, 06h11
CIBOOX

c'est resolu !!!!

bonjour AlainTech
merci pour ton aide :hola:
Grace a la traduction de choucks ;) ;) ;)
ca marche c'est :resolu:

moi je croyais qu'il fallait definir like comme une variable mais en fait like est un operateur ( j'ai eu un probleme d'interpretation ou de traduction :aie: ou la un dico stp :oops: )

voici le code qui marche

Code:

If .Range("F" & i) = ville And .Range("H" & i) like "*pret*" Then a = a + 1

:merci: àvous deux je vais pouvoir dire que je suis bilingue.... :P :P