|
Publicité | ||||||||||||||||||||||
|
|
#1 (permalink) |
|
Membre extrêmement actif(ve)
![]() Date d'inscription: mars 2004
Localisation: Belgique
Âge: 34
Messages: 2 862
|
Bonjour tout le monde,
J'utilise pour la première fois les tableaux en VBA. J'ai ce code : Code :
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 Code :
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
__________________
|
|
|
|
|
|
#2 (permalink) |
|
Expert Confirmé
![]() Date d'inscription: juillet 2008
Localisation: Elsass
Âge: 24
Messages: 1 887
|
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 tu peux aussi faire Code :
Dim Tableau_Cotes() As Variant Code :
n=10 redim Tableau_Cotes(1 to n) Je te laisse consulté le tuto relatif aux tableau pour plus d'infos |
|
|
|
|
|
![]() |
||
[XL-2007] Type incompatible avec un tableau en vba
|
||
| Outils de la discussion | |
|
|