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 : 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
'' 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