[XL-2007] Type incompatible avec un tableau en vba [Résolu]

[beegees]

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

[Krovax]

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

[beegees]

Salut,

Merci pour ta réponse.

ça fonctionne très bien maintenant.

beegees