Bonjour

voila j'ai ce code qui me permet de rassembler toutes les données d'une ligne mais le problème c est que j'arrive pas à renvoyer vers les ranges en question ?

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
27
28
29
30
31
32
33
34
 
Dim listdon As Variant
Dim donexp As String
Dim lign As Byte
Dim donner As Variant
 
 
Const Separateur  As String = ";"
 
 
With target
        If .Column <> 4 Or .Row < 27 Then Exit Sub
        lign = .Row - 26
        listdon = Array("CLI", "DS", "SF", "VD", "AMCCY1", "AMCCY2", "CCYON", "CCYTT", "RATES")
        donexp = ""
        For Each donner In listdon
                 donexp = (donexp & Separateur & range(donner & "_" & lign))
        Next donner
 
Call crea_page
Call varcop
 
Sheets(nom).range("CLI", "DS", "SF", "VD", "AMCCY1", "AMCCY2", "CCYON", "CCYTT", "RATES").Select
Selection.Value = donexp
 
 
End With
 
 
Call TypOpe
 
Call transvalneg
 
End Sub
en testant le donexp a la fin d ou mon select ... je vois bien que les valeurs sont prises en compte... cela me permettait juste de tester