Je voudrais créer une collection de range pour pouvoir facilement les intégrer a une boucle !!!!
En trainant a droite a gauche j'ai trouve des bouts de code mais même si je me sens prêt du but.. CA COINCE !!!!

Voila mon code:


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
22
23
24
 
'Je declare mes range a inclure dans ma collection
Dim MaPlage1 As Range
Dim MaPlage2 As Range
 
Set MaPlage1 = runs2.Range("E5:K9")
Set MaPlage2 = runs2.Range("G5:K9")
 
'Je creer ma collection et je lui attribue les différents range (je pense que c'est par la que ca va pas)
 
Dim Alljobs As New Collection
 
Alljobs.Add (MaPlage1)
Alljobs.Add (MaPlage2)
 
 
For i = 1 To 20
 
main.Range("io_job" & i & "_date").Value = Alljobs.Item(1).Cells(1, 1).Value
main.Range("io_job" & i & "_by").Value = Alljobs.Item(1).Cells(1, 2).Value
etc...
 
 
next i
J'ai "Objet required" en retour !!!! bouuuuu

HELLPPPPP....... c'a fais trop d'heures que cela me prend la tête.. J'ai beau retourner le code dans tous les sens en espérant que cela passe.. MAIS RIEN !!