Déclaration variable tableau

[StrikeBEH]

Bonsoir,
Je souhaite déclarer une variable tableau avec le code suivant:

Dim AnnéeActuelle As String
AnnéeActuelle = Format(Now, "yyyy")
Dim vAn(1980 To AnnéeActuelle) As String
' Remplissage Années
ComboBox3.Clear
For i = 1980 To AnnéeActuelle
vAn(i) = Format(DateSerial(i + 1, 0, 0), "yyyy")
ComboBox3.AddItem vAn(i)
Next i

Mais ça bloque sur la ligne

Dim vAn(1980 To AnnéeActuelle) As String

avec le message "Constante requise"...

Merci de m'éclairer...

 

[mapomme]

Re : Déclaration variable tableau

Bonsoir StrikeBEH,

Un essai avec le code ci-dessous dans le module de la feuille "Feuil1"

Sub Remplir()
Dim AnnéeActuelle As Long, vAn(), i&
  AnnéeActuelle = Year(Now)
  ReDim vAn(1980 To AnnéeActuelle)
  ' Remplissage Années
  Vider_ComboBox3
  For i = 1980 To AnnéeActuelle
    vAn(i) = i
    ComboBox3.AddItem vAn(i)
  Next i
End Sub

Sub Vider_ComboBox3()
  ComboBox3.Clear
End Sub

'ou plus simple

Sub RemplirBIS()
Dim AnnéeActuelle As Long, i&
  AnnéeActuelle = Year(Now)
  ' Remplissage Années
  Vider_ComboBox3
  For i = 1980 To AnnéeActuelle
    ComboBox3.AddItem i
  Next i
End Sub

 

[StrikeBEH]

Re : Déclaration variable tableau

Merci mapomme !