Création de Tableaux constants

Version imprimable

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:

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.

15/02/2011, 11h38
Godzestla

Bonjour,

pourquoi ne pas juste stocker s_init et nb_sem dans 2 cellules d'une feuille cachée et générer ton tableau à l'ouverture sur base de ces 2 variables.

Avantage : Indépendant de la langue au niveau de la date.

Je pense également qu'il doit être possible de déduire le mois et le nombre de semaine par calcul.

Tu peux aussi générer tes variables à l'avance pour les périodes futures et accéder à celle dont tu as besoin à l'ouverture.
15/02/2011, 12h08
MarcelG

variables de Tableaux

Bonjour Godzestla,

Merci.

Citation:

pourquoi ne pas juste stocker s_init et nb_sem dans 2 cellules d'une feuille cachée

J'y avais pensé. C'est la solution que je vais envisager.

Citation:

et générer ton tableau à l'ouverture sur base de ces 2 variables

Pardonne-moi si ma question est basique, mais peux-tu me donner confirmation.
Si je déclare mon tableau à l'ouverture en
- utilisant la procédure évènementielle WorkBook.Open
- déclarant le tableau par une procédure incluse dans un module standard pour pouvoir déclarer ce tableau en "Public",
Alors, je n'aurais plus à réitérer cette déclaration pendant toute l'ouverture du classeur (utilisation du projet VBA par intermittence) ?

Citation:

Je pense également qu'il doit être possible de déduire le mois et le nombre de semaine par calcul

Si tu as ces 2 fonctions (f(mois)= nombre de semaines, g(mois) = numéro de la première semaine) dans ta panoplie, alors je suis, et d'autres j'en suis sûr, preneur.

Citation:

Tu peux aussi générer tes variables à l'avance pour les périodes futures et accéder à celle dont tu as besoin à l'ouverture.

Comment faire pour le cas présent ? (Un tableau)

Encore merci et Bonne journée.
15/02/2011, 12h32
Godzestla
Citation:

Pardonne-moi si ma question est basique, mais peux-tu me donner confirmation.
Si je déclare mon tableau à l'ouverture en
- utilisant la procédure évènementielle WorkBook.Open
- déclarant le tableau par une procédure incluse dans un module standard pour pouvoir déclarer ce tableau en "Public",
Alors, je n'aurais plus à réitérer cette déclaration pendant toute l'ouverture du classeur (utilisation du projet VBA par intermittence) ?

+ ou moins -, dans la mesure ou ton Vba n'est pas changé ou recompilé.

Mais il y a une parade facile.
Tu peux tester si ta variable n'est pas ou plus initialisée et si ce n'est pas le cas, forcer l'init.

Exemple de code dans un module
Code:

1 2 3 4 5 6 7 8 9 10 Public a As String Sub Init_a() a = "coucou" End Sub Public Function get_a() As String If a = "" Then Init_a End If get_a = a End Function
Tu peux utiliser partout je pense la variable A via la fonction get_a, y compris dans une cellule excel.

Citation:

Tu peux aussi générer tes variables à l'avance pour les périodes futures et accéder à celle dont tu as besoin à l'ouverture.

Je mettrais tout cela dans une feuille cachée, avec pour les 10 années à venir (soyons optimistes)
Col A Col B Col C
YYYYMM Nb Sem Sem Début

Citation:

Si tu as ces 2 fonctions (f(mois)= nombre de semaines, g(mois) = numéro de la première semaine) dans ta panoplie, alors je suis, et d'autres j'en suis sûr, preneur.

Voici des pistes :
forum

ou peut-être encore ici.
15/02/2011, 12h58
MarcelG

Tableaux constants.

Merci Godzestla.:P

Il est important de diffuser des sources, comme tu le fais, pour les mettre à disposition.

Je suis loin du niveau requis, et je sais qu'il est très facile d'énoncer des "YakaFoKon".
Cela dit, un tutoriel reprenant toutes ces fonctionnalités de date (Férié, n° de semaine, nombre de semaines, pemiers jours...) serait le bienvenu pour nombre de collègues "vbistes"

Bonne journée.
15/02/2011, 13h09
Godzestla

Citation:

Il est important de diffuser des sources, comme tu le fais, pour les mettre à disposition.

Je me suis fait un fichier excel avec le sujet et le lien pour la réponse où je stocke tout ce qui m'a servi ou pourrait me servir.

Citation:

e suis loin du niveau requis

Pas d'accord. Je trouve tes réponses parmi les plus judicieuses, polies et bien présentées.

Et entre nous, mon niveau réel n'est pas bien impressionnant. Mais je suis curieux.

Bonne journée.:mouarf: