requete sur du code vba

Version imprimable

bonjour,

pr bien expliquer ma requete ... je voudrais a travers mon code assembler 2 cellules pour former un ensemble texte du style EUR / USD

les devises sont représentées par des nombres ..... et renvoyer cette sélection (EUR/USD) dans une plage de cellule ds une autre page

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
'' Declarer dev pour remplir la case currency pair
 
            Dim CCYOC As Integer
            Dim CCYTC As Integer
            Dim PAIR As String
            Dim CURPAIR As Range
                For CCYOC = 1 To 3
                    Select Case CCYOC
                        Case 1: CCYOC = "EUR"
                        Case 2: CCYOC = "USD"
                        Case 3: CCYOC = "GBP"
                    End Select
                Next CCYOC
 
 
                For CCYTC = 1 To 3
                    Select Case CCYTC
                        Case 1: CCYTC = "EUR"
                        Case 2: CCYTC = "USD"
                        Case 3: CCYTC = "GBP"
                    End Select
                Next CCYTC
 
            Set PAIR = CCYOC & " / " & CCYTC
            Set CURPAIR = Sheets(Nom).Range("C9: D9")
            CURPAIR = PAIR

23/01/2011, 19h14
mercatog

Pas bien expliqué, et le "code" proposé est assez bizarre (désolé)
Je ne vais pas le commenter, parce que sans intérêt pour la suite
A toi de bien expliquer clairement et avec un exemple concret ce que tu veux faire (c'est un premier pas)
ensuite, je te suggère de bien te documenter (entre autre sur ce site, la faq, les tutos...)

Pas compris non plus quel est l'objectif, mais je vais commenter ce qui me parait dysfonctionnel dans le code présenté :

Code:

Dim CCYOC As Integer

.

bon, ça ça veut dire que CCYOC est un numérique.

or dans ton Select case, tu mets en résultat(je ne parle pas de l'aiguillage, qui bien que bizarre, me parait fonctionnel)

Code:

CCYOC = "EUR"

ça ne peut pas marcher. Dans un numérique, on met du numérique. Si tu as besoin en sortie d'un texte, c'est-à-dire en VBA d'un string, il te faut une variable supplémentaire. Ou alors alimenter directement la string PAIR.

Enfin, il y a, il me semble, une erreur algorithmique. ça boucle sur CYOCC, donc ça le fait varier de 1 à 3, puis, dans la boucle, ça alimente en fonction de CYOCC. Résultat : à la fin de la boucle, le remplissage se fait avec la valeur décidée quand CYOCC vaut 3. Remplissage erroné, puisque non seulement il se fait sur une variable numérique dans laquelle on met de l'alpha, mais en plus qui est celle de la boucle.

Dernière perversion, le set sert à assigner les objets. PAIR n'est pas un objet, c'est un string. Donc pas de set pour PAIR.

EDIT

idée de code(à la va-vite, et pas forcément adaptée à ton besoin, juste pour donner un exemple)
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 Sub Main() Dim C1 As Integer, C2 As Integer Dim T1 As Integer, T2 As Integer Dim PAIR As String, LIGNE As Integer For C1 = 1 To 3 For C2 = 1 To 3 PAIR = NomDevise(C1) & " - " & NomDevise(C2) LIGNE = (C1 * 3) + C2 - 3 'calcule le numéro de ligne Cells(LIGNE, 4) = PAIR 'remplit les cellules de D1 à D9 Next C2 Next C1 End Sub Function NomDevise(NumeroDevise As Integer) As String Select Case NumeroDevise Case 1 NomDevise = "EUR" Case 2 NomDevise = "GBP" Case 3 NomDevise = "USD" Case Else NomDevise = "" End Select End Function