il eut été plus judicieux d'utiliser des variables tableau !!!
Comme ceci par exemple :
Code:
Sub Test()
Dim produc_mensuel(12) As Integer
Dim i As Integer, msg As String
'Pour inititaliser
For i = 0 To 11
produc_mensuel(i) = Range("Production_mensuel_" & i + 1).Row
Next
'Pour récupérer en boucle
For i = 0 To 11
msg = msg & produc_mensuel(i) & vbCr
Next
MsgBox msg
End Sub
Oui les variables tableaux sont très utilisés en VBA.
On peut même y stocker des plages (Range) :
Code:
Sub Test()
Dim i%, P(1 To 12) As Range, produc_mensuel&(1 To 12), msg$
'Pour inititaliser les 2 tableaux
For i = 1 To 12
Set P(i) = Range("Production_mensuel_" & i)
produc_mensuel(i) = P(i).Row
Next
'Pour récupérer en boucle
For i = 1 To 12
msg = msg & P(i).Address(0, 0, , True) & vbTab & _
"ligne : " & produc_mensuel(i) & vbTab & vbCr
Next
MsgBox msg
End Sub