Discussion :

[tarteAuxMyrtilles]

Bonjour tout le monde,

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

mes deux range sont

Code :

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

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

la ligne suivante :

Code :

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

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

[mercatog]

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

Code :

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

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

[Daniel.C]

Bonjour,

Tu peux simplifier :

Code :

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

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

par :

Code :

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

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 :

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

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