Erreur de compilation : constante requise

Sir_Mattou Messages postés 10 Statut Membre -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
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 Macro

Sheets(3).Select

Dim dimen As Integer

dimen = 10
Dim tableau(dimen) As String

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


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 ?

2 réponses

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    3
  2. Sir_Mattou Messages postés 10 Statut Membre
     
    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 ;)
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Re,

      Ben oui, mais qui a ecrit cette ligne:
      Dim tableau(dimen) As String

      Vous, non....!!!!!
      0