Bonjour,

je voudrais améliorer le code suivant
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
 
    tabls = Split(Specific_param, "|")
    For idx = 0 To UBound(tabls)
    Select Case idx
     Case 0
         Sel_Range = "AR1"
     Case 1
         Sel_Range = "AS1"
     Case 2
         Sel_Range = "AT1"
     Case 3
         Sel_Range = "AU1"
     Case 4
         Sel_Range = "AV1"
     Case 5
         Sel_Range = "AW1"
     Case 6
         Sel_Range = "AX1"
     Case 7
         Sel_Range = "AY1"
    End Select
    Range(Sel_Range) = tabls(idx)
en remplaçant le select case par un code du genre
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Cell(convertion(AR+idx), 1) = tabls(idx)
Est-ce possible ? je ne trouve pas comment.
En fait je cherche la correspondance entre Range(myrange) et cell(mycell)

Merci pour votre aide.