Discussion :

[TonyRc]

Bonjour à tous,

Voici mon problème est le suivant:

Je cherche à réduire ce code à l'aide de la fonction array (). J'ai 5 régions C,E,N,S,W. Chaque région porte un name de code et chaque nom de code doit être transcrite sur la feuille. Voici la portion de mon code :

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
For lignes_test = 0 To x_count
 
    If code_project = Cells(5 + lignes_test, 1) Then
        If code_region = "N" Then
        Cells(5 + lignes_test, 3) = "North"
        GoTo b_exit
            If code_region = "C" Then
            Cells(5 + lignes_test, 3) = "Central"
            GoTo b_exit
                If code_region = "E" Then
                Cells(5 + lignes_test, 3) = "East"
                GoTo b_exit
                    If code_region = "S" Then
                    Cells(5 + lignes_test, 3) = "South"
                    GoTo b_exit
                        If code_region = "W" Then
                        Cells(5 + lignes_test, 3) = "West"
                        GoTo b_exit
                        End If
                    End If
                End If
            End If
        End If
    End If
b_exit:
Next lignes_test

Comment puis-je réduire ce morceau en quelques lignes à l'aide de la fonction array (). Merci de votre aide.

[Jean-Philippe André]

salut,

je te recommande, si tu ne l'as pas deja fait, de lire cet excellent artcile sur les arrays :
http://didier-gonard.developpez.com/...s-tableau-vba/

tu devrais y trouver les methodologies qui resoudront ton soucis du moment

Bonne lecture

[TonyRc]

Le problème n'est pas de lire ... c'est de comprendre l'ensemble à travers un exercice pratique.

Dés que l'on passe au code, j'ai l'impression de lire de l'Ourdou ...et je décroche (Oui, oui, je comprends le chinois ^^).

[Didier Gonard]

Le problème n'est pas de lire ... c'est de comprendre l'ensemble à travers un exercice pratique.

Bonjour,

les codes des exemples du tutos sont "commentés" pour les expliciter, en faisant un effort pour décrypter ce qui peut t'intéresser et en posant une (des) question(s) (une question par message et dans un nouveau fil) sur ce que tu ne comprends pas (avec le code entre balises), tu auras des réponses point par point sans problème si besoin...

cordialement,

Didier

[mayekeul]

bonjour,

un code dans le genre devrais t'aider

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Cardinal As String
Dim CardinalLong As String
Dim I As Integer
 
Cardinal = Array("C", "E", "N", "S", "W")
CardinalLong = Array("Central", "East", "North", "South", "West")
 
For lignes_test = 0 To x_count
    For I = 1 To 5
        If code_project = Cells(5 + lignes_test, 1) Then
            If code_region = Cardinal(I) Then Cells(5 + ligne_test, 3) = CardinalLong(I)
        End If
    Next I
Next lignes_test

mais tu dois faire l'effort (quitte à relire plusieurs fois) d'assimiler les liens que l'on te donne... surtout qu'il sont très bien fait!

ceci dis n'hésite pas en cas de questions

[random]

on peut éviter les arrays

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
 
 
Sub renvoi()
Dim macoll As New Collection
macoll.Add Item:="North", Key:="N"
macoll.Add Item:="Central", Key:="C"
macoll.Add Item:="East", Key:="E"
macoll.Add Item:="South", Key:="S"
macoll.Add Item:="West", Key:="W"
.......
For lignes_test = 0 To x_count
     If code_project = Cells(5 + lignes_test, 1) Then Cells(5 + lignes_test, 3) = macoll(code_region)
Next ligne_test
.......
 
 
End Sub

[TonyRc]

Merci à tous,

L'ensemble des tutos est très bien fait. Je me suis initié à VBA grâce à ça. Mais les arrays, je suis comme benoît ... ça ne rentre pas . Le soucis est l'écriture du code, pas l'aspect dimensionnelle de la variable.

Mayekeul, j'ai adopté ta méthode (j'ai modifié le code en fonction de mes besoins), mais je perçois l'idée. Cependant, il va falloir travailler sur le domaine à 2 dimensions (là elle était facile).

Random, merci pour ton coup de pouce, je garde ta méthode sous le coude. Je suis encore qu'un débutant dans le domaine... Mais, elle fonctionne très bien.

Mais, je ne maitrise pas les "as New collection"

Qu'est que c'est?