[Vba-E] Création tableau

Bonjour,
avant de venir sur le forum je vous assuer avoir cherché sur différents sites et dans mon livre sur le VBA, ce n'est pas clairement exprimé. Sur ces derniers, pour ce qui touche à la création de array, on vous parle de boucle et on part du principe que les données à mettre dans le tableau sont déjà écrites sur la feuille .

Moi j'aimerais un tableau genre PHP (je code en Php aussi, donc désolé pour la comparaison!), ou on associe simplement le numéro avec sa valeur .
J'aimerais crée un tableau genre :

Janvier = 1
fevrier = 2
mars = 3 etc ....

Mais toutes les lecons pour apprendre à faire des tableaux me larguent avec leurs boucles ... merci d'avance

MErci beaucoup, je peux commencer par n'importe quel chiffre ?
Et si je ne renseigne pas le '0' cest grave ?

Ps : jsuis vner, j'ai perdu 2 heures de coding en quels clics, il me faudrait juste la technique pour stocker le mois en cours dans une variable ... Merci à vous ! et le mois juste avant aussi !

Oups en fait c'est pas tout a fait ce que je veux comme tableau.

Janvier = une lettre (I par ex.)
Fevrier = une autre lettre (J par ex.)
MArs = encore une autre (K par ex.)

Cest possible ?

Pour chaque index de ton tableau, que veux-tu retrouver ? Parce que là, j'ai plusieurs réponses possible et l'une des deux ne te conviendra pas ;)
Essaie de mettre ça sous cette forme
LeTableau(1) = ????????
LeTableau(2) = ????????

tsétesrats

Jvais texpliquer ce que je veux faire, comme ca tu comprendras mieux .

-> On stock le mois en cours dans une variable (ex: 'juin' dans la variable MOISENCOURS)

-> Selon le contenu da la variable on obtient une lettre (ex: si MOISENCOURS contient 'juin' on a la lettre N, si c'était 'aout' quon avait alors on sorttirai la lettre '0') ....

En fait la lettre qu'on obtient m'indiquerai la colonne sur laquelle je vais travailler . cest pour ca que je voulais associer un nom de mois avec une lettre .

Alors j'ai une réponse mais vue l'heure, tu devras l'adapter

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub ParamètreEnvoyer() Collection_Remplir "Janvier", "Février", "Mars", "Avril", "Mai" End Sub   Sub Collection_Remplir(Paramètre1, paramètre2, paramètre3, Paramètre4, paramètre5) Dim MaColect As New Collection ' Rempli la collection MaColect.Add Paramètre1, "J" MaColect.Add paramètre2, "I" MaColect.Add paramètre3, "K" MaColect.Add Paramètre4, "L" MaColect.Add paramètre5, "M" 'Affichage Debug.Print MaColect("J") & MaColect("K") & MaColect("L") & MaColect("M") MsgBox MaColect("J") & MaColect("K") & MaColect("L") & MaColect("M") 'ou MsgBox MaColect(1) & MaColect(2) & MaColect(3) & MaColect(4) & " " & MaColect(5)   End Sub

---

Juste pour le principe de l'utilisation d'une lettre ou d'un string comme index d'un tableau
Mais pour ça, tu dois créer une collection
Tu as tout et tu n'es pas obliger d'utiliser deux procédure avec passage de paramètres

Là, je me sauve ;)

Tu dis, des fois qu'une autre idée soit venue à quelqu'un... Quant à moi, je ne vois rien d'autre

A+

bonjour

pour récupérer le numéro de colonne en fonction du mois en cours :

si par exemple le mois de janvier est dans la colonne i , février dans la colonne j ...etc ...

Code:

---

1 2 3 4 5

Sub Test() Dim MOISENCOURS As Byte MOISENCOURS = Month(Date) + 8 MsgBox MOISENCOURS End Sub

---

bonne journée
michel

ouskel'n'or, c'est quoi ce truc compliqué, juste pour ... un tableau !

SilkyRoad > Ca me renvoie '14', comment veux-tu que j'exploite ce nombre ?

rebonjour

Citation:

---

ouskel'n'or, c'est quoi ce truc compliqué, juste pour ... un tableau !

---

Antoinelavigne, quand on pose des questions il est de bon gout d'éviter de critiquer les personnes qui essayent de t'aider ...

Citation:

---

SilkyRoad > Ca me renvoie '14', comment veux-tu que j'exploite ce nombre ?

---

14 correspond à la colonne N de la feuille (14eme colonne) ...

Si tu veux par exemple inscrire "x" dans le 2eme ligne de cette colonne :

Code:

---

Cells(MOISENCOURS, 2) = "x"

---

bonne journée
michel

Désolé, antoinelavigne, mais je vais être beaucoup plus direct (et sans aucun doute moins tolérant) encore que SilkyRoad (dont je salue ici toutes les qualités... que je ne sais pas avoir dans certains cas...).

Alors, Monsieur "c'est quoi çà ?"

Tu vas voir ce que c'est que le quoi !....

Essaye ceci, médite... et tires-en TON "quoi" !

Code:

---

1 2 3

Private Sub Command1_Click() MsgBox Month(Now) & " = " & Format(Now, "mmmm") End Sub

---

Chacun, antoignelavigne, a la politesse qu'il mérite, quoi !
Salut, quoi !

Ok jvais me débrouiller avec ce que vous m'avez donnée .

MAIS MDR ! Alors je vais citer ce que j'ai dit :

Citation:

---

ouskel'n'or, c'est quoi ce truc compliqué, juste pour ... un tableau !

---

Maintenant vos paroles :

Citation:

---

Chacun, antoignelavigne, a la politesse qu'il mérite, quoi !

---

Citation:

---

il est de bon gout d'éviter de critiquer

---

Attendez, je rêve ou bien ? Je lui dis que je trouve son code vraiment compliqué pour une simple notion de tableau et je vois des posts pour me dire que je suis mal-poli et que je critique ? Non mais, STOP ! Les gars trop de temps passé sur le PC vous abruti ... et vous êtes là, avec vous pensez vos "belles-tournures" à essayer de faire genre vous avez du répondant ... ce que vous dites est complétement infondé.

Sur ce, je quitte le forum +

Habitué de ce genre d'attitude.
Voir ses autres "posts", dont celui-ci :
http://www.developpez.net/forums/sho...296#post212296