Re_bonjour le Forum,

Problématique :créer une seule fois un Tableau qui deviendra constant pour chaque utilisation du classeur.

Voici la procédure issue du tutoriel de Silkyroad adapté.

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
21
Sub Déclare_tableau()
   'Définit le type de données pour le tableau.
    Dim Tableau() As String
    Dim s_init As Integer, nb_sem As Integer, num_sem As Integer, libsem As String, i As Integer, j As Integer
 
    s_init = InputBox("Numéro de la 1ère semaine du nouveau mois ( 1 à 48 ou 49).", "Initialisation")
 
    nb_sem = InputBox("Nombre de semaines pour ce mois (4 ou 5).", "Création du nouveau mois.")
 
   'Définit la taille du tableau
    ReDim Tableau(nb_sem)
 
    num_sem = s_init - 1
    'Alimente les éléments du tableau
    For i = 1 To UBound(Tableau)
        num_sem = num_sem + 1
        libsem = "S" & Format(num_sem, "0#")
        Tableau(i) = libsem
    Next i
 
End Sub
Le tableau est ici initié par 2 "InputBox".
Je souhaiterais utiliser ce tableau en constante après enregistrement du classeur, lors de chaque ouverture, et donc sans passer par les étapes ""InputBox".

J'avais envisagé d'écrire ce tableau dans des cellules appropriées.

Existe-t-il un autre moyen?

Par avance, je vous remercie.