erreur de compilation : constante requise

Question

Bonjour, 
Je créé actuellement une macro pour automatiser des feuilles de calcules. Je ne m'y connait pas vraiment en VBA, soyez indulgents plz :)

Voici un programme simplifié pour expliquer mon problème :
Sub Macro4()' Macro4 MacroSheets(3).SelectDim dimen As Integerdimen = 10Dim tableau(dimen) As StringFor i = 0 To (dimen - 1)    Cells(i + 1, 2) = i    tableau(i) = compteur    compteur = compteur + 1    Cells(i + 1, 1) = tableau(i)Next'End Sub

Lorsque je lance la macro, j'obtiens le message d'erreur erreur de compilation : constante requise , et on me renvoi sur le code de la macro avec dimen surligné à la ligne 10.

Quelqu'un aurait une solution ?

f894009 · Accepted Answer

Bonjour,

Sub Macro4()
    Dim dimen As Integer
    Dim tableau() As String
    
    Sheets(3).Select
    dimen = 10
    ReDim tableau(dimen)
    For i = 0 To (dimen - 1)
        Cells(i + 1, 2) = i
        tableau(i) = compteur
        compteur = compteur + 1
        Cells(i + 1, 1) = tableau(i)
    Next
End Sub

Sir_Mattou · Answer

Merci f894009 de ta réponse rapide.

J'ai réussi à faire fonctionner mon programme avec ton code, en modifiant la ligne 3 :

Dim tableau() As String

devient :

Dim tableau()

merci encore ;)

Erreur de compilation : constante requise

2 réponses

Discussions similaires

Newsletters