Pb tableau en string

Bonjour,

je suis entrain de faire une macro avec laquelle je veux ecrire un nom de pays dans une colonne en fonction d'un ID qui est dans la colonne precedente.

Je stocke donc l'ID dans une variable avant d'aller chercher le nom correspondant dans la feuille qui va bien.
Mon probleme c'est quand j'essai de stocker ce nom dans un tableau de type string, j'otiens comme erreur "Compile Error Expected : As"
VOila un extrait de mon code avec la partie concernee

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim name(10000) As String 'tableau contenant les noms de pays   ...   For k = 3 To lastcountry   Range("B" & k).Select   If Not CID(j) <> Selection.Value Then   Range("C" & k).Select name(j) = Selection.Value <== lieu du pb   k = lastcountry   End If Next k

---

j'ai essaye differentes methode mais j'obtiens toujours la meme erreur. Voila les autres combinaisons que j'ai essaye

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Range("C" & k).Select tmp = Selection.Value name(j) = tmp   mais aussi   name(j) = Range("C" & k)   et   name(j) = Sheets(1).Cells("C" & k)

---

Si quelqu'un a une idee ou la bonne facon de faire je suis bien sur preneur.

Merci bcp

Kaz

bonjour

je ne comprend pas grand chose m'enfin on va essayer

Code:

---

1 2 3 4 5 6

For k = 3 To lastcountry if Range("B" & k) = CID(j) then name(j) = range("C" & k) exit for end if next k

---

not <> equivaut à =
il n'est pas utile de selectionner une cellule pour l'utiliser et ca ralentit le code

ta variable j ???????????? en lisant ta routine, je n'ai pas trouvé la reférence

Montre ou est l'erreur n'est pas suffisant, le code de l'erreur et le libellé donne des indices

@ te lire

salut,
A la place de

Code:

---

range ("C" & k).value

---

essaie :

Code:

---

range("C1").offset(0,k).value

---

en faisant demarrer k à 2 au lieu de 3

Bonjour,

"name" est un nom réservé par VBA...

Hello,

et en plus du reste, tu peux changer "k=lastcountry" par "exit for", c'est beaucoup plus propre.

SAlut
Pour ma part a la place de

Code:

---

name(j) = Selection.Value

---

Je mettrais plutot

Code:

---

name(j) = Selection.Formula

---

Et comme dis plus haut name est peut etre pas le nom de variable le plus approprié
A++
Qwaz