Discussion :

[LaMite]

Bonjour

Dans un classeur Excel, j'ai une feuille paramètre.
Parmi ces paramètres, j'ai la valeur des mois indiqués dans la colonne A ligne 21 à 33.

Comment je peux récupérer ces valeurs dans une variable nommée "mois" dans vba ?
J'ai ai besoin pour une macro... http://www.developpez.net/forums/d14...e/#post7790998


Merci de votre aide !

[mathspountz]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
dim tbl(11) as string
dim i as integer
for i = 0 to 11
    tbl(i) = thisworkbook.sheets("toto").range("A" & i + 21).value
next i

A l'aide de ce tableau tu pourras incrémenter tes mois dans l'autre macro

[Philippe Tulliez]

Bonjour,
Autre solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim mois as variant
mois = Application.Transpose(Worksheets("Param").Range("A21:A33"))
MsgBox Join(mois, vbCrLf)

[LaMite]

d'abord merci de votre réponse et de votre aide !
je ne comprend pas la première solution...
rien ne s'affiche, comment je peux l'intégrer dans ma macro ?

la seconde solution, j'ai pigé ce que cela rend.
par contre, comment faire en sorte ensuite pour que dans une boucle for next, je prenne la valeur 1 de ma variable mois etc... next, variable 2
sachant que ma boucle for next joue sur une autre variable...

cdlt

[Philippe Tulliez]

Bonjour,

par contre, comment faire en sorte ensuite pour que dans une boucle for next, je prenne la valeur 1 de ma variable mois etc... next, variable 2
sachant que ma boucle for next joue sur une autre variable...

Difficile de te répondre n'ayant pas visualisé ton code
Toutefois dans ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim mois as variant
mois = Application.Transpose(Worksheets("Param").Range("A21:A33"))

la variable dimensionnée Mois(0) contient la valeur de la cellule A21, Mois(1) celle de la cellule A22, etc...
Si la cellule A21 correspond à une valeur du mois de janvier, il suffit de faire correspondre la variable de ta boucle par rapport à l'indice de la variable Mois
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For m = 1 to 12: msgbox Mois(m-1): Next

[LaMite]

merci beaucoup de ton aide. j'ai finalement opté pour une autre solution dépendant du reste de ma macro.
mais il est bon de savoir ce que tu m'annonces !