Synthétiser la formule avec Array()

Version imprimable

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:

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.

16/08/2010, 13h00
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 :ccool:

Bonne lecture :mrgreen:
16/08/2010, 13h11
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 ^^).
16/08/2010, 13h21
Didier Gonard

Citation:

Envoyé par TonyRc

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

bonjour,

un code dans le genre devrais t'aider

Code:

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

on peut éviter les arrays

Code:

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

17/08/2010, 11h48
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 :x. 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?
17/08/2010, 14h39
random

une collection est un ensemble d'objets cohérents ou non supportants le type variant

la collection pour chaque élément comporte la référence a un objet et la clef qui permet d'adresser cet objet

pour une recherche la collection est bien plus rapide qu'un array

il suffit de rechercher la clef

le code est plus lisible et plus portable

vba fait un grand usage des collections
18/08/2010, 07h54
TonyRc

Merci!