intersection de range

Bonjour tout le monde,

j'essaye de récuperer l'intersection de deux range comme ceci :

mes deux range sont

Code:

---

1 2	nomenclatureWS.range(nomenclatureWS.Columns(8).Address) nomenclatureWS.Cells(cell3.Row, 1).MergeArea

---

la ligne suivante :

Code:

---

for each cell in excelApp.Application.Intersect(nomenclatureWS.range(nomenclatureWS.Columns(8).Address), nomenclatureWS.Cells(cell3.Row, 1).MergeArea)

---

me renvoie "un objet est requis"
ou est mon erreur ?

merci !

EDIT : je viens de trouver, les deux range avaient tout simplement une intersection vide ...

Essaies comme ceci (Cell3 est bien définie dans ton code)

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Plage As Range   '.... Set Plage = Intersect(nomenclatureWS.Columns(8), nomenclatureWS.Cells(Cell3.Row, 1).MergeArea) If Not Plage Is Nothing Then For Each Cell In Plage '.... Next Cell End If Set Plage = Nothing

---

Bonjour,

Tu peux simplifier :

Code:

---

nomenclatureWS.Range(nomenclatureWS.Columns(8).Address)

---

par :

Code:

---

nomenclatureWS.Columns(8)

---

Si tu as ce message, c'est sans doute parce qu'il n'y as aucune cellule commune aux deux plage. Ecris :

Code:

---

1 2 3 4 5 6

Set Plage = excelApp.Application.Intersect(nomenclatureWS.Range(nomenclatureWS.Columns(8).Address), nomenclatureWS.Cells(cell3.Row, 1).MergeArea) If Not plage Is Nothing Then For Each cell In Intersect(nomenclatureWS.Columns(8), nomenclatureWS.Cells(cell3.Row, 1).MergeArea)   Next End If

---