Simplification de code : Trouver les row_column d'une cellule précise

Bonjour,

je voudrais améliorer le code suivant

Code:

---

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:

---

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.

bonjour,


je comprends pas trop ton probléme. .

AR = 44 ° colonne :

d'ou :

Code:

---

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

---

Bonjour,

merci pour ta réponse.

Citation:

---

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 ?

tu peu faire :

Code:

---

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

---

où

Code:

---

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

---

Re,

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

Code:

---

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:

---

1 2 3 4

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

---

Une idée ?

oui ,

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

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

Code:

---

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.
;)