Une collection de "Range" !?

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:

---

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 !!

Bonsoir Michocs17141,

Où avez-vous inséré ce code :

dans une feuille ?
dans un module ?

Que représente runs2 dans "runs2.Range("E5:K9")" ?

Bonsoir,

Je ne suis pas sur d'avoir compris, mais as tu pensé a utiliser la propriété Areas?

Code:

---

1 2 3 4 5 6 7 8

Sub Rangecollection() Dim BigRange As Range, SmallRange As Range Set BigRange = Range("A1:A10,B6:D5,E4:F12") For Each SmallRange In BigRange.Areas SmallRange.Interior.ColorIndex = 6 Next End Sub

---

Sinon pour comprendre ce qui se passe, met un point d'arret sur ta boucle for, supprime les parentheses autour de MaPlage2 et garde les autour de maplage1:

Code:

---

1 2 3

Alljobs.Add (MaPlage1) Alljobs.Add MaPlage2

---

Affiche la fenetre variable locales, tu verras que dans ta collection tu as en fait récupéré une variable tableau, et non un objet Range, d'ou l'erreur.

Cordialement,

Tirex28/

Houraaaaa.....

Donc pour les détails:

- Le code était dans un module.
- "run2" est une page.

La solution, et merci encore, est: "PAS DE PARENTHÈSES" sniffff tout ce temps pour ça !!!

Mais bon, maintenant je suis heureux ca marche !!

Code:

---

1 2	Alljobs.Add MaPlage2

---

Encore merci !!!!! :yaisse2: