Type incompatible avec un tableau en vba

Bonjour tout le monde,

J'utilise pour la première fois les tableaux en VBA.

J'ai ce code :

Code:

---

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

Sub RN_BA1() ' ' RN_BA1 Macro '   ' Dim Tableau_Cotes As Variant Dim i As Integer i = 1   For i = 1 To 10 If ActiveCell.Font.ColorIndex <> vbWhite Then Tableau_Cotes(i) = ActiveCell.Value MsgBox Tableau_Cotes(i) End If Next i   Windows("rn b a1.xlsx").Activate Windows("Grille_08_09_Ses1 APRES.xls").Activate End Sub

---

Je veux mettre dans la première cellule de mon tableau "Tableau_Cotes" un prénom et un nom de famille mais à cette ligne :

Code:

---

Tableau_Cotes(i) = ActiveCell.Value

---

J'obtiens ce message d'erreur :

Incompatiblité de type.

Sauriez-vous me dire comment je peux résoudre ce problème s.v.p. ?

Merci d'avance.
beegees

pour utiliser un tableau il faut le déclarer en tableau tu ne le fait pas

Code:

---

Dim Tableau_Cotes(1 to 10) As Variant

---

pour un tyableau qui va de 1 a 10
tu peux aussi faire

Code:

---

Dim Tableau_Cotes() As Variant

---

Et dimentionner le tableau par la suite (utile si le nombre de dimension varie)

Code:

---

1 2	n=10 redim Tableau_Cotes(1 to n)

---

Cette fonction supprime le contenue pour concerver le contenue il faurt utiliser ReDim Preserve
Je te laisse consulté le tuto relatif aux tableau pour plus d'infos

Salut,

Merci pour ta réponse.

ça fonctionne très bien maintenant.

beegees