Discussion :

[Godzestla]

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.

[JackOuYA]

bonjour,


je comprends pas trop ton probléme. .

AR = 44 ° colonne :

d'ou :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(1,44+idx) = tabls(idx)

[Godzestla]

Bonjour,

merci pour ta réponse.

AR = 44 ° colonne :

Si on veut éviter de compter (et de se tromper), il n'ya pas une fonctionne VBA qui donne le parametre Cell pour une colonne X ?

[JackOuYA]

tu peu faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cells(1,RANGE("AR1").Column +idx) = tabls(idx)

où

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RANGE("AR" & 1+idx)= tabls(idx)

[Godzestla]

Re,

merci. Entre temps, j'ai trouvé et testé ceci (qui fonctionne).:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("AR1").Offset(0, idx) = tabls(idx)

J'ai maintenant un problème avec .column, pour cacher les colonnes optionnelles de ma table :

J'essaie ceci, mais ca crame avec erreur 1004 sur la lign en gras:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    For idx = UBound(tabls) + 1 To 7
     Columns("AR").Offset(idx).EntireColumn.Hidden = True
   Next idx

Une idée ?

[JackOuYA]

oui ,

remplace Columns("AR") par Range("AR1")

[Godzestla]

J'ai trouvé avec Column (sans offset qui n'est pas supporté).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
    For idx = UBound(tabls) + 1 To 7
     Columns(Range(Sel_Range).Column + idx).EntireColumn.Hidden = True
   Next idx

Encore merci pour ton aide. Cela m'a eclairé.

Bonne soirée.