Bonjour tout le monde,

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

J'ai ce code :


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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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