Bonjour tout le monde,
J'utilise pour la première fois les tableaux en VBA.
J'ai ce code :
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
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
J'obtiens ce message d'erreur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part Tableau_Cotes(i) = ActiveCell.Value
Incompatiblité de type.
Sauriez-vous me dire comment je peux résoudre ce problème s.v.p. ?
Merci d'avance.
beegees
Partager