UNION de PLAGES

Bonjour le Forum

Je cherche à trouver le code qui me permettra de créer une Plage (Range) reunion de plusieurs plages

Dim PlageLigne(1 To 12) As Range

Set Plage=Nothing

For I = 1 To 12

Set PlageLigne(I) = Ws.Range(Cells((I + 1) * 5 + 2, 7), Cells((I + 1) * 5 + 2, 9))

'J'ai simplifié la colonne

Set Plage = Union(Plage, PlageLigne(I)) ' ca bug ici

Next I

je n'arrive pas à former cette plage qui est l'union des diverses PlageLigne(I)

QQn aurait il la solution

Merci infiniment

Séb

Bonjour

A tester

Sub test()
Dim PlageLigne(1 To 12) As Range
  Set plage = Nothing
  For i = 1 To 12
    Set PlageLigne(i) = ws.Range(Cells((i + 1) * 5 + 2, 7), Cells((i + 1) * 5 + 2, 9))
    If plage Is Nothing Then
      Set plage = PlageLigne(i)
    Else
      Set plage = Union(plage, PlageLigne(i))  ' ca ne bug plus ici
    End If
  Next i
End Sub

Re

Merci Banzai64, a verifier si ca bugue pas après mais en tous cas, là ca ne bugue plus

merci tout plein... en attendant mon prochain bug

A+